R语言ggplot2库实现嵌套分面图

以下是一个示例代码，用于在R中使用ggplot制作嵌套的两个分面图：

library(ggplot2)

# 创建数据框
df <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 6, 8, 10),
  z = c('A', 'A', 'B', 'B', 'B')
)

# 绘制图形
ggplot(df, aes(x, y)) +
  geom_point() +
  facet_wrap(~z, ncol = 1) +
  theme_bw() +
  theme(panel.spacing = unit(0, 'lines'),
        panel.grid = element_blank(),
        axis.line = element_line(size = 0.5),
        axis.ticks = element_line(size = 0.5),
        strip.background = element_rect(fill = 'white', color = 'grey50'),
        strip.text = element_text(size = rel(0.8), color = 'black'),
        axis.title = element_text(size = rel(0.8)),
        axis.text = element_text(size = rel(0.7)))

这将创建一个嵌套的两个分面图，其中每个子图都基于数据框中的'z'列进行分组。在这个例子中，我们使用geom_point()添加散点图，并使用facet_wrap()函数将图形分成两个面板，每个面板都包含一个'z'值。我们还使用theme()函数自定义图形的外观，例如间距，轴线和标签的大小。