如何为同一数据框中的不同组创建单独的折线图？

Question

我有一个数据集 df，我想为每个唯一 ID 生成单独的折线图，但在同一页面中，x 轴为日期，y 轴为值。原因是每个 ID 的值范围不同，如果我将其放在同一个图表中，我将无法看到所有 ID 的线。

dput(df)
structure(list(ID = c("F1", "F1", "F1", "F1", "F1", "F1", "F1", 
"F2", "F2", "F2", "F2", "F2", "F2", "F2", "F2", "F3", "F3", "F3", 
"F3", "F3", "F3", "F3", "F3", "F3", "F4", "F4", "F4", "F4", "F4", 
"F4", "F4", "F4"), Date = c("22/6/2021", "23/6/2021", "24/6/2021", 
"25/6/2021", "26/6/2021", "27/6/2021", "28/6/2021", "22/6/2021", 
"23/6/2021", "24/6/2021", "25/6/2021", "26/6/2021", "27/6/2021", 
"28/6/2021", "29/6/2021", "22/6/2021", "23/6/2021", "24/6/2021", 
"25/6/2021", "26/6/2021", "27/6/2021", "28/6/2021", "29/6/2021", 
"30/6/2021", "22/6/2021", "23/6/2021", "24/6/2021", "25/6/2021", 
"26/6/2021", "27/6/2021", "28/6/2021", "29/6/2021"), Values = c(9.6, 
9.8, 10.2, 9.8, 9.9, 9.9, 9.9, 1.2, 1.2, 1.8, 1.5, 1.5, 1.6, 
1.4, 1.1, 3266, 3256, 7044, 6868, 6556, 3405, 3410, 3980, 5567, 
59.4, 56, 52.8, 52.4, 55.5, 54, 61, 53.6)), class = "data.frame", row.names = c(NA, 
-32L))

这是一个包含所有 ID 线条的折线图。我正在尝试为每个 ID 创建不同的折线图

ggplot(data = df, aes(x = factor(Date), y = Values, color = ID)) +       
  geom_line(aes(group = ID)) + geom_point()

Answer 1

使用facet_wrap

ggplot(data = df, aes(x = factor(Date), y = Values, color = ID)) +       
  geom_line(aes(group = ID)) + geom_point() + 
  facet_wrap(~ID, scales = 'free_y')

---

创建您自己的订单

ggplot(data = df, aes(x = factor(Date), y = Values, color = ID)) +       
  geom_line(aes(group = ID)) + geom_point() + 
  facet_wrap(~factor(ID,
                     levels=c("F1", "F2", "F3", "F4")), 
             scales = 'free_y')