如何使用split和sapply在ggplot中组合多个数据源？

# 导入必要的包
library(ggplot2)
library(gridExtra)

# 创建一个数据框
df <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(1, 4, 9, 16, 25),
  y2 = c(1, 8, 27, 64, 125),
  group = c("A", "A", "B", "B", "B")
)

# 使用split函数按照group变量分组
df_list <- split(df, df$group)

# 使用sapply函数对数据框列表进行遍历，并绘制图形
plot_list <- sapply(df_list, function(data) {
  ggplot(data, aes(x, y1)) + 
    geom_point() +
    geom_line() +
    labs(title = paste("Group", unique(data$group)))
}, simplify = FALSE)

# 使用grid.arrange函数将多个图形组合在一起
combined_plot <- do.call(grid.arrange, plot_list)

# 显示组合图形
print(combined_plot)