如何为ggplot2创建基于字符串分割的命名标签向量？

当然可以实现，不管是几百还是更多元素都能轻松处理，以下是两种常用的R语言实现方式：

Base R 方案 #

直接用基础包函数处理，无需额外安装依赖：

labels <- c("127_500", "128_500","13_200")

# 分割字符串并提取第二部分
values <- sapply(strsplit(labels, "_"), function(x) x[2])
# 将原向量元素设为名称
new_vector <- values
names(new_vector) <- labels

运行后new_vector就是你需要的命名向量，输出如下：

> new_vector
127_500 128_500  13_200 
  "500"   "500"   "200" 

Tidyverse 方案 #

如果你习惯用tidyverse工具链，可以用更简洁的方式处理：

library(stringr)
library(dplyr)

labels <- c("127_500", "128_500","13_200")

# 提取下划线后的数字部分并设置名称
new_vector <- str_extract(labels, "(?<=_)\\d+") %>% 
  set_names(labels)

或者用tidyr的拆分函数：

library(tibble)
library(tidyr)

new_vector <- tibble(labels) %>%
  separate(labels, into = c("prefix", "suffix"), sep = "_") %>%
  deframe()

在ggplot中使用 #

生成的命名向量可以直接传入scale_x_discrete()的labels参数，比如：

# 假设你的数据框是df，x轴对应列是category
ggplot(df, aes(x = category)) +
  geom_col() +
  scale_x_discrete(labels = new_vector)

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