如何修改ggplot2中facet_grid()输出的NA标签？

你使用facet_grid()绘制图表时，希望将图表中默认显示的“NA”标签替换为自定义文字，当前代码如下：

gender.labs <- c("Female","Male")
names(gender.labs) <- c("0","1")
native_speaker.labs <-c("Non Native-speaker","Native-speaker")
names(native_speaker.labs) <- c("0","1")

ggplot(df_plot, aes(x = Platform_joined, y = sum_mastery)) +
  geom_boxplot() +
  geom_point() +
  labs(x = "Teaching Motality", y = "Total Mastery Gained") +
  scale_y_continuous(limits = c(20,60)) +
  theme(axis.title.x = element_blank()) +
  facet_grid(gender~native_speaker, margins = TRUE, 
             labeller = labeller(gender = gender.labs, native_speaker = native_speaker.labs))

解决方案 #

方法1：在标签向量中添加NA的映射

直接在你定义的标签向量里补充NA对应的自定义文字即可（margins=TRUE生成的汇总面板对应的标签值为NA）：

# 补充NA对应的自定义标签（示例用"All"，可替换为任意你需要的文字）
gender.labs <- c("Female","Male", "All")
names(gender.labs) <- c("0","1", NA)
native_speaker.labs <-c("Non Native-speaker","Native-speaker", "All")
names(native_speaker.labs) <- c("0","1", NA)

ggplot(df_plot, aes(x = Platform_joined, y = sum_mastery)) +
  geom_boxplot() +
  geom_point() +
  labs(x = "教学动机", y = "总掌握程度提升") +
  scale_y_continuous(limits = c(20,60)) +
  theme(axis.title.x = element_blank()) +
  facet_grid(gender~native_speaker, margins = TRUE, 
             labeller = labeller(gender = gender.labs, native_speaker = native_speaker.labs))

方法2：使用自定义标签函数（更灵活）

如果需要复杂的标签逻辑，可通过as_labeller结合自定义函数处理NA：

library(dplyr) # 依赖case_when函数

# 定义gender标签转换函数
gender_label <- function(x) {
  case_when(
    x == "0" ~ "Female",
    x == "1" ~ "Male",
    is.na(x) ~ "汇总" # 替换为你需要的自定义文字
  )
}

# 定义native_speaker标签转换函数
native_label <- function(x) {
  case_when(
    x == "0" ~ "非母语者",
    x == "1" ~ "母语者",
    is.na(x) ~ "汇总"
  )
}

ggplot(df_plot, aes(x = Platform_joined, y = sum_mastery)) +
  geom_boxplot() +
  geom_point() +
  labs(x = "教学动机", y = "总掌握程度提升") +
  scale_y_continuous(limits = c(20,60)) +
  theme(axis.title.x = element_blank()) +
  facet_grid(gender~native_speaker, margins = TRUE, 
             labeller = labeller(gender = as_labeller(gender_label), 
                                native_speaker = as_labeller(native_label)))

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