|
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)
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-7-23 05:19
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社