par(mfrow=c(1,2)) gpa=c(0.36,0.16,0.65,0.04,0.1,0.3,0.2,0.2,0.48,0.29,0.56,0.30,0.18,0.17,0.09,0.42,0.66) gpb=c(0.13,0.45,0.22,0.18,0.11,0.46,0.16,0.38,0.23,0.3) gpc=c(0.49,0.13,0.64,0.39,0.18,0.34,0.19,0.99,1.24,0.53,0.27,0.59,0.24,1.31,0.73,0.24,1.54,1.45,1.59,0.44) boxplot(gpa,gpb,gpc, names=c('A','B','C'),ylab="concentration",main="Raw data") boxplot(log(gpa),log(gpb),log(gpc), names=c('A','B','C'),ylab="log concentration", main="Log transformed") par(mfrow=c(1,1))