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 回答