如何在同一个facet下组合具有不同数据帧的多个ggplot图？

install.packages("gridExtra")

library(ggplot2)

# 绘制第一个图形
plot1 <- ggplot(df1, aes(x = x1, y = y1)) +
  geom_point() +
  labs(title = "Plot 1")

# 绘制第二个图形
plot2 <- ggplot(df2, aes(x = x2, y = y2)) +
  geom_point() +
  labs(title = "Plot 2")

library(gridExtra)

# 组合两个图形
combined_plot <- grid.arrange(plot1, plot2, nrow = 1)

# 显示组合后的图形
print(combined_plot)