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