如何避免ggplot中geom_segment线段重叠，实现SPI2式展示效果

我希望ggplot中geom_segment的线段在物种组的点之间不重叠，完全像上方的索引变量SPI2那样展示。中心黑点代表所有组的相关性，彩色元素对应各组的相关性。不是指使用position_dodge()实现平行效果，目前线段颜色与点不匹配，需要让更短的线段显示在最前面。

示例数据与初始代码如下：

cor_join <- data.frame(
  index = c("SPEI1","SPEI1","SPEI1","SPEI1",
           "SPI1","SPI1","SPI1","SPI1",
           "SPI2","SPI2","SPI2","SPI2"),
  species = c("Pine","Oak","Birch","Spruce",
              "Pine","Oak","Birch","Spruce",
              "Pine","Oak","Birch","Spruce"),
  cor_species = c(0.8, 0.88, 0.94, 0.71,
                  0.94, 0.71, 0.37, 0.85,
                  0.21, 1, 0.4, 0.42),
  cor_all = c(0.7584332, 0.7584332, 0.7584332, 0.7584332,
              0.7819371, 0.7819371, 0.7819371, 0.7819371,
              0.8596302, 0.8596302, 0.8596302, 0.8596302))

ggplot(cor_join, aes(x = cor_all, xend = cor_species, y = index)) +
  geom_segment(aes(color = species), lwd=1) +
  geom_point(aes(x = cor_species, color = species)) +
  geom_point(aes(x = cor_all), color = "black", size = 2)+
  theme_bw()

要实现需求，核心是控制元素的绘制顺序，让短线段显示在最上层，同时确保颜色映射一致。具体步骤：

1. 计算每条线段的水平长度：用abs(cor_species - cor_all)获取线段长度
2. 对数据框按线段长度降序排序：长线段排在前面先绘制（底层），短线段排在后面后绘制（顶层），避免被长线段遮挡
3. 保持species的颜色映射统一，确保线段和点颜色匹配

修改后的代码：

library(ggplot2)

# 计算线段长度并按长度降序排序数据
cor_join <- cor_join |>
  mutate(seg_length = abs(cor_species - cor_all)) |>
  arrange(desc(seg_length))

ggplot(cor_join, aes(x = cor_all, xend = cor_species, y = index)) +
  # 按排序后的顺序绘制线段，长线段先画（底层），短线段后画（顶层）
  geom_segment(aes(color = species), lwd=1) +
  # 按相同顺序绘制物种点，颜色自动匹配
  geom_point(aes(x = cor_species, color = species)) +
  # 总相关性黑点最后绘制，确保显示在最上层
  geom_point(aes(x = cor_all), color = "black", size = 2) +
  theme_bw()

• 绘制顺序逻辑：ggplot遵循"先绘底层，后绘顶层"的规则，数据框中先出现的行对应的元素会被后出现的元素覆盖。通过降序排序线段长度，让短线段最后绘制，自然显示在最上层。
• 颜色匹配：线段和点都基于同一数据框的species字段映射颜色，且使用相同的绘制顺序，颜色会完全对应。
• 总相关性黑点：放在最后绘制，确保它始终显示在所有线段和点的上方，符合需求。

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