仅使用均值和 95% 置信区间估计值（而不是产生它们的数据）的点状系数图

Question

我有这个：

workday <- data.frame(Measure = c("A", "A", "A"),
                      Session = c("Welcome", "Class 1", "Lunch Talk"),
                      Mean  = c(7.10, 8.90, 4.47),
                      Ci95  = c(0.40, 0.56, 0.33))

我需要从 package dwplot ，其中 y 轴表示Session的不同分类值。 估计的均值应该是一个点，95% 置信区间的下限和上限应绘制为穿过其相应均值的水平线。

我没有用于生成估计平均值 ( Mean ) 和 95% 置信区间 ( Ci95 ) 的原始数据 - 只有值本身，如workday中所示。 这等效于带有参数position = identity from ggplot2的dwplot() 。

我可以到这里：

workday %>%
  ggplot(aes(x=Mean, y=Session)) + 
  geom_point(position="identity") +
  ggtitle("A")

但它显然不包括我需要的水平置信区间线。

如何使用ggplot2 （或dwplot ）来产生所需的结果？

Answer 1

也许试试这个：

library(tidyverse)
#Code
workday %>%
  mutate(Low=Mean-Ci95,High=Mean+Ci95) %>%
  ggplot(aes(x=Session, y=Mean)) + 
  geom_point() +
  geom_errorbar(aes(ymin=Low,ymax=High),width=0)+
  ggtitle("A")+
  coord_flip()

Output：