attach(warpbreaks)
boxplot(warpbreaks$breaks~tension,col=heat.colors(2),
main=list(“breaks按照tension分类的箱线图”,font=4,col=“red”,cex=1.5),
xlab=“wool”,ylab=“breaks”)
barplot(as.matrix(warpbreaks[“breaks”]),beside=T,col=cm.colors(3),main=“warbreaks的”)
op<-par(mfcol=1:2)
barplot(as.matrix(warpbreaks[“breaks”]),beside=TRUE,col=cm.colors(5),main=“warpbreaks的网格图”)
grid()
barplot(warpbreaks[“breaks”],beside=TRUE,col=cm.corlors(5),main=“warpbreaks的网格图”)
grid(NA,7,lty=,lwd=1.5,col=“green”)
par(mfcol=c(1,1))