異なる試行での時間分布の可視化

Question

パワーポイントによって作成された私の例のように、対照（青）および異なる試行の介入（オレンジ）グループの中央値およびIQRを使用して、時間の分布を視覚化したい。

私は次の形式でデータを集計しています

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を使用して別のパッケージによって私の例で提案されているように、データを視覚化することは可能ですか？

もしそうでなければ、パワーポイント以外の提案はありますか？

私は本当にあなたの助けに感謝します！

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()