r - 如何在 ggplot2 注释的部分加粗和下划线？

Question

我正在尝试从内部使用bold()andunderline()函数来创建一个注释，该注释具有一个风格化的硬编码“标题”，其中一个换行符后跟一个可能是一行或多行长的字符串，并且正在努力完成它。（这是在 ShinyApp 中完成的，所以我不能硬编码两个相邻的注释，因为字符串中的行数会根据用户输入而变化。）grDevicespaste()

library(ggplot2)
library(grDevices)

mydata <- data.frame(Strings = c("This is a list of strings", 
                                 "They could be \n one line long",
                                 "Or they could \n be several lines \n long"),
                     NumberOfLines = c(1, 2, 3))

rowposition <- sample(1:3, 1)

mystring <- mydata$Strings[rowposition]

emptydataframe <- data.frame()

ggplot(emptydataframe) +
  geom_blank() +
  annotate("text", x = 8, y = -4,
           label = paste(bold(underline("Title\n")), mystring),
           size = 3)

任何帮助深表感谢。

Answer 1

使用ggtext包：

library(ggtext)
ggplot(emptydataframe) +
  geom_blank() +
  annotate("richtext", x = 8, y = -4,
           label = paste("<b>Title</b><br>", mystring),
           size = 3)