R语言三级环形饼图的标签格式化与优化问询

核心是通过字符串处理移除标签前缀，并拼接对应Total数值，同时保留原有的层级位置逻辑以保证对齐。以下是具体代码修改步骤：

1. 加载必要库 #

library(ggplot2)
library(dplyr)
library(viridis)
library(stringr) # 用于字符串前缀移除

2. 预处理标签列 #

假设你的数据集名为plant_data，新增处理后的标签列：

plant_data <- plant_data %>%
  # 处理属级标签：移除科前缀，添加Total数值
  mutate(Genus_label = paste(str_remove(Genus, "^.* - "), 
                             " (", Total, ")", 
                             sep = ""),
         # 处理种级标签：移除科+属的双层前缀，添加Total数值
         Species_label = paste(str_remove(Species, "^.* - .* - "), 
                               " (", Total, ")", 
                               sep = ""))

• str_remove(Genus, "^.* - ")：匹配并移除属名前的科前缀（格式如科名 - ）
• str_remove(Species, "^.* - .* - ")：匹配并移除种名前的科+属双层前缀（格式如科名 - 属名 - ）
• 用paste将名称与括号包裹的Total数值拼接

3. 修改ggplot代码中的标签映射 #

替换原代码中对应层级的label参数为处理后的标签列：

# 示例三级嵌套环形饼图核心代码（替换你原有的geom_text部分）
ggplot(plant_data, aes(x = level, y = Total, fill = Category)) +
  geom_col(color = "white") +
  coord_polar("y") +
  # 科级标签（保留原有逻辑，可按需添加Total）
  geom_text(aes(label = paste(Family, " (", Total, ")", sep = "")), 
            data = plant_data %>% filter(level == 3), # 假设level=3对应科级
            position = position_stack(vjust = 0.5)) +
  # 属级标签：使用处理后的Genus_label
  geom_text(aes(label = Genus_label), 
            data = plant_data %>% filter(level == 2), # 假设level=2对应属级
            position = position_stack(vjust = 0.5)) +
  # 种级标签：使用处理后的Species_label
  geom_text(aes(label = Species_label), 
            data = plant_data %>% filter(level == 1), # 假设level=1对应种级
            position = position_stack(vjust = 0.5)) +
  scale_fill_viridis(discrete = TRUE) +
  theme_void()

关键说明 #

• 如果你的前缀分隔符不是-，只需调整str_remove中的匹配字符串（比如分隔符是_就改成^.*_）
• position_stack(vjust = 0.5)保证标签始终在切片中心，不会破坏原有层级对齐
• 若原代码中标签直接用Genus/Species列映射，替换为新生成的Genus_label/Species_label即可

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