如何在ggplot的geom_polygon散点饼图中添加连接线段？

这个错误的核心原因是**geom_segment默认使用了主绘图数据（也就是polygon.df），但edge.df的变量长度和polygon.df不一致**，或者你没有明确指定geom_segment要使用的数据集。

正确的解决步骤： #

1. 给geom_segment单独指定数据集
   一定要在geom_segment里加上data=edge.df，让ggplot知道这段线段用的是独立的边缘数据，而非饼图的多边形数据。

2. 检查edge.df的结构
   确保edge.df里的x、xend、y、yend这四个坐标变量长度完全一致——每条线段对应一行数据，每行包含起点（x,y）和终点（xend,yend）的坐标。

示例代码参考： #

library(ggplot2)

# 模拟你的饼图多边形数据
polygon.df <- data.frame(
  group = rep(c("组1", "组2"), each = 4),
  x = c(0.5 + cos(seq(0, 2*pi, length.out = 5)[-5]), 
        1.8 + cos(seq(0, 2*pi, length.out = 5)[-5])),
  y = c(0.5 + sin(seq(0, 2*pi, length.out = 5)[-5]), 
        1.8 + sin(seq(0, 2*pi, length.out = 5)[-5]))
)

# 模拟你的边缘连接数据（每条线段一行）
edge.df <- data.frame(
  x = c(0.5, 1.8),
  xend = c(1.2, 1.2),
  y = c(0.5, 1.8),
  yend = c(1.2, 1.2)
)

# 正确绘图：分开指定各图层的数据集
ggplot() +
  # 绘制饼图多边形
  geom_polygon(data = polygon.df, 
               aes(x = x, y = y, group = group, fill = group)) +
  # 绘制连接线段，明确指定用edge.df
  geom_segment(data = edge.df, 
               aes(x = x, xend = xend, y = y, yend = yend),
               color = "darkred", size = 1) +
  coord_equal() # 保持笛卡尔平面的等比例，避免饼图变形

额外排查点： #

• 不要在geom_segment的aes里引用polygon.df的变量（比如group），除非你确实需要基于饼图分组生成线段，且edge.df的分组变量长度匹配
• 用str(edge.df)查看数据结构，确认所有坐标变量都是长度相同的向量，没有缺失值

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