创建数据
num=seq(10378001,10378100)
x1=round(runif(100,min=80,max=100))
x2=round(rnorm(100,mean=80,sd=7))
x3=round(rnorm(100,mean=83,sd=18))
x3[which(x3>100)]=100
x=data.frame(num,x1,x2,x3)
作图
dev.new()
dev.set(dev.next())
hist(x$x1)
dev.off()
![####[]()](https://i-blog.csdnimg.cn/blog_migrate/09dab60d4a92070d37cf394f29c02843.jpeg)
dev.new()
dev.set(dev.next())
plot(x$x1,x$x2)
dev.off()
![####[]()](https://i-blog.csdnimg.cn/blog_migrate/2df1bda7a80c5ecfe81c5e12cb1abe55.jpeg)
dev.new()
dev.set(dev.next())
barplot(table(x$x1))
dev.off()
![####[]()](https://i-blog.csdnimg.cn/blog_migrate/103a118a9a8f932c6e31f4568e066573.jpeg)
dev.new()
dev.set(dev.next())
pie(table(x$x1))
dev.off()
![####[]()](https://i-blog.csdnimg.cn/blog_migrate/bc05949bec21661d9e81df416695b87e.jpeg)
dev.new()
dev.set(dev.next())
boxplot(x$x1,x$x2,x$x3)
dev.off()
![####[]()](https://i-blog.csdnimg.cn/blog_migrate/e07b7c24a21f67ec25c28ebca943e788.jpeg)
dev.new()
dev.set(dev.next())
boxplot(x[2:4],col=c("red","green","blue"),notch=T)
dev.off()

dev.new()
dev.set(dev.next())
boxplot(x$x1,x$x2,x$x3,horizontal=T)
dev.off()