如何在R(coefplot)中的系数图上从上到下移动X轴?

How to move X axis from top to bottom on coefficient plot in R (coefplot)?

我编写了一些代码来生成一些逻辑回归系数及其相关置信区间的图。我将这些存储在向量中而不是直接从 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)}

您可以尝试不绘制 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)