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)
lines(x,z,type="b",pch=22,lty=2,col="blue")

# 设置左边的纵坐标（2），刻度及标签（labels)，标签颜色（col.axis)，标签与轴垂直(las=2

axis(2,at=x,labels=x,col.axis="red",las=2)

#设置右边的纵坐标，标签刻度取2位数

axis(4, at=z, labels=round(z,digits=2),
     col.axis="blue",las=2, cex.axis=0.7, tck=-0.01)

#右纵坐标轴的 文本，及各参数，

mtext("y=1/x", side=4, line=3, cex.lab=1, las=2, col="blue")
title("An Example of Creative Axes",
      xlab="X values",
      ylab="Y=X")
par(opar)

转载本文请联系原作者获取授权，同时请注明本文来自王雷宏科学网博客。

链接地址：https://wap.sciencenet.cn/blog-3509182-1335983.html?mobile=1

收藏

分享