可视化不同试验的时间分布

Question

我希望使用中位数和IQR来显示控制（蓝色）和干预（橙色）组的不同试验的时间分布，如我在powerpoint创建的示例中所示。

我只使用以下格式汇总数据：

trial.name (string)
group.A.median (int)
group.A.lower (int)
group.A.upper (int)
group.B.median (int)
group.B.lower (int)
group.B.upper (int)

是否可以通过ggfplot2或其他使用R的包来显示我的示例中建议的数据？

如果没有，除了powerpoint之外还有其他任何建议吗？

我真的很感谢你的帮助！

Answer 1

library(tidyverse)
df <- data_frame(group = rep(c('A', 'B'), e = 4),
                 med = ifelse(group == 'A', rnorm(8), rnorm(8, 1.5)),
                 lwr = med - 0.2,
                 upr = med + 0.2,
                 trial = rep(1:4, 2))

ggplot(df, aes(trial, med, ymin = lwr, ymax = upr, fill = group)) +
  geom_crossbar(width = 0.2) +
  coord_flip()