r - 如何在 R 中的条形图的 names.arg 中有多行和不同的字体大小？

Question

我正在尝试创建一个条形图，其中每个条形都有一个 x 轴标签“Name [linebreak] N=123”，其中带有“N=123”的第二行以较小的字体显示。

考虑这个例子:

t <- table(
    factor(c(1, 1, 1, 1, 1, 1, 2, 1, 2, 2)),
    factor(c(1, 1, 3, 2, 2, 2, 2, 2, 3, 1))
)
counts <- colSums(t)  # 3, 5, 2
colnames(t) <- c("A", "B", "C")
barplot(t)

该图看起来像这样(裁剪):

我想将变量 counts 中每个级别 A、B、C 的计数添加到标签(以较小的字体)，使其看起来像这样:

有什么方法可以在 R 中实现吗？

Answer 1

barplot 返回“所有条形中点的坐标”(来自 ?barplot)，您可以使用它向图中添加文本。

b <- barplot(t)

mtext(paste("N = ", counts), side=1, line=2, at=b)

# Use `mtext` to easily write to plot margins
# side=1 : bottom
# line=2 : counts out the way - so (I think) one is at the axis labels, so one more
# at: use the positions calculated by barplot