X軸相對於gap.barplot中的1而不是0，如何更改此值？

Question

我已更改了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")

當我繪制以上代碼時，生成的圖使0值看起來是負值，而1的值看起來像零。 有什么方法可以更改此值，以便如果我的向量包含零值，則什么都不會繪制，並且如果值等於一，那么我會看到一個凸起的條。 我注意到示例文件避免使用一和零，並且示例文件生成的圖的x軸位於y = 1。

Answer 1

在gap.barplot （plotrix版本3.5-5）中顯然有一個錯字。 現在，它將條形圖的底部設置為最小x值，而不是最小y值。 這是一些代碼，它將復制該函數並更改該行（如果找到）

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")

要得到

如果不同時設置ylim[2] （最大y值），似乎沒有簡單的方法來設置ylim[1]=0 。 格子繪圖函數將允許ylim=c(0,NA) 。 強制使用零行會很好，但是讓函數的其余部分找出默認的最大值應該是多少。

因此，您現在可以使用此替代方法。 我將與軟件包作者聯系，以使他們知道此錯誤。 如果願意，可以向他們發送此問題的鏈接。