data("rimov")
groups <- factor(c(rep(1, times=12), rep(2, times=12), rep(3, times=12)))
for(i in 1:3)
assign(paste0("p", i), plot(subset(rimov, groups==i)) +
ggplot2::labs(title=paste("Group ", i, sep=""), y="Temperature"))
p3
if(require("patchwork", quietly=TRUE))
p1 + p2 + p3
# See example analysis in ?graph.fanova
Run the code above in your browser using DataLab