R 4.2.1中PieDonut环形图标签重叠：如何偏移或旋转标签？

针对环形（Donut）部分标签聚集的问题，可以通过调整标签偏移距离和添加标签旋转来解决，以下是具体修改方案：

方案一：调整标签偏移距离 #

直接调大labelposition参数（控制标签到中心的距离，数值越大越向外），同时可微调标签大小保证可读性：

library(ggiraphExtra)
library(ggplot2)

# 加载你的数据
data <- structure(list(Detail = c("Payroll", "Lab services", "Distribution", 
"Office supplies", "Tech supplies", "Dental supplies", "Loan", 
"Rent", "Taxes", "Processing fees", "Misc", "One time", "Unknown", 
"CDA Dues", "Housekeeping", "CME", "Accounting services", "Utilities", 
"Gas", "Car", "Life insurance", "Insurance", "Lunch"), Category = c("Payroll", 
"Lab", "Distribution", "Supplies", "Supplies", "Supplies", "Loan", 
"Rent", "Taxes", "Misc", "Misc", "Misc", "Misc", "Services", 
"Services", "Services", "Services", "Services", "Car", "Car", 
"Insurance", "Insurance", "Lunch"), Amount = c(55879.8, 18000, 
15000, 1527.7, 3269.96, 8005.54, 9106.06, 6509, 5468, 15, 180.23, 
529.06, 2629.6, 167.92, 250, 448, 550, 590.1, 269.47, 406.99, 
101.47, 719.34, 110.33)), class = "data.frame", row.names = c(NA, 
-23L))

# 修改后的PieDonut代码
p <- PieDonut(data, aes(Category, Detail, count=Amount), title = "June", 
              showRatioDonut = FALSE, showRatioPie = FALSE, pieLabelSize = 3,
              labelposition = 13, # 调大此值让标签向外偏移
              labelpositionThreshold = 1, use.label = TRUE,
              donutLabelSize = 3, showRatioThreshold = FALSE)
print(p)

方案二：添加标签旋转 #

如果单纯偏移仍有重叠，可以给环形标签添加旋转角度，让标签沿环形弧度排列：

# 在方案一的基础上，修改环形标签的旋转角度
# 环形标签对应第2个geom_text图层
p$layers[[2]]$aes_params$angle <- 45  # 可根据需要调整为30/60度
p$layers[[2]]$aes_params$hjust <- 0   # 左对齐保证旋转后标签位置合理

print(p)

额外优化：自动避免标签重叠（可选） #

如果上述方法仍有重叠，可使用ggrepel包替换原标签，自动调整标签位置：

library(ggrepel)

# 移除原环形标签图层
p$layers <- p$layers[-2]

# 添加自动避重的标签图层
p + geom_text_repel(data = ggplot_build(p)$data[[2]],
                    aes(x = x, y = y, label = label),
                    size = 3, # 对应原donutLabelSize
                    min.segment.length = 0)

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