R语言绘图X轴顺序错乱：试次区块10排在1后的技术问询

问题根源 #

你碰到的这个情况我太熟悉啦！核心原因是rownames(meanstall1)返回的是字符类型的试次编号（比如"1","2",..."10"），R对字符的排序是按字典序来的：逐个字符对比，"10"的第一个字符是"1"，和"1"一致，但第二个字符"0"的ASCII码比"2"小，所以就被排在了"1"之后、"2"之前，完全不符合我们想要的数值顺序。

两种快速解决方案 #

方案1：把trials列转成数值型并排序

直接修改你代码里生成trials列的部分，把字符型行名转成数值，再按试次排序就能搞定：

library(dplyr)
library(reshape2)

All1 <- mydata[,c(36:45,98)]
meansall1 <- aggregate(All1[, 1:(ncol(All1)-1)], list(All1$Group), mean)
tmeansall1 <- data.frame(t(meansall1))
names(tmeansall1) <- c("AN", "HC")
meanstall1 <- tmeansall1[-1,]

# 关键修改：将字符型行名转为数值型试次编号
meanstall1$trials <- as.numeric(rownames(meanstall1))
# 按试次数值排序，确保后续绘图顺序正确
meanstall1 <- meanstall1 %>% arrange(trials)

meltall1 <- melt(meanstall1, id.vars = "trials", variable.name = "Group", value.name = "Mean")
# 之后绘图时用trials（数值型）做X轴，就能得到1→10的正确顺序

方案2：直接生成数值型试次编号

因为你的试次刚好是1到10（对应All1的10列），完全可以跳过行名，直接生成连续的数值序列：

# 替换原来的meanstall1$trials <- rownames(meanstall1)这一行
meanstall1$trials <- 1:nrow(meanstall1)

效果验证 #

修改后，meanstall1$trials会变成1,2,3,...,10的数值型向量，不管是后续melt数据还是绘图，X轴都会按正常的数值顺序排列，试次10终于会乖乖待在最后啦！

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