R语言数据可视化学习之图形参数修改详解

1、图形参数的修改par()函数

我们可以通过使用par()函数来修改图形的参数，其调用格式为par(optionname=name, optionname=name，…)。当par()不加参数时，返回当前图形参数设置的列表；par(no.readonly=T)将生成一个可以修改当前参数设置的列表。注意以这种方式修改参数设置，除非参数再次被修改，否则一直执行此参数设置。 例如现在想画出mtcars数据集中mpg的折线图，并用虚线代替实线，并将两幅图排列在同一幅图里，代码及图形如下：

> opar<-par(no.readonly=T) #生成修改当前参数设置的列表
> par(mfrow=c(2,1)) #两幅图排成2行1列
> plot(mpg,type="b",main="实线折线图")
> par(lty=2,pch=16)  #将实线改为虚线,空心圆改为实心圆
> plot(mpg,type="b",main="虚线折线图")
> par(opar) #结束此次参数设置

par()函数可以修改的参数见下表：

2、自定义标题title()和坐标轴axis()

可使用title()添加图形标题和坐标轴标签。调用格式为：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()来自定义坐标轴，调用格式如下：axis(side，at=，labels=，pos=，lty=，col=，las=，tck=，…) 自定义坐标轴时，应将绘图函数里自动生成的坐标轴禁用.

axis()函数参数的释义如下表所示：

现在需要绘制x轴坐标在下，坐标轴线为红色 ，且刻度以5位间隔的mpg的折线图。代码及图形如下：

> attach(mtcars)
> par(mar=c(5,8,8,2)+0.1)#增加图形边界
> plot(mpg,xaxt="n",type="b",main="去除x轴刻度线")#一定要设置xaxt="n"，去除x轴的刻度
> axis(side=1,at=seq(1,40,5),col="red",tck=-0.02)#绘制自己想要的坐标轴

3、参考线abline()及图例legend()

可以使用abline()函数为图形添加参考线，调用格式为abline(h=，v=，col，lty，…)，颜色，线条类型参数的含义同上，这里只解释h和v的含义。

如使用abline()函数为上图添加一条水平y=20，红色的参考线。代码及图形如下：

> attach(mtcars)
> par(mar=c(5,8,8,2)+0.1)#增加图形边界
> plot(mpg,xaxt="n",type="b",main="去除x轴刻度线")#一定要设置xaxt="n"，去除x轴的刻度
> axis(side=1,at=seq(1,40,5),col="red",tck=-0.02)#绘制自己想要的坐标轴
> abline(h=20,col="red") #添加参考线

当图形中的数据包含多组时，我们就需要对图形添加一个图例来说明每一组数据。legend()函数可以用来添加图例，调用格式如下：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) #添加第二组数据的图线
>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()可以在绘图区域里添加文本标签，mtext()可以在绘图区域外添加文本标签。调用格式为：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个文本标签

总结

到此这篇关于R语言数据可视化学习之图形参数修改的文章就介绍到这了,更多相关R语言图形参数修改内容请搜索服务器之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持服务器之家！

原文链接：https://blog.csdn.net/xy546268850/article/details/72057790