如何让R语言PieDonut外环标签随刻度方向旋转以避免重叠？

要让外环标签沿对应扇形方向旋转并避免重叠，核心是为每个标签计算匹配其扇形中心的旋转角度，同时根据标签所在位置（上/下半环）调整对齐方式，确保阅读友好。以下是具体实现步骤：

1. 核心思路 #

• 先计算外环每个类别的扇形中心角度（弧度转角度）
• 对下半环（90°-270°区间）的标签，将旋转角度减去180°并调整右对齐，避免文字倒置
• 上半环标签保持原角度左对齐，同时将标签位置稍向外环外侧偏移，减少重叠概率

2. 代码修改示例 #

假设你的PieDonutCustom函数基于ggplot2实现，在外环标签绘制部分加入角度计算逻辑：

# 自定义PieDonutCustom函数（关键修改部分）
PieDonutCustom <- function(data, inner_var, outer_var, value_var) {
  # 处理内环数据（原有逻辑保留）
  inner_data <- data %>%
    group_by({{inner_var}}) %>%
    summarise(total = sum({{value_var}})) %>%
    mutate(prop = total / sum(total),
           angle = 2 * pi * cumsum(prop) - pi * prop)
  
  # 处理外环数据 + 计算标签角度与对齐参数
  outer_data <- data %>%
    group_by({{outer_var}}) %>%
    summarise(total = sum({{value_var}})) %>%
    mutate(
      prop = total / sum(total),
      # 计算扇形中心角度（弧度）
      angle = 2 * pi * cumsum(prop) - pi * prop,
      # 转换为角度
      angle_deg = angle * 180 / pi,
      # 计算旋转角度：下半环标签反转180°
      srt = ifelse(angle_deg > 90 & angle_deg < 270, angle_deg - 180, angle_deg),
      # 调整对齐方式：下半环右对齐，上半环左对齐
      hjust = ifelse(angle_deg > 90 & angle_deg < 270, 1, 0),
      vjust = 0.5
    )
  
  # 绘图逻辑（关键修改标签部分）
  ggplot() +
    # 内环饼图（原有代码保留）
    geom_bar(data = inner_data,
             aes(x = 1, y = prop, fill = {{inner_var}}),
             stat = "identity", width = 1) +
    coord_polar("y", start = 0) +
    # 外环环形图（原有代码保留）
    geom_bar(data = outer_data,
             aes(x = 2, y = prop, fill = {{outer_var}}),
             stat = "identity", width = 1) +
    # 外环标签（使用计算好的角度与对齐参数）
    geom_text(data = outer_data,
              aes(x = 2.1,  # 标签位置稍向外偏移，避免重叠
                  y = angle,
                  label = {{outer_var}},
                  hjust = hjust,
                  vjust = vjust),
              size = 3,
              angle = outer_data$srt) +
    # 其他主题调整（原有代码保留）
    theme_void() +
    xlim(0, 2.5)
}

# 调用示例
# PieDonutCustom(your_data, inner_var = inner_cat, outer_var = outer_cat, value_var = count)

3. 额外优化建议 #

• 如果标签仍有重叠，可适当缩小size参数，或进一步增大x = 2.1中的偏移值
• 对过长的标签，可使用str_wrap({{outer_var}}, width = 8)自动换行
• 若使用的是第三方包的PieDonut函数（如ggpie::PieDonut），可先提取外环数据，再手动添加geom_text层实现上述逻辑

内容的提问来源于stack exchange，提问作者Steven-f