R语言自定义坐标轴示例

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, col = "blue", lty = 2)

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

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

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)	
   

 

生成的图片如下：