如何在R中的28多绘图案例中添加注释？

Question

我有 28个地块的空平台：

par(mfcol = c(7, 4), mar = rep(.1, 4), oma = rep(5, 4))

lapply(1:28, plot, t = "n", xaxt = "n", yaxt = "n")

问题

我想知道如何将我在下面显示的所有注释添加到我的以上空平台上以获得28个图表（一些示例显示如何添加其中一些注释将让我开始）：

Answer 1

这些注释对我来说总是很挑剔，但作为一个开始：

par(mfcol = c(7, 4), mar = rep(.1, 4), oma = rep(10, 4))

lapply(1:28, plot, t = "n", xaxt = "n", yaxt = "n")

l <- rep('Very Strong\n23%', 7)

at <- seq(grconvertY(0 + (1 / 14), "nic"), grconvertY(1 - (1 / 14), "nic"), l = 7)

mtext(l, 4, at = at, las = 1, line = 1)

所以这里棘手的部分是坐标，mtext被定义为用户坐标。我们可以将nic坐标转换为grconvertX和grconvertY的用户坐标。这些是“标准化的内部区域坐标”，范围从0到1.因此，对于面板中间的7个数字，我们需要从0 + (1 / 14)到1 - (1 / 14)的序列。您可以对其他文本使用类似的逻辑。

添加更多mtext来电将为您带来很长的路要走。