如何按Y轴最大值对Range Plot（范围图）重新排序？

1. 解决Y轴（翻转后）按Max降序排序的问题 #

原代码中reorder()未生效的核心原因是**geom_linerange里重复指定了x = Letters，覆盖了主图层的排序规则**。只需移除geom_linerange中的x参数，让它继承主aes里的排序后轴即可。

2. 解决Min值重复绘制的问题 #

如果数据框中存在重复的Letters行（同一个字母对应多条Min/Max记录），会导致geom_point重复绘制点。可以通过去重确保每个Letters只保留一组Min/Max值，避免重复绘制。

修改后的完整代码 #

# 修正sample函数的取值问题，添加replace=TRUE生成8个值
Letters <- c("A","B","C","D","E","F","G","H")
Max <- sample(20:12, 8)
Min <- sample(11:5, 8, replace = TRUE)

df <- data.frame(Letters, Max, Min)

# 去重操作（如果原始数据存在重复行则保留，无重复可省略）
df <- df %>% distinct(Letters, .keep_all = TRUE)

df %>%
  ggplot(aes(x = reorder(Letters, -Max))) +  # 主图层指定按Max降序排序
  geom_linerange(aes(ymin = Min, ymax = Max),  # 移除x参数，继承主图层排序规则
                 size = 1.5, alpha = 0.25) +
  geom_point(aes(y = Max), colour = "tomato3") +
  geom_point(aes(y = Min), colour = "aquamarine4") +
  coord_flip() +
  ylab("Score Ranges") +
  theme_bw(base_size = 15) +
  theme(axis.title.y = element_blank())

关键说明 #

• 排序生效：主图层aes中用reorder(Letters, -Max)定义排序规则，所有几何对象继承该x轴配置，无需单独指定x参数。
• 避免重复点：通过distinct(Letters, .keep_all = TRUE)确保每个字母仅保留一行数据，保证每个Min/Max值只绘制一次点。

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