如何在R中的同一林地中绘制多个子组分析图

install.packages("ggplot2")
install.packages("gridExtra")
library(ggplot2)
library(gridExtra)

# 创建示例数据集
data <- data.frame(
  Group = rep(c("A", "B", "C"), each = 10),
  Variable1 = rnorm(30),
  Variable2 = rnorm(30)
)

# 创建子组分析图
plot1 <- ggplot(data[data$Group == "A", ], aes(x = Variable1, y = Variable2)) +
  geom_point() +
  ggtitle("Group A")

plot2 <- ggplot(data[data$Group == "B", ], aes(x = Variable1, y = Variable2)) +
  geom_point() +
  ggtitle("Group B")

plot3 <- ggplot(data[data$Group == "C", ], aes(x = Variable1, y = Variable2)) +
  geom_point() +
  ggtitle("Group C")

# 组合子组分析图
combined_plot <- grid.arrange(plot1, plot2, plot3, ncol = 2)