如何在ggplot分面中保留数据原始顺序并设置不同x轴？

需要创建满足以下两个要求的分面图：

• 两个分面拥有独立的x轴
• x轴顺序与数据框中变量的出现顺序完全一致

示例代码如下：

part <- as.factor(c("A","A","A","B","B","B"))
word <- c("dog", "cat", "fish", "hamster", "dog", "eagle")
order <- c(1,2,3,4,5,6)
val <- c(1,2,3,3,2,1)
df <- as.data.frame(cbind(part,order,word,val))
ggplot(df, aes(x=word, y=val))+
facet_wrap(part, scales = "free_x")+ 
geom_point()

当前代码生成的图表存在问题：

• Part A的x轴应为dog、cat、fish，实际顺序不符
• Part B的x轴应为hamster、dog、eagle，实际顺序也不对

尝试过scales="free_x"但无效；将word设为有序因子时，因dog在两个分面中顺序不同，无法满足需求。

方法1：无需额外包，手动映射x轴标签 #

直接用order作为x轴映射变量，通过scale_x_continuous设置每个刻度对应的word标签，配合scales="free_x"实现分面独立x轴：

library(ggplot2)

# 重新构建数据框，避免cbind导致的类型转换问题
part <- as.factor(c("A","A","A","B","B","B"))
word <- c("dog", "cat", "fish", "hamster", "dog", "eagle")
order <- c(1,2,3,4,5,6)
val <- c(1,2,3,3,2,1)
df <- data.frame(part, order, word, val)

ggplot(df, aes(x = order, y = val)) +
  geom_point() +
  facet_wrap(~part, scales = "free_x") +
  scale_x_continuous(
    breaks = df$order,
    labels = df$word,
    expand = c(0.1, 0.1)  # 调整轴边距，避免点贴到边缘
  )

该方法会让每个分面的x轴按order的顺序排列，同时显示对应的word文本，完全符合需求。

方法2：使用ggh4x包支持分面内因子顺序 #

若希望直接用word作为x轴映射，可使用ggh4x包的facet_wrap2函数，它支持分面内的独立因子顺序：

# 安装并加载包
install.packages("ggh4x")
library(ggh4x)
library(dplyr)

# 为每个part分组创建独立的有序word因子
df <- df |>
  group_by(part) |>
  mutate(word = factor(word, levels = word, ordered = TRUE)) |>
  ungroup()

# 绘图
ggplot(df, aes(x = word, y = val)) +
  geom_point() +
  facet_wrap2(~part, scales = "free_x")

此方法会让每个分面的word按照该分组内的出现顺序排列，满足需求。

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