如何在ggplot2中调整分组柱状图的x轴变量顺序

问题分析 #

你的x轴顺序混乱是因为ggplot默认会把字符型的x轴变量按字母顺序排序，而非原始数据的录入顺序。你提到用mutate处理时报错，大概率是因为没正确指定因子的levels，或是操作时机不对。

修复方案 #

核心思路是将x轴对应的样本列（即你代码里的sample_2）转换为因子类型，并明确指定因子的levels为原始数据中的样本顺序，这样ggplot就会严格按该顺序渲染x轴。

完整代码示例

先正确读取CSV数据（给第一列指定列名），再在转长格式前就把样本列转为因子：

library(tidyverse)

# 读取数据并指定列名
df <- read_csv(
  text = "sample_2,Var1,Var2,Var3,Var4
fH 40k,2.0005,2.0485,1.203,1.39525
fH 80k,1.379,1.50225,0.831,0.96325
fH 160k,0.92775,1.06125,0.5705,0.64425
fH 320k,0.7185,0.718,0.44025,0.48225
fH 640k,0.615,0.5325,0.43425,0.387
fH 1280k,0.56275,0.4285,0.3545,0.34925
fH 2560k,0.56825,0.424,0.307,0.32875
blank,0.55175,0.42975,0.3365,0.314
FP 10k,1.984,2.05375,1.217,1.26425
VP 10k,2.29,2.308,1.37375,1.39425",
  show_col_types = FALSE
)

# 将sample_2转为因子，levels沿用原始数据顺序
df <- df %>%
  mutate(sample_2 = factor(sample_2, levels = sample_2)) %>%
  pivot_longer(cols = c(2:5), names_to = "name", values_to = "value")

# 绘制分组柱状图
ggplot(df, aes(x = sample_2, y = value, fill = name)) +
  geom_bar(position = "dodge", stat = "identity") +
  # 可选：旋转x轴标签避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

关键说明

• 读取数据时必须给第一列指定列名（这里用sample_2和你代码中的x轴变量一致），否则第一列会被默认命名为X1，导致后续操作出错。
• mutate(sample_2 = factor(sample_2, levels = sample_2))是核心：levels = sample_2直接用原始数据中sample_2列的顺序作为因子水平顺序，转长格式后每个样本的重复行都会继承这个顺序属性，不会打乱。
• 若已读取数据，也可对长格式数据单独处理，确保levels为原始样本顺序：

  # 假设长格式数据为long_df
  long_df <- long_df %>%
    mutate(sample_2 = factor(sample_2, levels = unique(long_df$sample_2)))
  

  unique(long_df$sample_2)会保留原始数据的行顺序（tidyverse操作默认保留行顺序），同样生效。

之前mutate报错的原因 #

你之前报错大概率是因为没正确指定levels，或是在转长格式后修改时误操作了其他变量，未明确引用原始样本顺序。按上述先转因子再转长格式的方法，即可避免该问题。

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