1、圖形參數(shù)的修改par()函數(shù)

我們可以通過使用par()函數(shù)來修改圖形的參數(shù)，其調(diào)用格式為par(optionname=name, optionname=name，…)。當par()不加參數(shù)時，返回當前圖形參數(shù)設(shè)置的列表；par(no.readonly=T)將生成一個可以修改當前參數(shù)設(shè)置的列表。注意以這種方式修改參數(shù)設(shè)置，除非參數(shù)再次被修改，否則一直執(zhí)行此參數(shù)設(shè)置。 例如現(xiàn)在想畫出mtcars數(shù)據(jù)集中mpg的折線圖，并用虛線代替實線，并將兩幅圖排列在同一幅圖里，代碼及圖形如下：

> opar<-par(no.readonly=T) #生成修改當前參數(shù)設(shè)置的列表
> par(mfrow=c(2,1)) #兩幅圖排成2行1列
> plot(mpg,type="b",main="實線折線圖")
> par(lty=2,pch=16)  #將實線改為虛線,空心圓改為實心圓
> plot(mpg,type="b",main="虛線折線圖")
> par(opar) #結(jié)束此次參數(shù)設(shè)置

par()函數(shù)可以修改的參數(shù)見下表：

2、自定義標題title()和坐標軸axis()

可使用title()添加圖形標題和坐標軸標簽。調(diào)用格式為：title(main=”main title”,sub=”subtitle”,xlab=”',ylab=”“)。 示例代碼如下：

> plot(mpg,xlim=c(0,40),ylim=c(5,40),type="b") #定義了x,y軸的范圍
> title(ylab="耗油量",xlab="x",main="mpg折線圖")

同樣可以使用axis()來自定義坐標軸，調(diào)用格式如下：axis(side，at=，labels=，pos=，lty=，col=，las=，tck=，…) 自定義坐標軸時，應(yīng)將繪圖函數(shù)里自動生成的坐標軸禁用.

axis()函數(shù)參數(shù)的釋義如下表所示：

現(xiàn)在需要繪制x軸坐標在下，坐標軸線為紅色 ，且刻度以5位間隔的mpg的折線圖。代碼及圖形如下：

> attach(mtcars)
> par(mar=c(5,8,8,2)+0.1)#增加圖形邊界
> plot(mpg,xaxt="n",type="b",main="去除x軸刻度線")#一定要設(shè)置xaxt="n"，去除x軸的刻度
> axis(side=1,at=seq(1,40,5),col="red",tck=-0.02)#繪制自己想要的坐標軸

3、參考線abline()及圖例legend()

可以使用abline()函數(shù)為圖形添加參考線，調(diào)用格式為abline(h=，v=，col，lty，…)，顏色，線條類型參數(shù)的含義同上，這里只解釋h和v的含義。

如使用abline()函數(shù)為上圖添加一條水平y(tǒng)=20，紅色的參考線。代碼及圖形如下：

> attach(mtcars)
> par(mar=c(5,8,8,2)+0.1)#增加圖形邊界
> plot(mpg,xaxt="n",type="b",main="去除x軸刻度線")#一定要設(shè)置xaxt="n"，去除x軸的刻度
> axis(side=1,at=seq(1,40,5),col="red",tck=-0.02)#繪制自己想要的坐標軸
> abline(h=20,col="red") #添加參考線

當圖形中的數(shù)據(jù)包含多組時，我們就需要對圖形添加一個圖例來說明每一組數(shù)據(jù)。legend()函數(shù)可以用來添加圖例，調(diào)用格式如下：legend(location，title，col，cex，lty，…)

示例代碼如下：

> y<-c(1:10)
> x1<-seq(1,20,2)
> x2<-seq(1,30,3)
> plot(x1,y,type="b",col="red",lty=1,pch=1,xlim=c(0,30),xlab="")
> lines(x2,y,type="b",col="green",lty=2,pch=2) #添加第二組數(shù)據(jù)的圖線
>legend(locator(1),legend=c("x1","x2"),col=c("red","green"),lty=c(1,2),cex=0.7,pch=c(1,2)) #使用鼠標單擊確定圖例位置的方法添加圖例

4、添加文本標注text()和mtext()

有時畫出圖形后，想要對圖中的點的標簽標出，這時可以使用text()和mtext()，其中text()可以在繪圖區(qū)域里添加文本標簽，mtext()可以在繪圖區(qū)域外添加文本標簽。調(diào)用格式為：text(location，labels，pos，side,…)

> y<-c(1:10)
> x1<-seq(1,20,2)
> x2<-seq(1,30,3)
> plot(x1,y,type="b",col="red",lty=1,pch=1,xlim=c(0,30),xlab="")
> lines(x2,y,type="b",col="green",lty=2,pch=2)
>legend(locator(1),legend=c("x1","x2"),col=c("red","green"),lty=c(1,2),cex=0.7,pch=c(1,2))
> text(locator(2),c("a","b"),pos=4) #添加2個文本標簽

總結(jié)

到此這篇關(guān)于R語言數(shù)據(jù)可視化學(xué)習(xí)之圖形參數(shù)修改的文章就介紹到這了,更多相關(guān)R語言圖形參數(shù)修改內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

最新評論