来自R中的格子的bwplot上的Anova posthoc标签答案

【问题标题】：Anova posthoc labels on bwplot from lattice in R来自R中的格子的bwplot上的Anova posthoc标签
【发布时间】：2013-02-14 14:57:25
【问题描述】：

我想在 R 中的 lattice 包中的函数 bwplot 中添加事后分析后的显着性标签。我已阅读 @ 中基于 ggplot2 的解决方案987654321@ 但是这并没有显示lattice 框架内的解决方案。这里有没有人曾经尝试过这个并且可以给我一些指示？如果有某种方法可以从 bwplot 对象中获取位置（如this article in the R mailing list 中的常规箱线图对象所建议的那样），我猜我应该朝那个方向看？提前致谢！

亲切的问候，

调频

【问题讨论】：

一个例子可能会增加参与度。如果您只是希望文本注释与 ggplot2 示例中的注释相匹配，您可以随时将代码复制并粘贴到您的问题中以提供示例。

标签： r lattice posthoc

【解决方案1】：

如果您使用交互式命令或多个命令的脚本构建绘图，您始终可以使用 grid.text 手动添加文本，因为 lattice 和 ggplot2 都使用 grid 图形在引擎盖下。所以看看这个link （因为?grid.text 不会导致页面）。您会想要观察您的单位，并且您可能需要执行 upViewport(0) 才能到达根视口（取决于您的绘图步骤的详细信息）。

【讨论】：

【解决方案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", "***"), ...)
       })

【讨论】：