ggplot2图两个子集

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

# 创建示例数据集
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  subset = rep(c("A", "B"), each = 50)  # 分类变量，包含两个子集A和B
)

# 使用ggplot2绘制图，并根据subset列的值将数据分成两个子集
ggplot(data, aes(x = x, y = y)) +
  geom_point() +  # 添加散点图层
  facet_wrap(~ subset)  # 根据subset列的值创建子集图

# 使用ggplot2绘制图，并根据两个分类变量的组合创建2x2的子图网格
ggplot(data, aes(x = x, y = y)) +
  geom_point() +  # 添加散点图层
  facet_grid(var1 ~ var2)  # 根据var1和var2列的值创建2x2的子图网格