R语言ggplot2如何按深度分布重排分类单元绘制散点图

核心原理 #

ggplot2的分类坐标轴排布顺序由映射到轴上的分类变量因子水平决定：y轴的分类项会默认按照因子水平的顺序，从轴的最底端向最顶端依次排列。
要实现「仅出现在1~2个深度层的分类单元在y轴顶部、覆盖深度带越多的分类单元越靠下」的效果，只需要提前统计每个分类单元的深度覆盖度，再将分类变量转为按覆盖度降序排列的因子即可——覆盖度越高的分类单元因子水平越靠前，就会显示在y轴越靠下的位置，刚好匹配需求。

操作步骤 #

• 加载数据处理依赖包dplyr，未安装可先执行install.packages("dplyr")完成安装
• 按ScientificName分组，统计每个分类单元对应的不重复深度层数量（如果是连续深度数据，可替换为统计深度分布极差）
• 用reorder()函数重排ScientificName的因子水平，按深度覆盖度降序排列
• 复用原有绘图代码即可，不需要修改散点图层、主题的原有参数

完整可运行代码 #

library(dplyr)
library(ggplot2)

# 数据预处理
df <- df %>%
  group_by(ScientificName) %>%
  # 统计每个分类单元覆盖的不重复深度层数量
  # 如果你的深度是连续值、需要按分布范围排序，替换为下一行代码即可：
  # mutate(depth_cover = max(DepthInMeters) - min(DepthInMeters))
  mutate(depth_cover = n_distinct(DepthInMeters)) %>%
  ungroup() %>%
  # 按深度覆盖度降序重排因子水平
  mutate(ScientificName = reorder(ScientificName, -depth_cover))

# 绘图
ggplot(df) + 
  geom_point(mapping = aes(x = DepthInMeters, 
                           y = ScientificName), 
             size = 1, 
             shape = 12, 
             colour = "blue") + 
  theme(axis.text.y = element_text(color = "grey20"))

效果参考 #

你当前未排序的绘图效果如下，跑完上述代码后，y轴会自动按深度覆盖规则完成排序：

小提示：如果需要调整排序方向，只需要把reorder()里的-depth_cover改成depth_cover，就会变成覆盖深度越多的分类单元排在y轴顶部。

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