Anova posthoc在R的格子上的bwplot标签

Question

我想在事后分析之后将重要性标签添加到来自R中bwplot包的函数lattice的box-whiskerpots中。我已阅读{{1} Posthoc labels on anova boxplot in R中基于}的解决方案但是这并没有在ggplot2框架内显示解决方案。这里有没有人尝试过这个，可以给我一些指示？ 如果有某种方法可以从bwplot对象中获取位置（正如this article in the R mailing list中常规的boxplot对象所建议的那样）我猜我应该朝这个方向看？ 提前谢谢！

亲切的问候，

FM

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", "***"), ...)
       })