如何在 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，它被定义为用户坐标。我们可以使用grconvertX 和grconvertY 将nic 坐标转换为用户坐标。这些是从 0 到 1 的“标准化内部区域坐标”。因此，对于面板中间的 7 个数字，我们需要从0 + (1 / 14) 到1 - (1 / 14) 的序列。您可以对其他文本使用类似的逻辑。

添加更多mtext 电话会让您走得更远。