data(Data)
# \donttest{
ggplot2::ggplot(Data,ggplot2::aes(x=Sites,y=Yield,col=Genotype))+
ggplot2::geom_boxplot()+
ggplot2::facet_grid(Sowing~Nitrogen,labeller =ggplot2::label_both)+
ggplot2::ylab(bquote('Wheat yield (ton' %.%'ha'^'-1'*')'))
# }
Run the code above in your browser using DataLab