################################################################################### # # Plot multiple bos-plots # # Last review: 17/06/2018 # email: ja@fct.unl.pt # ################################################################################### ################################################################################### varlistindex <- c(5:11) plotlog=FALSE titleGRAPH <- "Box-plots das variáveis em estudo" ################################################################################### par(mfrow=c(1,1), mar=c(3.5, 3.5, 2, 1), mgp=c(2.25, 0.8, 0)) # # Duplicate gtd -> gtdnew # gtdnew <- data.frame(gtd[,varlistindex]) names(gtdnew)=names(gtd)[varlistindex] # # Graphics # if (plotlog) llog="y" else llog="" boxplot(gtdnew[,1:length(varlistindex)], names = names(gtdnew), main = titleGRAPH , las = 1, log=llog, col = c("white"), border = "black", horizontal = FALSE, notch = FALSE, range=0)