如何在R（coefplot）中的系数图上从上到下移动X轴？

Question

我编写了一些代码来生成一些逻辑回归系数及其相关置信区间的图。我已将这些存储在向量中，而不是直接从glm绘制，因为我使用的数据不是我自己的。下面是代码。我希望情节保持水平，但我真的希望x轴标签和刻度标记位于图的底部而不是顶部。我已经在网上搜索了这个问题的答案，但似乎无法找到解决方案。任何建议都将不胜感激。

require(arm)
coef.vect <- c(0.3, 1.5, 2.2, 0.5)
CI.vect <- c(0.15, 0.20, 0.22, 0.16)
longnames <- c("var1", "var2", "var3", "var4")
coefplot (coef.vect, CI.vect, varnames=FALSE, main="Regression Coefficients")
for (i in 1:length(coef.vect)) { text(coef.vect[i], i, longnames[i], cex = .8, pos = 3)}

Answer 1

您可以尝试不绘制x轴，然后在底部添加axis：

coefplot (coef.vect, CI.vect, varnames=FALSE, main="Regression Coefficients", h.axis=F)
axis(side=1, line=-1)

顺便说一句，你不需要for循环，你可以直接做：

text(coef.vect, seq(coef.vect), longnames, cex = .8, pos = 3)