R:如何在 base R 中的绘图上放置多行刻度标签？

Question

在基本 R 图中，我想将多行标签附加到刻度。这是一个测试用例，首先带有简单的单行标签:

# plot some graph
x = (-10:10)/5
y = x^2
plot (y~x,type="l",axes=F)

ticks = c(-2,-1,0,1,2)            # tick positions
labels = c("-2","-1","0","1","2") # tick labels
axis (1,at=ticks,labels=labels)

现在我想让一些标签延伸到几行文本。当我使用

labels = c("-2","-1","centre\n0","1","2") # some tick labels multi-line

标签的第二行添加在现有标签之上，在轴和标签之间留出足够的空间。刻度标签在底部对齐。

如何 (1) 让它们在顶部对齐或； (2) 我可以将所有刻度标签向下移动以便在轴和标签之间获得更多空间吗？

预先感谢您的帮助!

Answer 1

我总是发现将第二条线绘制为前一条线之上的新图更容易。据我所知，您的数据存在问题。我真的不知道你的意图是什么，但我会在下面详细解释这个方法。

我的问题是您的第二个标签与第一个标签相同，除了您在 x=0 处添加的单词“centre”。因此，在我的例子中，我创建了一个新的标签变量，它只包含第二行元素，即只有“centre”这个词，其他所有内容都是空白的。

数据

这是你的数据

# plot some graph
x = (-10:10)/5
y = x^2
plot (y~x,type="l",axes=F)

ticks = c(-2,-1,0,1,2)            # tick positions
labels = c("-2","-1","0","1","2") # tick labels
axis (1,at=ticks,labels=labels)

解决方案1

在底部正确对齐:

在本例中，我创建了一个具有更长底部边距的新绘图。然后我只为此创建一个底轴并将其设置为白色，以便只有标签可见:

#bottom
#new plot
par(new=TRUE)       
#new margins. default is c(5,4,4,2).First value is the bottom margin.
par(mar=c(4,4,4,2))  
#new labels
labels = c("","","centre","","") # some tick labels multi-line
#make the axis
axis (1,at=ticks,labels=labels, col='white')

如果您需要以相反的方式绘制中心和零，只需更改标签即可。

解决方案2

在顶部正确对齐(如果我明白你的意思的话):

在您的数据轴中需要:axis(3,at=ticks,labels=labels)。那里的三个显示它应该在顶部对齐

逻辑与之前相同，但您需要更改相应的边距，即第三个值:

#top
par(new=TRUE)
par(mar=c(5,4,3,2))
labels = c("","","centre","","") # some tick labels multi-line
axis (3,at=ticks,labels=labels, col='white')