agricolae包装条组x轴标签方向

我用agricolae进行了一次LSD测试，输出的字母被分配给不同的组，表示哪些组之间存在显著差异。我希望能够生成一个条形图，显示每个条形图上方的字母，以便很容易看到哪些治疗方法彼此之间存在显著差异

我曾尝试使用“bar.group”函数生成一个效果很好的图形，但是由于我有13种不同的处理方式，x轴标签重叠

我想将x轴标签的方向更改为90度，或者，如果这不可能，请找到另一种方法来绘制条形图，将重要性显示为每个条形上方的字母

我用来生成绘图的当前代码是

条形组（细分LSD$组，ylim=c（0100））

下面是我正在处理的数据示例

structure(list(treatment = structure(c(1L, 1L, 1L, 1L), .Label = c("0.5 Fungaflor", 
"0.5 Tecto", "0.5 Tecto Fungaflor", "1 Fungaflor", "1 Tecto", 
"1 Tecto Fungaflor", "2 Fungaflor", "2 Tecto", "2 Tecto Fungaflor", 
"4 Fungaflor", "4 Tecto", "4 Tecto Fungaflor", "Water"), class = "factor"), 
    breakdown = c(11.11111111, 16.66666667, 20, 16.66666667), 
    stems = c(2.888888889, 2.916666667, 3.2, 3.166666667), tubers = c(6.666666667, 
    9.166666667, 8.466666667, 9.5), stemtubers = c(2.307692308, 
    3.142857143, 2.645833333, 3)), .Names = c("treatment", "breakdown", 
"stems", "tubers", "stemtubers"), row.names = c(NA, 4L), class = "data.frame")

---

如果我正确理解你的问题，这应该是一个非常容易解决的问题。我不熟悉bar.group（）函数，但是，在内部使用las=2是旋转轴标签的一般方法。如果这不起作用，并且您不能使用rbase barplot（）函数，我只需删除x xasis（通常通过包含xaxt=“”），然后在barplot（）或bar.group（）命令之后添加一个新的Axis，并使用一个单独的命令

至于重要性标签。可以使用text（）命令（应该在graph命令之后）将它们添加到绘图中。只需给出x和y坐标，并包括标签

text(x=breakdown.LSD$groups, y = , 
labels = c("Whatever","Your","labels","Are"))

---

希望这能有所帮助。

我认为如果您提供一个包含一些数据的示例会更好。我已经添加了数据集，但由于我是一个新用户，我无法展示我生成的图形的图片，以进一步突出显示情况请参见如何使用

dput

复制数据。你可以找到创建一个最小示例的一般说明。我想我已经按照你现在要求的格式提供了示例数据。威廉，我不是在“问”，我是在试图帮助你问一个更好的问题。

text(x=breakdown.LSD$groups, y = , 
labels = c("Whatever","Your","labels","Are"))