r - 将带有多个换行符和斜体字的文本添加到 R 中的绘图中

Question

我想在图中添加几行文本，其中一些单词是斜体的。文本应该是这样的:

Italic Text: Some
words with
new lines.

More italic text: Yet
more words divided
by new lines.

Italics again: And more
text with
new lines.

以下代码打印一行带有斜体字的文本:

plot(c(0, 2), c(0, 2))
text(1, 1, bquote(
        paste(
            italic("Italic Text:"),
            " Some words with new lines. ",
            italic("More italic text:"),
            "Yet more words divided by new lines. ",
            italic("Italics again:"),
            "And more text with new lines.",
            sep = ""
        )
    )
)

这会创建换行符，但没有斜体:

plot(c(0, 2), c(0, 2))
text(1, 1, "Italic Text: Some\nwords with\nnew lines.\n\nMore italic text: Yet\nmore words divided\nby new lines.\n\nItalics again: And more\ntext with\nnew lines.")

但是当我尝试将文本分成几行并添加斜体时，换行符会导致奇怪的结果:

plot(c(0, 2), c(0, 2))
text(1, 1, bquote(
        paste(
            italic("Italic Text:"),
            " Some\nwords with\nnew lines.\n\n",
            italic("More italic text:"),
            "Yet\nmore words divided\nby new lines.\n\n",
            italic("Italics again:"),
            "And more\ntext with\nnew lines.",
            sep = ""
        )
    )
)

atop() ，如其他答案中所建议的，仅适用于两行。

将带有多个斜体字的多行文本添加到绘图中的最简单方法是什么？

理想情况下，仅使用基础 R。

并且没有痛苦地分别定位每一行文本。

Answer 1

我们可以使用 substitute()结合斜体和普通文本。 To left align the text we can use option pos=4 .那么我们可以像这样一起摆弄它。

plot(c(0, 2), c(0, 2))
text(1, 1.9, substitute(paste(italic("Italic:"), " Some")), pos=4)
text(1, 1.7, "words with\nnew lines.", pos=4)
text(1., 1.4, substitute(paste(italic("More italic text:"), " Yet")), pos=4)
text(1, 1.21, "words with\nnew lines.", pos=4)
text(1., .9, substitute(paste(italic("Italics again:"), " And more")), pos=4)
text(1, .71, "text with\nnew lines.", pos=4)

注意:它在导出时会移动一点。我已导出分辨率为 500x500 的图形。