r - 意大利面条图，每次访问每个序列的置信区间

Question

我正在尝试为不同的治疗序列和访问绘制一些纵向数据（浓度与时间）。我还尝试为每个系列添加 95% 的置信区间。

到目前为止，我只能为每个时间点绘制一条带有置信区间的曲线，并且这个曲线用于时间（每次访问使用分面网格），如图所示。我的阴谋

我的数据框格式如下：

• LBTPTNUM（对应于浓度的时间点）

• 均值：这是要绘制的浓度与时间的关系

• 下/上：这是 95% CI 的边界
• USUBJID : 每个主题的 ID
• VISITNUM : 访问次数

我试过以下代码：

ggplot(data = CI_spag(), 
       aes(x = LBTPTNUM, 
           y = mean,
           colour = as.factor(TRTSEQP))) + 
  geom_line(aes(linetype = factor(TRTSEQP))) + 
  facet_grid(~ VISITNUM , labeller = label_both)  + 
  geom_segment(data = CI_spag(), 
               aes(x = LBTPTNUM ,y = lower, 
                   xend = LBTPTNUM, yend = upper, 
                   group = LBTPTNUM, color = "green", 
                   linetype = "dashed" ))

但它并没有返回我所期望的，类似于： 我所期望的

我使用 geom_segment 来表示 CI，因为我还没有找到其他解决方案。

有什么帮助吗？

谢谢

标签： rggplot2