如何在ggplot2中用facet_grid/facet_wrap将分面标题置于面板内部左上角？

要把分面标题放在绘图面板内部左上角，核心思路是用数据驱动的文本标注替代默认分面标题，同时隐藏原有的分面栏。以下是具体实现步骤：

方法一：基础版（无需额外包） #

1. 预处理数据 #

先为每个分面组添加标注文本的位置坐标，确保文本落在面板左上角：

library(ggplot2)
library(dplyr)

# 以mtcars数据集为例，按cyl分面
mtcars_labeled <- mtcars %>%
  mutate(facet_label = paste("气缸数：", cyl)) %>%
  group_by(cyl) %>%
  mutate(
    x_left = min(wt) + 0.1, # x轴左侧偏移，避免贴边
    y_top = max(mpg) - 1    # y轴顶部偏移，避免贴边
  ) %>%
  ungroup()

2. 绘图并添加自定义标题 #

用geom_text添加标题，同时隐藏默认分面栏：

ggplot(mtcars_labeled, aes(x = wt, y = mpg)) +
  geom_point(color = "#2c3e50") +
  # 在左上角添加分面标题
  geom_text(aes(x = x_left, y = y_top, label = facet_label),
            hjust = 0, vjust = 1, size = 4, fontface = "bold") +
  # 分面设置
  facet_wrap(~cyl) +
  # 隐藏默认分面标题和背景
  theme(
    strip.text = element_blank(),
    strip.background = element_blank()
  )

方法二：美化版（带背景文本） #

如果需要让标题更醒目，可以用ggtext包的geom_richtext添加带背景的文本：

library(ggtext)

ggplot(mtcars_labeled, aes(x = wt, y = mpg)) +
  geom_point(color = "#2c3e50") +
  geom_richtext(aes(x = x_left, y = y_top, label = facet_label),
                hjust = 0, vjust = 1, size = 4, fontface = "bold",
                fill = "white", label.color = NA, # 白色背景+无边框
                padding = unit(c(2, 4, 2, 4), "pt")) +
  facet_wrap(~cyl) +
  theme(
    strip.text = element_blank(),
    strip.background = element_blank()
  )

适配facet_grid的情况 #

如果用facet_grid（比如按两个变量分面），只需要调整数据分组逻辑，按两个分面变量分组即可：

mtcars_grid_labeled <- mtcars %>%
  mutate(facet_label = paste("气缸：", cyl, "\n变速箱：", am)) %>%
  group_by(cyl, am) %>%
  mutate(
    x_left = min(wt) + 0.1,
    y_top = max(mpg) - 1
  ) %>%
  ungroup()

ggplot(mtcars_grid_labeled, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_text(aes(x = x_left, y = y_top, label = facet_label),
            hjust = 0, vjust = 1, size = 3.5) +
  facet_grid(am~cyl) +
  theme(
    strip.text = element_blank(),
    strip.background = element_blank()
  )

注意事项 #

• x_left和y_top的取值需要根据你的数据集调整，避免文本遮挡数据点或超出面板范围；
• 如果坐标轴是离散型，x_left可以直接取第一个类别，y_top取最后一个类别，再做适当偏移。

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