如何转换数据框并在R中生成多个折线图？

library(tidyverse)

# 创建一个示例数据框
df <- data.frame(
  x = rep(1:10, 2),  # x轴数据
  y = c(1:10, 10:1), # y轴数据
  group = rep(c("A", "B"), each = 10) # 分组数据
)

# 使用ggplot2绘制折线图
ggplot(df, aes(x = x, y = y, color = group)) +
  geom_line() +
  facet_wrap(~ group, scales = "free")  # 根据分组数据生成多个折线图