Anova posthoc labels on bwplot from lattice in R

Question

I would like to add significance labels following out of post-hoc analysis to box-and-whiskerplots from the function bwplot from the lattice package in R. I have read the ggplot2-based solution in Posthoc labels on anova boxplot in R however this does not show a solution within the lattice framework. Is there anyone here that has tried this before and could give me some pointers? If there is some way to derive the positions from a bwplot object (as suggested for a regular boxplot object in this article in the R mailing list) I am guessing I should be looking in that direction? Thanks in advance!

Kind regards,

FM

An example might increase participation. If you just want the text annotations to match those on the ggplot2 example you can always copy and paste code into your question to provide an example. — IRTFM, Feb 14 '13 at 15:26

score 0 · Answer 1 · answered Feb 14 '13 at 15:53

If you are constructing your plot using interactive commands or a script of several commands, you can always manually add text using grid.text because both lattice and ggplot2 use grid graphics under the hood. So check out this link (because ?grid.text doesn't lead to the page). You'll want to watch your units and you may need to do upViewport(0) to get to the root viewport (depending upon the details of your plotting steps).

score 0 · Answer 2 · answered Feb 20 '17 at 07:07

I'm not sure where you wanted your labels, but here's an alternative using 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", "***"), ...)
       })

Imgur

Anova posthoc labels on bwplot from lattice in R

2 Answers2