0

棒グラフと折れ線グラフを組み合わせたグラフを作成しました。問題は、セカンダリ y 軸のスケールが本来あるべきものではないことです。

これは私が使用したコードです：

barplot <- barplot(covpatient[[1]]$cov, names.arg = covpatient[[1]]$exon, xlab = covpatient[[1]]$gene[1] , ylab = "read depth" , border = gray.colors(length(unique(covpatient[[1]]$exon)))[as.factor(covpatient[[1]]$exon)])
par(new = TRUE)
lines(x = barplot, y = covpatient[[1]]$amplicon, bty = "n")
axis(side = 4, at = pretty(range(covpatient[[1]]$amplicon)))

そして、これは私のプロットがどのように見えるかです:プロット

ライン プロットの値は問題ありませんが、y 軸が完全に展開されていないことがわかります。左のy軸と同じに見せたい

誰かがこれで私を助けることができますか?

4

1 に答える 1

0

再現可能な例と明確な質問がなければ、すべての答えはせいぜい当て推量になりますが、次を見てください。

x <- 1:10
y <- c(1, 3, 5, 6, 2, 7, 11, 3, 2, 13)
z <- runif(10, min=1000, max=10000) 

par(mar = c(5, 4, 4, 4) + 0.3) 
barplot(y, col=rainbow(length(x)))
par(new = TRUE)
plot(x, z, type = "l", axes = FALSE, bty = "n", xlab = "", ylab = "")
axis(side=4, at = pretty(range(z)))
mtext("z", side=4, line=3)

library(plotrix)
twoord.plot(x,y,x,z,
    xlab="x",
    ylab="y",
    rylab="z",
    main="Main",
    type=c("bar","l"),lcol=rainbow(length(x)),rcol=4)
于 2013-02-07T11:21:54.427 に答える