1、箱线图
data=data.frame(x=rnorm(12),y=rep(1:3,each=4))
par(mfrow = c(1,4))
boxplot(data$x)
boxplot(x~y,data=data)
boxplot(x~y,data=data,col = c("red","green","blue"))
boxplot(x~y,data=data,col = c("red","green","blue"),horizontal=TRUE)
2、散点图
arr<-array(1:10)
plot(arr)
title(main = 'agb~sp',sub="R side text")
text(x=6, y = 4, labels = "R Graphics", cex = 2, srt=45)
3、无坐标散点图
set.seed(10)
data<-c(sample(1:20,10))
plot(data,main="agb~sp",xlab="agb",ylab="sp",sub="gts",col="blue",pch = 17,lty = 2,lwd = 2,axes = F)