使用 ggplot2 創建具有 95% CI 的平均加班時間變化的折線圖

Question

我的數據集是這樣的

df <- data.frame(time = c(0,0,1,1,2,2),
                 mean = c(8, 6, 7 , 6, 6, 5), 
                 group = c(1,0,1,0,1,0), 
                 lower = c(7, 5, 5, 4, 4, 4), 
                 upper = c(12, 9, 10, 8, 8, 8))

我想創建一個 plot 按組在 3 個時間點的平均值變化，每個都有相應的 95% CI（下，上），像這樣，y 軸是平均值，x 軸是時間

Answer 1

也許像這樣？

ggplot(df, aes(x = time, y = mean, group = group)) +
  geom_line(aes(lty = as.character(group)),
            position = position_dodge(width = 0.1)) +
  geom_errorbar(aes(ymax = upper, ymin = lower), width = 0.1,
                position = position_dodge(width = 0.1)) +
  geom_point(aes(shape = as.character(group)),
             position = position_dodge(width = 0.1)) +
  guides(lty = "none", shape = "none")