在ggplot2表达式中混合表达式，纯文本和换行符

Question

我正在尝试使用ggplot2创建一些标签/贴纸。 我正在从源文件中删除标签的文本，并将图形标记为图形。我可以这样做：

labtxt1 <- c("This text should be bold", "This text should also be bold", "Another text to be bold")
labtxt1 <- strwrap(labtxt1, width = 20)

labtxt2 <- c("This text should not be bold", "This text should also not be bold", "Another text to be plain")
labtxt2 <- strwrap(labtxt2, width = 20)

library(ggplot2)
library(Hmisc)

labtxt <- c(labtxt1, labtxt2)
labtxt <- paste(labtxt, collapse = "\n", sep = "")
labtxt <- escapeRegex(labtxt)

ggplot(x=1, y = 1) + 
  annotate("text", x = 0.5, y = 0.5, 
           label = labtxt,
           colour = "red", parse = F, lineheight = 0.8)

现在如何使labtxt1中的文字加粗，以及labtxt2中的文字，保持理由和linewidth？

我尝试expression使用\n，这会弄清理由，并使用atop，但这会弄乱线宽。

如果我尝试单独注释，那么定位很困难，因为labtxt1和labtxt2的长度因不同的标签/贴纸而异。

如何获得理想的结果？

Answer 1

您可以将文本包装在不可见的表中，

library(ggplot2)
library(gridExtra)

label <- "plain text\nbold('bold line')\nitalic('italic line')\nplain again"
disect <- strsplit(label, "\\n")[[1]]

mytheme <- ttheme_minimal(core = list(fg_params = list(parse=TRUE, col="red",
                                                       hjust=0, x=0.1)))
tg <- tableGrob(as.matrix(disect), theme=mytheme)

ggplot(x=1, y = 1) + 
  annotation_custom(tg)