dat <- mead.strawberry
dat$sub <- ifelse(is.element(dat$gen, c('G', 'V', 'R1', 'F')),
"S1","S2")
desplot(yield~col*row, dat, text=gen, cex=1, out1=block, out2=sub,
main="mead.strawberry")Run the code above in your browser using DataLab