R中晶格bwplot上的Anova posthoc标签

Question

我想将事后分析后的重要性标签添加到R中lattice包中的函数bwplot中。我已经阅读了ggplot2中anova boxplot上Posthoc标签中基于ggplot2的解决方案，但是这样做没有在lattice框架内显示解决方案。 这里有没有人尝试过此方法并且可以给我一些指导？ 如果有某种方法可以从bwplot对象派生位置（如R邮件列表中本文针对常规boxplot对象所建议的那样），我想我应该朝那个方向发展吗？ 提前致谢！

亲切的问候，

调频

Answer 1

如果您使用交互命令或多个命令的脚本构建你的情节，你可以随时使用手动添加文本grid.text因为这两个lattice和ggplot2使用grid罩下的图形。 因此，请查看此链接 （因为?grid.text不会指向该页面）。 您将需要监视单位，并且可能需要执行upViewport(0)才能到达根视口（取决于绘制步骤的详细信息）。

Answer 2

我不确定您要在哪里panel.text标签，但这是使用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", "***"), ...)
       })