R中格bwplot上的Anova posthoc标号

Question

我想在事后分析之后将重要性标签添加到R中lattice包的bwplot函数中。我已经阅读了Posthoc labels on anova boxplot in R中的ggplot2-based解决方案，但是这并没有显示lattice框架内的解决方案。这里有没有人曾经尝试过，可以给我一些建议？如果有某种方法可以从bwplot对象导出位置(就像this article in the R mailing list中的常规boxplot对象所建议的那样)，我猜我应该朝那个方向看？提前感谢！

致以亲切的问候，

调频

Answer 1

如果使用交互式命令或包含多个命令的脚本构建绘图，则始终可以使用grid.text手动添加文本，因为lattice和ggplot2都在幕后使用grid图形。因此，请查看此link (因为?grid.text不会指向该页面)。您需要查看您的单位，并且可能需要执行upViewport(0)才能到达根视口中(取决于绘图步骤的详细信息)。

Answer 2

我不确定您想要标签放在哪里，但这里有一个使用panel.text的替代方案。

dd <- data.frame(
  x = runif(120),
  ind = LETTERS[1:6]
)

library(lattice)

bwplot(ind ~ x, data = dd,
       panel = function(x, y, ...) {
         panel.bwplot(x, y, ...)
         panel.text(x = tapply(x, y, median), y, pos = 2, offset = 1, 
                    labels = c("*", "**", "", "", "ns", "***"), ...)
       })

​

​