R语言画图，很全！对号使用！

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)

R

dev.new() dev.set(dev.next()) hist(x$x1) dev.off()

R

dev.new() dev.set(dev.next()) plot(x$x1,x$x2) dev.off()

R

dev.new() dev.set(dev.next()) barplot(table(x$x1)) dev.off()

R

dev.new() dev.set(dev.next()) pie(table(x$x1)) dev.off()

R

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

R

dev.new() dev.set(dev.next()) boxplot(x[2:4],col=c("red","green","blue"),notch=T) dev.off()

R

dev.new()

R