Multiple Box Plot
PRE representation with Box plots
x1=c(146.01,142.36,147.05,141.63,135,129.54,121.17,108.60,103.89)
y1=c(210.21,200.15,189.75,175.54,163.71,143.11,141.28,133.36,128.39)
par(mfrow=c(3,2))
boxplot(x1,y1,staplewex = 1, horizontal=T, col=c("white","light gray"),
main="Population 1", xlab="Summary Statistics" , yaxt="n" )
legend("bottomright",legend=c("PRE(1)","PRE(2)"),fill=c("white","light grey"), cex=0.8)
##############################################################################################
x2=c(120.23,130.75,135.67,121.65,118.24,145.29,111.24,109.221,104.23)
y2=c(185.33,171.28,155.75,145.38,139.25,141.55,126.37,120.13,118.36)
boxplot(x2,y2,staplewex = 1, horizontal=T, col=c("white","light gray"),
main="Population 2", xlab="Summary Statistics" , yaxt="n" )
legend("bottomright",legend=c("PRE(1)","PRE(2)"),fill=c("white","light grey"), cex=0.8)
##############################################################################################
x4=c(147.01,140.11,134.89,130.19,128.21,144.78,119.14,116.87,113.37)
y4=c(115.15,121.14,130.14,125.49,121.11,118.97,116.14,111.59,108.07)
boxplot(x4,y4,staplewex = 1, horizontal=T, col=c("white","light gray"),
main="Population 3", xlab="Summary Statistics" , yaxt="n" )
legend("topright",legend=c("PRE(1)","PRE(2)"),fill=c("white","light grey"), cex=0.8)
#########################################################################################################
x3=c(115.14,118.23,123.37,117.24,112.32,109.21,107.24,102.04,101.10)
y3=c(140.21,131.21,126.27,119.23,114.36,110.36,108.96,104.36,102.30)
boxplot(x3,y3,staplewex = 1, horizontal=T, col=c("white","light gray"),
main="Population 4", xlab="Summary Statistics" , yaxt="n" )
legend("bottomright",legend=c("PRE(1)","PRE(2)"),fill=c("white","light grey"),cex=.8)
##################################################################################################################
x5=c(125.21,140.32,151.21,145.32,138.32,129.75,121.32,115.23,110.32)
y5=c(190.21,175.45,160.24,149.32,141.99,134.91,118.79,114.66,106.21)
boxplot(x5,y5,staplewex = 1, horizontal=T, col=c("white","light gray"),
main="Population 5", xlab="Summary Statistics" , yaxt="n" )
legend("bottomright",legend=c("PRE(1)","PRE(2)"),fill=c("white","light grey"),cex=.8)
##############################################################################################
y6=c(246.10,225.17,212.99,199.15,184.23,174.21,160.19,145.45,135.78)
x6=c(185.25,196.24,201.69,187.14,174.21,158.35,143.99,132.88,128.71)
boxplot(x6,y6,staplewex = 1, horizontal=T, col=c("white","light gray"),
main="Population 6", xlab="Summary Statistics" , yaxt="n" )
legend("bottomright",legend=c("PRE(1)","PRE(2)"),fill=c("white","light grey"),cex=.8)
Please write in the Comment Box
Comments
Post a Comment