https://github.com/kwstat/desplot
library(desplot)
desplot(yield ~ Col*Row|Loc, MET,
out1=Rep, out2 = Block,
out2.gpar=list(col = "gray50", lwd = 1, lty = 1))

https://github.com/kwstat/desplot
library(desplot)
desplot(yield ~ Col*Row|Loc, MET,
out1=Rep, out2 = Block,
out2.gpar=list(col = "gray50", lwd = 1, lty = 1))