如何隐藏Plotly环形图中因切片过小显示的外部标签？

核心思路 #

通过计算每个类别的占比，设置阈值过滤掉占比过小的标签，仅保留占比达标切片的内部百分比标签，同时移除无效的0值类别。

完整修改代码 #

library(plotly)
library(dplyr)

# 原始数据（修正：Category的字符需加引号，避免被识别为未定义变量）
InT <- data.frame(
  Category = c("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","AA","AB"),
  `Category Value` = c(172928,1106269,222102,0,1054448,682990,1975937,779346,12398,0,1450944,368130,2493154,4347455,1865752,1443840,692972,61891,6443758,1539659,1659183,2711385,856182,1992250,3722195,2762090,257023,1204422)
)

# 数据预处理：过滤0值，计算占比并生成条件标签
processed_data <- InT %>%
  filter(`Category Value` > 0) %>% # 移除值为0的无效类别
  mutate(
    percent = `Category Value` / sum(`Category Value`) * 100,
    # 设置阈值（此处为2%，可按需调整），仅保留达标类别的百分比标签
    display_label = ifelse(percent >= 2, paste0(round(percent, 1), "%"), "")
  )

# 绘制优化后的环形图
plot_ly(processed_data, labels = ~Category, values = ~`Category Value`) %>%
  add_pie(
    hole = 0.6,
    text = ~display_label, # 使用生成的条件标签
    textposition = "inside", # 强制标签显示在切片内部
    insidetextorientation = "radial" # 标签沿径向排列，适配环形图布局
  ) %>%
  layout(
    title = "",
    showlegend = FALSE,
    xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
    yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)
  )

关键修改说明 #

• 数据清洗：过滤掉Category Value为0的行，避免生成无意义的空切片；计算每个类别的占比，通过ifelse设置标签显示规则，占比低于阈值的标签设为空字符串，直接隐藏。
• 绘图参数控制：指定textposition = "inside"强制标签显示在切片内部，彻底避免外部标签杂乱；insidetextorientation = "radial"让标签沿切片径向排列，提升可读性。
• 阈值灵活调整：代码中设置的2%阈值可根据实际需求修改，比如改为1.5%或3%，平衡标签显示数量和界面整洁度。

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