如何使用 ggplot 在 R 中创建意大利面条图？

Question

我有一个如下所示的数据集：

  Study_ID time_point value
1      100      Time1    15
2      100      Time2    50
3      100      Time3   120
4      200      Time1    20
5      200      Time2    35
6      200      Time3   150
7      300      Time1    35
8      300      Time2    67
9      300      Time3    95

其中每个患者 (Study_ID) 对于 3 个时间点（时间 1、时间 2 和时间 3）有 3 行，每个时间点都有一个值。

我想用 x 轴上的 time_point 和 y 轴上的值创建一个意大利面条图，每个病人都有一条线。 我想要的输出看起来像这样：

我该怎么做呢？

可重现的数据：

data<-data.frame(Study_ID=c("100","100","100","200","200","200","300","300","300"),time_point=c("Time1","Time2","Time3","Time1","Time2","Time3","Time1","Time2","Time3"),value=c("15","50","120","20","35","150","35","67","95"))

Answer 1

通过在aes()中使用group和color参数，您可以添加层geom_point()和geom_line()以将颜色和组保持在一起。

library(tidyverse)

data<-data.frame(Study_ID=c("100","100","100","200","200","200","300","300","300"),time_point=c("Time1","Time2","Time3","Time1","Time2","Time3","Time1","Time2","Time3"),value=c("15","50","120","20","35","150","35","67","95"))

ggplot(data, aes(time_point, value, group = Study_ID, color = Study_ID)) + 
  geom_point() + 
  geom_line()

^{由reprex 包于 2022-06-20 创建 (v2.0.1)}