R:带注释的多个x轴

Question

是否可以在R中的图中添加多个x轴？并在每个比例旁边添加注释？

编辑>这是Nick Sabbe想法的结果.对于注释(每个轴左侧的一个小文本),是否可能？

Answer 1

您可以使用line参数axis()来放置更高或更低的轴,这样您就可以创建多个轴.有了mtext()那么你可以将标签添加到一边.请注意,绘图本身仅在一个刻度上,因此您需要相应地重新缩放其他刻度的点和标签:

# Plot and first axis:
plot(1:10,1:10,bty="n",col="red",pch=16,axes=FALSE,xlab="",ylab="")
axis(2,0:11,las=1)
axis(1,0:11,line=1,col="red",col.ticks="red",col.axis="red")
mtext("Label 1",1,line=1,at=0.2,col="red")

# Secondary points and axis:
points(rnorm(10,50,20)/10, rnorm(10,5,2),pch=16, col="blue" )
axis(1,0:11,labels=0:11*10,line=3,col="blue",col.ticks="blue",col.axis="blue")
mtext("Label 2",1,line=3,at=0.2,col="blue")

Answer 2

你可以用?axis它。参数at是绘图原始轴的比例，您可以传递labels以显示其他值。

不过，您必须自己缩放轴标签。

一个非常简单/愚蠢的例子：

plot(1:10,1:10)
axis(side=4, at=c(3,7), labels=c(30,70))

最后，请注意，大多数人认为在绘图中添加多个轴是不好的形式......