在R中设置x轴限值时保留R中dw图的置信区间

Question

我试图使用R中的ggplot2和dotwhisker软件包来显示来自模型的系数估计。我的一个协变量有很宽的置信区间，所以x轴的尺度很大。当我设定x轴的限制比顺式窄时，CI条就会从图中消失。有什么办法可以保留顺铂，即使它们会被砍掉呢？

例如，我生成了图1：

data(mtcars)
mtest <- lm(mpg ~ cyl + hp + wt, data = mtcars)
dwplot(mtest) 

​

​

当我试图设置轴限时，就会失去CI，如图2所示：

dwplot(mtest) +  scale_x_continuous(limits = c(-4, 1))

​

​

谢谢!

Answer 1

可能有一个更优雅的解决方案，但解决办法是检查置信区间，并手动绘制胡须。

data(mtcars)
mtest <- lm(mpg ~ cyl + hp + wt, data = mtcars)
summary(mtest)
confint(mtest)
dwplot(mtest) +  scale_x_continuous(expand = c(0,0), limits = c(-4, 1))+
  geom_segment(aes(x=-4, xend=-1.649972, y=1, yend = 1), 
  color = "salmon")

这将生成以下情节：

​