如何在ggplot水平条形图中按ALPHA值排序Y轴？

需求说明 #

让两个分面（ALPHA和BETA）的条形图Y轴统一按照ALPHA组的X值排序，最终Y轴顺序为E、D、B、C、A。

原始代码 #

set.seed(123)
df <- data.frame(
  X = c(runif(5, 0,1000), runif(5, -500,500)),
  Y = rep(LETTERS[1:5],2),
  Z = c(rep("ALPHA",5),rep("BETA",5))
)
ggplot(df, aes(y = Y, x = X)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  facet_grid(. ~ Z, scales = "free_x", space = "free_x") +
  labs(y = "", x = "", title = "This is my visualization")

解决方案 #

核心是将Y转换为因子，通过设置因子的水平顺序，让ggplot按指定规则渲染Y轴。

步骤1：获取目标Y轴顺序 #

从ALPHA组数据中，按X值降序提取对应的Y值，得到需求的顺序：

library(dplyr)
# 提取ALPHA组并按X降序排序，得到Y的目标顺序
sorted_y_order <- df %>% 
  filter(Z == "ALPHA") %>% 
  arrange(desc(X)) %>% 
  pull(Y)

运行后sorted_y_order的结果即为E, D, B, C, A。

步骤2：转换Y为指定顺序的因子 #

将原数据框中的Y转换为因子，水平设置为上面得到的目标顺序：

df$Y <- factor(df$Y, levels = sorted_y_order)

步骤3：重新绘图 #

使用处理后的数据绘图，Y轴会自动按指定顺序排列：

ggplot(df, aes(y = Y, x = X)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  facet_grid(. ~ Z, scales = "free_x", space = "free_x") +
  labs(y = "", x = "", title = "This is my visualization")

完整代码 #

library(ggplot2)
library(dplyr)

set.seed(123)
df <- data.frame(
  X = c(runif(5, 0,1000), runif(5, -500,500)),
  Y = rep(LETTERS[1:5],2),
  Z = c(rep("ALPHA",5),rep("BETA",5))
)

# 获取ALPHA组排序后的Y顺序
sorted_y_order <- df %>% 
  filter(Z == "ALPHA") %>% 
  arrange(desc(X)) %>% 
  pull(Y)

# 转换Y为因子
df$Y <- factor(df$Y, levels = sorted_y_order)

# 绘图
ggplot(df, aes(y = Y, x = X)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  facet_grid(. ~ Z, scales = "free_x", space = "free_x") +
  labs(y = "", x = "", title = "This is my visualization")

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