在 R 中使用plotCI 时更改参数。（向左或向右移动点）

Question

我知道您可以通过在代码中添加“at=1:6-0.2”或“at=1:6+0.2”来在图表上向左或向右移动箱线图，但当我使用plotCI时情况并非如此。有谁知道如何执行这个简单的参数调整？我知道这一定很简单，但是这里关于plotCI 的问题很少。它位于包 {gplots} 中。这让我发疯！感谢您的任何帮助。 -亚历克斯

Answer 1

如果你想移动一切（点和误差线），那么你需要做的就是向plotCI的x参数添加少量：

plotCI(x=myx+0.2,y=...)

但这看起来很奇怪，所以也许你的意思是你想要将点绘制在正确的位置，但将误差线稍微向右移动？这对我来说仍然很奇怪，但是可以通过获取plotCI的代码，将其放入包装函数中并向包装函数添加一个小的偏移参数（该参数传递到plotCI代码的相关部分）来相当容易地完成。

经过检查，plotCI 的代码有点长，所以我不会在这里重现整个内容。在控制台中输入plotCI，然后将结果复制并粘贴到文本文件中，然后将该函数命名为新名称，例如plotCI_offset。我相信，如果您随后在最后的 if/else 语句中更改 myarrow 函数调用的 x 坐标参数，您将获得成功。

新函数 def 看起来像这样：

plotCI_offset <- function (x, y = NULL, uiw, liw = uiw, ui, li, err = "y", ylim = NULL, 
xlim = NULL, type = "p", col = par("col"), barcol = col, 
pt.bg = par("bg"), sfrac = 0.01, gap = 1, lwd = par("lwd"), 
lty = par("lty"), labels = FALSE, add = FALSE, xlab, ylab, 
minbar, maxbar,offset=0.2, ...) 

我已经引用了下面函数的更改位：

if (!add) {
    if (invalid(labels) || labels == FALSE)
        #Add offset here to ensure plot window is right size
        plot(x+offset, y, ylim = ylim, xlim = xlim, col = col, xlab = xlab, 
            ylab = ylab, ...)
    else {
        plot(x, y, ylim = ylim, xlim = xlim, col = col, type = "n", 
            xlab = xlab, ylab = ylab, ...)
        text(x, y, label = labels, col = col, ...)
    }
}

然后就在下面更改此代码，如下所示：

if (err == "y") {
    if (gap != FALSE) 
        gap <- strheight("O") * gap
    smidge <- par("fin")[1] * sfrac
    if (!is.null(li))
        #Add offset to CIs 
        myarrows(x+offset, li, x+offset, pmax(y - gap, li), col = barcol, 
            lwd = lwd, lty = lty, angle = 90, length = smidge, 
            code = 1)
    if (!is.null(ui)) 
        myarrows(x+offset, ui, x+offset, pmin(y + gap, ui), col = barcol, 
            lwd = lwd, lty = lty, angle = 90, length = smidge, 
            code = 1)
}

这仅处理误差线垂直的情况。但水平情况下的改变是相似的。

Answer 2

试试这个：

require(plotrix)
plotCI(1:3-0.1, m1, ui1, li1, xlab="Itens", ylab="Eta2",axes=FALSE)
axis(side=1,at=1:9,label=c(x1,x2,x3),padj=0,las=1)
axis(side=2)

现在做同样的事情，但像这样：

plotCI(1:3+.1,m2, ui2, li2,axes=FALSE,col="blue",add=TRUE)

......

Answer 3

我对此有一个技巧：您不移动数据点，而是移动轴上的标签！

例如，您想要将数据点在 x 轴上向右移动 1，您可以隐藏 x 轴并使用新标签重新绘制它：

plotCI(..., axes=F) # just ignore the warning
axis(side=1, at=0:99, labels=1,100)