R barplot Y Axis 刻度太短

Question

我正在尝试生成条形图，但 y Axis 比例太短。这是我的代码:

barplot(as.matrix(dat), log="y", ylim=c(10000,100000000), beside=TRUE,
        ylab = "Number of reads", col = c("gray","black","white"))

它为 Axis 留出空间(根据 ylim)，但不填充实际 Axis 。我经历过?barplot并尝试了一些东西(通过谷歌搜索，我认为 xpd = F, yaxs = c(10000,10000000,5) 应该有效，但它没有)。

我知道这是一件小事，但这正是我多年来一直困扰的问题，而不是实际工作，所以任何帮助将不胜感激!

编辑:
为输入的家伙干杯!

我最初在没有 ylim 的情况下进行了绘图，但最终得到了一个更奇怪的 Axis (有同样的问题)；我实际上选择了我的 ylim 值来给它一个更好的间隔 Axis 。


这是数据:

dat <- read.table(text="D2,D3n,D3m,D4n,D4m
21234722,34262282,31920464,25486357,20712943
35343,64403,22537,39934,46547
126646,312286,101105,81537,76944", header=TRUE, sep=",")

编辑2:
@DWin 说得对 - 我更新了我的 R，现在它可以很好地绘制 - 谢谢大家!

Answer 1

我看到你尝试设置 ylim但你给出了不好的值(value)观。这将改变绘图的比例(如缩放)。例如看这个:

par(mfrow=c(2,1))
tN <- table(Ni <- stats::rpois(100, lambda = 5))
r <- barplot(tN, col = rainbow(20),ylim=c(0,50),main='long y-axis')
r <- barplot(tN, col = rainbow(20),main='short y axis')

另一种选择是不带 Axis 绘图并使用 axis 手动设置它们和 usr :

require(grDevices) # for colours
par(mfrow=c(1,1))
r <- barplot(tN, col = rainbow(20),main='short y axis',ann=FALSE,axes=FALSE)
usr <- par("usr")
par(usr=c(usr[1:2], 0, 20))
axis(2,at=seq(0,20,5))