解决ggplot2使用facet_wrap时重复分面标题合并问题

这问题我太熟了！你的数据里Level1全是同一个值，用facet_wrap时每个分面都会重复显示这个标题，咱们可以用几个简单方法搞定：

方法1：用facet_grid替代（适合有分层结构的场景） #

facet_grid支持把共享的分类变量放在外层，这样重复的标题只会显示一次。把Level1作为行/列的外层变量，Level2作为内层变量，代码如下：

library(ggplot2)

# 你的示例数据
df <- structure(list(Level1 = structure(c(1L, 1L, 1L, 1L, 1L), .Label = "Repeated", class = "factor"), 
                     Level2 = structure(c(1L, 1L, 2L, 2L, 2L), .Label = c("A", "B"), class = "factor"), 
                     Level3 = structure(1:5, .Label = c("A", "B", "C", "D", "E"), class = "factor"), 
                     Value = c(6L, 2L, 3L, 4L, 0L)), 
                .Names = c("Level1", "Level2", "Level3", "Value"), 
                class = "data.frame", row.names = c(NA, -5L))

# 绘制分面图，Level1作为行标题只显示一次
ggplot(df, aes(x = Level3, y = Value)) +
  geom_col() +
  facet_grid(Level1 ~ Level2, scales = "free_x")

这样Level1的标题会在整个分面组的左侧只出现一次，每个小分面只显示Level2的标题，完美解决重复问题。

方法2：将重复的Level1设为图表主标题（适合当前全重复场景） #

如果你的Level1在当前数据里确实只有一个值，直接把它提取出来当整个图表的主标题，分面只用Level2即可：

# 提取Level1的唯一值作为主标题
main_title <- unique(df$Level1)

ggplot(df, aes(x = Level3, y = Value)) +
  geom_col() +
  facet_wrap(~Level2, scales = "free_x") +
  ggtitle(main_title) +
  theme(plot.title = element_text(hjust = 0.5)) # 可选：让标题居中

这种方法更简洁，视觉上也更清晰，完全适配你的示例数据场景。

方法3：自定义labeller（适合复杂分面场景） #

如果以后你的数据里Level1会有多个值，但部分分面共享同一个Level1，可以自定义labeller函数来隐藏重复的标题：

# 自定义labeller，只在第一个分面显示Level1
custom_labeller <- function(labels) {
  labels$Level1[duplicated(labels$Level1)] <- ""
  labels
}

ggplot(df, aes(x = Level3, y = Value)) +
  geom_col() +
  facet_wrap(Level1 ~ Level2, scales = "free_x", labeller = custom_labeller)

这个方法灵活性更高，能应对更复杂的分面标题重复情况。

内容的提问来源于stack exchange，提问作者user3594490