如何修改ggplot2中geom_text的标签？替换时遇美学映射错误

你的报错是因为replace函数的使用逻辑错误——replace的第二个参数需要传入要替换元素的索引位置，而非直接传入要替换的字符值，即便你匹配了10个trans值，这种用法也会导致内部匹配混乱，触发长度不匹配的报错。

下面是三种可行的标签替换方法：

方法1：使用dplyr::recode直接替换 #

recode是专门针对值替换的函数，语法直观，适合这种场景：

mpg %>% 
  distinct(trans, .keep_all = T) %>% 
  ggplot(aes(x=cty, y=hwy))+
  geom_text(aes(label = recode(trans,
                               "auto(l3)" = "Al3",
                               "auto(l4)" = "Al4",
                               "auto(l5)" = "Al5",
                               "auto(l6)" = "Al6",
                               "auto(s4)" = "As4",
                               "auto(s5)" = "selected",
                               "auto(s6)" = "good",
                               "manual(m5)" = "m5",
                               "manual(m6)" = "m6",
                               "auto(av)" = "av")))

方法2：预处理数据时生成新标签 #

先在数据处理阶段生成替换后的标签列，再传入ggplot，逻辑更清晰：

mpg %>% 
  distinct(trans, .keep_all = T) %>% 
  mutate(trans_label = case_when(
    trans == "auto(l3)" ~ "Al3",
    trans == "auto(l4)" ~ "Al4",
    trans == "auto(l5)" ~ "Al5",
    trans == "auto(l6)" ~ "Al6",
    trans == "auto(s4)" ~ "As4",
    trans == "auto(s5)" ~ "selected",
    trans == "auto(s6)" ~ "good",
    trans == "manual(m5)" ~ "m5",
    trans == "manual(m6)" ~ "m6",
    trans == "auto(av)" ~ "av"
  )) %>% 
  ggplot(aes(x=cty, y=hwy, label = trans_label)) +
  geom_text()

方法3：用命名向量做匹配映射 #

先定义一个命名向量，再通过索引匹配替换标签，适合需要重复使用替换规则的场景：

# 定义替换规则
label_map <- c(
  "auto(l3)" = "Al3",
  "auto(l4)" = "Al4",
  "auto(l5)" = "Al5",
  "auto(l6)" = "Al6",
  "auto(s4)" = "As4",
  "auto(s5)" = "selected",
  "auto(s6)" = "good",
  "manual(m5)" = "m5",
  "manual(m6)" = "m6",
  "auto(av)" = "av"
)

# 绘图
mpg %>% 
  distinct(trans, .keep_all = T) %>% 
  ggplot(aes(x=cty, y=hwy))+
  geom_text(aes(label = label_map[trans]))

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