R语言图形绘制

（1）条形图

复制代码

> barplot(c(1,2,4,2,6,4,3,5))

复制代码

> barplot(c(1,2,4,2,6,4,3,5),horiz = TRUE)

复制代码

#beside=TRUE 表示将多个组别的图形并排显示，使它们在水平方向上对齐
#而当 beside=FALSE（默认值）时，多个组别的图形会堆叠在一起
> data <- matrix(c(4, 5, 2, 6, 3, 7), nrow = 2)
> colnames(data) <- c("Group A", "Group B", "Group C")
> barplot(data, beside = TRUE)
> 
> data
     Group A Group B Group C
[1,]       4       2       3
[2,]       5       6       7

复制代码

> library(vcd)
载入需要的程辑包：grid
> data("Arthritis")
> counts<-table(Arthritis$Improved)
#使lab可以旋转
> par(las=2)
> barplot(counts,horiz=TRUE,cex.names=0.8,names.arg=c("No improved","some improved","marked improved"))
>

（2）饼图

复制代码

> par(mfrow=c(2,2))
> x<-c(10,12,4,16,8)
> lab<-c("US","UK","Australia","Germany","France")
> pie(x,lab,main)
> pie(x,lab,main="Simple Pie Chart")

复制代码

> pct<-round(x/sum(x)*100)
> pct
[1] 20 24  8 32 16
> labl<-paste(lab,"",pct,"%",sep="")
> labl
[1] "US20%"       "UK24%"       "Australia8%"
[4] "Germany32%"  "France16%"  

> pie(x,labl,col=rainbow(length(labl)),main="Pie Chart with Percentage")

复制代码

> library(plotrix)
> pie3D(x,explode=0.1,main="3D Pie Chart")
#explode越大,那么饼图的间隙就越大

复制代码

> fan.plot(x,labels=lab,main="Fan plot")

（3）直方图

复制代码

> hist<-mtcars$mpg
> hist(x)

复制代码

#在x轴上划分12组数据
hist(x,breaks=12,col="red",xlab="Miles Per Callon")

复制代码

> x<-mtcars$mpg
> x
 [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4
 [9] 22.8 19.2 17.8 16.4 17.3 15.2 10.4 10.4
[17] 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3
[25] 19.2 27.3 26.0 30.4 15.8 19.7 15.0 21.4
#如果freq=FALSE,那么直方图表现的是概率密度,也就是百分比
> hist(x,freq=FALSE,breaks=12,col="green",xlab="Mile Per Callon")

复制代码

> hist(x,freq=FALSE,breaks=12,col="green",xlab="Mile Per Callon")
> rug(jitter(x))
> lines(density(x),col="red",lwd=2)

（4）plot

复制代码

> x<-density(mtcars$mpg)
> plot(x)

复制代码

> mtcars$mpg
 [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4
 [9] 22.8 19.2 17.8 16.4 17.3 15.2 10.4 10.4
[17] 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3
[25] 19.2 27.3 26.0 30.4 15.8 19.7 15.0 21.4
> mtcars$cyl
 [1] 6 6 4 6 8 6 8 4 4 6 6 8 8 8 8 8 8 4 4 4 4
[22] 8 8 8 8 4 4 4 8 6 8 4
> sm.density.compare(mtcars$mpg,mtcars$cyl,xlab="Mile per gallon")
>

（5）箱线图

复制代码

#mpg~cyl表示cyl对mpg的影响
> boxplot(mpg~cyl,data=mtcars,main="Car maileage data",xlab="Number of cylinders",ylab = "Miles per gallon")

若有更加复杂的绘图模型会实时更新，佬们可以实时关注！！💖💖💖