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

> 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) #结束此次参数设置

> plot(mpg,xlim=c(0,40),ylim=c(5,40),type="b") #定义了x,y轴的范围
> title(ylab="耗油量",xlab="x",main="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)#绘制自己想要的坐标轴

> 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") #添加参考线

> 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)) #使用鼠标单击确定图例位置的方法添加图例

> 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个文本标签