001、生成测试数据以及测试
library(ggplot2) x <- paste0("s", 1:16) y <- 4:19 dat <- data.frame(x, y) ## 生成测试数据框 dim(dat) head(dat, 3) ggplot(dat,aes(x,y))+ geom_point() ## 直接绘制散点图
绘图结果如下，可见并不是按照原始数据中的顺序输出绘图结果：
002、保持绘图的顺序跟原始数据的一致
library(ggplot2) x <- paste0("s", 1:16) y <- 4:19 dat <- data.frame(x, y) ## 生成测试数据，跟001中保持一致 dim(dat) head(dat, 3) dat$x <- factor(dat$x,level = dat[,1]) ## 对dat中的x列进行转换 ggplot(dat,aes(x,y))+ geom_point()
如下为绘图结果，可见顺序与原始数据中的顺序一致：
参考：https://blog.csdn.net/weixin_56198196/article/details/124518774