R ggplot2如何按列值为饼图分组区域添加对应比例边框环

你原代码的映射存在错误：y=factor(Cat1)会把数值型计数转为分类变量，无法正确计算饼图扇形的角度占比，需要传入数值型Cat1做堆叠才能得到正确的饼图结构。
要实现按比例显示的扇形外黑边，不需要复杂的自定义图层，只要先计算好每个扇形的堆叠起止位置，再用线段层叠在饼图外圈即可：黑边长度对应该组Cat2的数值，转极坐标后自然会形成沿扇形弧度的黑环。
完整可复现代码如下：

library(ggplot2)
library(dplyr)

# 导入示例数据
tab <- structure(list(Groups = c("A", "B", "C", "D"), Cat1 = c(4L, 0L, 
1L, 2L), Cat2 = c(2L, 0L, 1L, 0L)), class = "data.frame", row.names = c(NA, 
-4L))

# 计算每个扇形的位置参数
tab_cal <- tab %>%
  # 过滤Cat1为0、无实际扇形面积的组
  filter(Cat1 > 0) %>%
  mutate(
    # 堆叠柱状图中每个块的结束y坐标
    y_total_end = cumsum(Cat1),
    # 堆叠柱状图中每个块的起始y坐标
    y_total_start = lag(y_total_end, default = 0),
    # 黑边覆盖的结束y坐标：从块起始位置延伸Cat2对应的长度
    y_black_end = y_total_start + Cat2
  )

ggplot(tab_cal) +
  # 绘制基础饼图
  geom_col(
    aes(x = 1, y = Cat1, fill = factor(Cat1)), # 保持原代码的填色逻辑，按Cat1分类填色
    colour = "white", linewidth = 0.7, width = 1
  ) +
  # 绘制外圈比例黑边
  geom_segment(
    aes(x = 1.5, xend = 1.5, y = y_total_start, yend = y_black_end),
    colour = "black", linewidth = 2
  ) +
  # 转为极坐标生成饼图
  coord_polar(theta = "y") +
  theme_void() + # 如果需要用你原本的theme_inset，直接替换此处即可
  # 按需求设置图例位置
  theme(legend.position = c(0.1, 0.8))

参数调整说明 #

• 调整geom_segment的linewidth数值可以修改黑边粗细
• 调整geom_segment里x、xend的数值，可以修改黑边和饼图主体的间距，数值越大黑边离饼图越远
• 最终效果完全匹配规则：A组黑边占扇形外沿50%，C组黑边全覆盖，B、D组无黑边。

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