使用agricolae软件包中的bar.err函数，手动重新排列x-tick标签并将其旋转到45˚。
对于重新排列x-tick标签，我尝试使用xaxt =“ n”和axis（）。 为了旋转x-tick标签，我尝试使用str。
这些是我使用的编码：
请在https://drive.google.com/file/d/1aQuOODDLtkUI5K97f-HvXutxfX79v38Z/view?usp=sharing上找到复制数据的链接。
模型<-with（df，sp.plot（block，num，treatment，response））
gla <-model $ gl.a
glb <-model $ gl.b
Ea <-model $ Ea
Eb <-model $ Eb
out <-with（df，LSD.test（response，num：treatment，glb，Eb，console = T））
bar.err（out $ means，variation =“ SE”，ylim = c（0,60），xaxt =“ n”）
x <-c（“ 100：a”，“ 100：b”，“ 20：a”，“ 20：b”，“ 40：a”，“ 40：b”，“ 60：a”， “ 60：b”， “ 80：a”，“ 80：b”）
dfx <-data.frame（out $ means，x）
lab <-c（“ 20：a”，“ 20：b”，“ 40：a”，“ 60：a”，“ 80：a”，“ 100：a”，“ 40：b”， “ 60：b”， “ 80：b”，“ 100：b”）
轴（侧面= 1，at = dfx $ x，标签=实验室）
要旋转x-tick标签，我不确定如何在编码中包含str。
要重新排列x-tick标签，它不能很好地对齐，并且数据没有按照我的实验室进行排列。
有人可以提供正确的编码来使用吗？预先感谢。