X轴相对于gap.barplot中的1而不是0,如何更改此值?

X轴相对于gap.barplot中的1而不是0,如何更改此值?,r,plot,R,Plot,我修改了gap.barplot帮助文件中的示例代码 twogrp<-c(0, 4, 5, 7, 2,3, 1, 7, 18, 22, 25, 26, 28) gap.barplot(twogrp,gap=c(8,16),xlab="Index",ytics=c(3,6,17,20), ylab="Group values",main="Barplot with gap") twogrp在gap.barplot(plotrix版本3.5-5)中明显存在打字错误。现在,它正在

我修改了gap.barplot帮助文件中的示例代码

twogrp<-c(0, 4, 5, 7, 2,3, 1, 7, 18, 22, 25, 26, 28)
gap.barplot(twogrp,gap=c(8,16),xlab="Index",ytics=c(3,6,17,20),
        ylab="Group values",main="Barplot with gap")

twogrp在
gap.barplot
(plotrix版本3.5-5)中明显存在打字错误。现在,它正在将条的底部设置为最小
x
值,而不是最小
y
值。下面的一些代码将复制该函数并更改该行(如果找到)

得到

如果不同时设置
ylim[2]
(最大y值),似乎无法轻松设置
ylim[1]=0。晶格绘图函数将允许
ylim=c(0,NA)
。强制一条零线会很好,但是让函数的其余部分计算出默认的最大值应该是多少


所以你现在可以使用这个替代方案。我会联系软件包作者,让他们知道这个错误。如果愿意,您可以向他们发送指向此问题的链接。

我不知道,我无法在代码中找到原因。建议您联系
维护人员('plotrix')
gap.barplot2<-gap.barplot
if (deparse(body(gap.barplot2)[[c(20,4,4)]])==
    "botgap <- ifelse(gap[1] < 0, gap[1], xlim[1])") {
    body(gap.barplot2)[[c(20,4,4)]] <- 
        quote(botgap <- ifelse(gap[1] < 0, gap[1], ylim[1]))
} else  {
    stop("line not found")
}
gap.barplot2(twogrp,gap=c(8,16),xlab="Index",ytics=c(3,6,17,20),
    ylab="Group values",main="Barplot with gap")