R繪圖基礎(chǔ).png
plot()是R中為對(duì)象作圖的一個(gè)泛型函數(shù)（它的輸出將根據(jù)所繪制對(duì)象類型的不同而變化）
1.圖形函數(shù)
可以通過(guò)圖形函數(shù)的選項(xiàng)來(lái)自定義一幅圖形的多個(gè)特征残揉。
- 可以通過(guò)par()函數(shù)和高級(jí)繪圖函數(shù)直接提供的參數(shù)進(jìn)行修改
par()函數(shù)
opar=par(no.readonly=TRUE)#復(fù)制當(dāng)前的圖形參數(shù)設(shè)置
par(lty=2,pch=17)#修改參數(shù)——par(optionname=value,optionname=name,.....)
plot(dose,drugA,type="b")#繪制圖形
par(opar)#還原設(shè)置
高級(jí)繪圖函數(shù)直接提供的參數(shù)——指定選項(xiàng)僅對(duì)這幅圖形本身有效，而且并不是所有的高級(jí)繪圖函數(shù)都允許指定全部可能的圖形函數(shù)
plot(dose,drugA,type="b",lty=2,pch=17)
1.1符號(hào)和線條
![]()
pch參數(shù)：
lty參數(shù)：
1.2顏色
![]()
可以通過(guò)顏色下標(biāo)、顏色名稱俄删、十六進(jìn)制的顏色值、RGB值或HSV值來(lái)指定顏色
- R中有許多創(chuàng)建連續(xù)型顏色向量的函數(shù)：
rainbow()
heat.colors()
terrain.colors()
topo.colors()
cm.colors()
> n=10
> mycolors=rainbow(n)#生成10種連續(xù)的彩虹型顏色
> barplot(rep(1,n),col=mycolors)
image.png
- RColorBrewer包同樣可以創(chuàng)建顏色
> library(RColorBrewer)
> n <- 7
> mycolors <- brewer.pal(n, "Set1")#
> barplot(rep(1,n), col=mycolors)
image.png
- 使用gray()函數(shù)生成多階灰度色
> mygrays=gray(0:10/10)
> pie(rep(1,n),labels=mygrays,col=mygrays)
> pie(rep(1,10),labels=mygrays,col=mygrays)
image.png
1.3文本屬性
![]()
![]()
1.4圖形尺寸與邊界尺寸
![]()
2.添加文本、自定義坐標(biāo)軸和圖例
- title()函數(shù)允乐，可以為圖形添加標(biāo)題和坐標(biāo)軸標(biāo)簽
2.1坐標(biāo)軸：使用axis()來(lái)創(chuàng)建自定義的坐標(biāo)軸
axis()函數(shù)參數(shù)
自定義坐標(biāo)軸實(shí)例
x <- c(1:10)
y <- x
z <- 10/x
opar <- par(no.readonly=TRUE)
par(mar=c(5, 4, 4, 8) + 0.1)#增加邊界大小
plot(x, y, type="b",pch=21, col="red",yaxt="n", lty=3, ann=FALSE)
#繪制x對(duì)y的圖形，其中ann=FALSE可以移除高級(jí)函數(shù)中包含的默認(rèn)標(biāo)題和標(biāo)簽
lines(x, z, type="b", pch=22, col="blue", lty=2)#添加x對(duì)1/x的直線
axis(2, at=x, labels=x, col.axis="red", las=2)#繪制自己的坐標(biāo)軸
axis(4, at=z, labels=round(z, digits=2),col.axis="blue", las=2, cex.axis=0.7, tck=-.01)
mtext("y=1/x", side=4, line=3, cex.lab=1, las=2, col="blue")#添加標(biāo)題和文本
title("An Example of Creative Axes",xlab="X values",ylab="Y=X")
par(opar)
2.2參考線
abline()可以用來(lái)為圖形添加參考線
2.3添加圖例
使用legend()函數(shù)進(jìn)行圖例的添加
> dose <- c(20, 30, 40, 45, 60)
> drugA <- c(16, 20, 27, 40, 60)
> drugB <- c(15, 18, 25, 31, 40)
> opar <- par(no.readonly=TRUE)
> par(lwd=2, cex=1.5, font.lab=2)#增加線條削咆、文本牍疏、符號(hào)、標(biāo)簽的寬度或大小
> plot(dose, drugA, type="b", pch=15, lty=1, col="red", ylim=c(0, 60),main="Drug A vs. Drug B",xlab="Drug Dosage", ylab="Drug Response")
> lines(dose, drugB, type="b",pch=17, lty=2, col="blue")
> abline(h=c(30), lwd=1.5, lty=2, col="gray" )
> legend("topleft", inset=.05, title="Drug Type", c("A","B"), lty=c(1, 2), pch=c(15, 17), col=c("red", "blue"))
#添加圖例
2.4文本標(biāo)注
可以通過(guò)text()和mtext()函數(shù)將文本添加到圖形上
text(location,"text to place",pos....)
mtext("text to place",side,line=n,....)
attach(mtcars)
plot(wt, mpg,main="Mileage vs. Car Weight",xlab="Weight", ylab="Mileage",pch=18, col="blue")
text(wt, mpg,row.names(mtcars),cex=0.6, pos=4, col="red")
#其中wt拨齐、mpg是坐標(biāo)信息
detach(mtcars)
3.圖形的組合
函數(shù)par()和layout()可以容易地組合多幅圖形到一張圖里面
par()：
> opar <- par(no.readonly=TRUE)
> par(mfrow=c(2,2))
#mfrow=c(2,2)表示建立2行2列排列的四個(gè)排列圖形鳞陨，mfrow=c(3,1)表示建立3行1列的三個(gè)排列圖形。
#mfrow按行填充瞻惋，mfcol按列填充
> plot(wt,mpg, main="Scatterplot of wt vs. mpg")
> plot(wt,disp, main="Scatterplot of wt vs. disp")
> hist(wt, main="Histogram of wt")
> boxplot(wt, main="Boxplot of wt")
> par(opar)
> detach(mtcars)
layout()：
attach(mtcars)
layout(matrix(c(1, 1, 2, 3), 2, 2, byrow = TRUE),widths=c(3, 1), heights=c(1, 2))
#layout()的調(diào)用形式為layout(mat)厦滤，mat是一個(gè)矩陣。layout(matrix(c(1,1,2,3))表示建立一個(gè)兩行兩列的矩陣歼狼，其中掏导，第一行是圖形1，第二行是圖形2和3
#widths=各列寬度值組成的一個(gè)向量羽峰，heights=各行高度值組成的一個(gè)向量
hist(wt)
hist(mpg)
hist(disp)
detach(mtcars)
圖形布局的精細(xì)控制
使用fig()函數(shù)對(duì)圖形布局進(jìn)行精細(xì)控制
opar <- par(no.readonly=TRUE)
par(fig=c(0, 0.8, 0, 0.8))#將下面的圖限制在橫向范圍0-0.8趟咆，縱向范圍0-0.8
plot(mtcars$wt, mtcars$mpg,xlab="Miles Per Gallon",ylab="Car Weight")
par(fig=c(0, 0.8, 0.55, 1), new=TRUE)#將下面的圖限制在橫向0-0.8，縱向0.55-1
boxplot(mtcars$wt, horizontal=TRUE, axes=FALSE)
par(fig=c(0.65, 1, 0, 0.8), new=TRUE#將下面的圖限制在橫向0梅屉。65-1值纱，縱向0-0.8
boxplot(mtcars$mpg, axes=FALSE)
mtext("Enhanced Scatterplot", side=3, outer=TRUE, line=-3)
par(opar)
