r - 如何在图中设置第二个 x-aixs？

Question

x <- seq(0.5, 0.9, length = 400)
y <- dnorm(x,0.7,0.0458)
plot(x, y, type="l",  yaxt="n",ann=FALSE,bty="n", xaxt="n")
axis(1, at=seq(0.5,0.9,by=0.1), labels=c("","",0.7, 0.8, 0.9) )
mtext("Proportions", 1, at=0.9, line=2)
xx=c(0.8,seq(0.8,0.9,length=100),0.9)
yy= c(0,dnorm(seq(0.8,0.9,length=100),0.7,0.0458),0)
polygon(xx, yy, col = "gray", border = NA)

我用代码得到了一个很好的图形（graph1.jpg），如何在 graph1.jpg 上创建第二行，将 graph1.jpg 更改为 graph2.jpg？

这是一个graph1.jpg。

这是一个graph2.jpg。

Answer 1

对于该函数axis()，有一个参数line=可以确定在绘图轴下绘制的哪条线。例如，设置此参数line=4可以添加另一个轴。但在plot()您应该更改边距设置以在 x 轴下使用par(mar=...)).

par(mar=c(8,3,3,3))
x <- seq(0.5, 0.9, length = 400)
y <- dnorm(x,0.7,0.0458)
plot(x, y, type="l",  yaxt="n",ann=FALSE,bty="n", xaxt="n")
#First x axis
axis(1, at=seq(0.5,0.9,by=0.1), labels=c("","",0.7, 0.8, 0.9) )
mtext("Proportions", 1, at=0.9, line=2)
#Second x axis 
axis(1, line=4,at=seq(0.5,0.9,by=0.1), labels=c("","",0, 2.18, 3) )
mtext("z score", 1, at=0.9, line=6)