将格式添加到ggplot标题的单个字母中，不包含空格

Question

我正在创建一组数字以突出单个碱基的突变。我希望这些图的标题仅突出显示感兴趣密码子的单个基本变化，即“材料（CC C-> CC G）”。但是，我似乎无法弄清楚如何创建一个突出显示单个字符而又不添加侧面空格的表达式（使用代字号评估）。我尝试在paste0()内部使用expression，在bquote外部使用，但似乎无法获得功能完善的任何东西。有什么想法吗？

测试图：（对下划线的偏爱略微偏低，我在这里使用过，但是如果已承诺的markdown格式已在ggplot中实现，则我会大胆使用，但截止撰写之时，它似乎仍在开发中。）]] >>

ggplot(mtcars, aes(wt, mpg)) +
  ggtitle(expression("Stuff (CC"~underline("C")~" -> CC"~underline("G")~")"))

我正在创建一组数字以突出单个碱基的突变。我希望这些图的标题仅突出显示感兴趣密码子的单个基本变化，即“材料（CCC-> CCG）” ...

Answer 1

您可以在paste中用expression连接单个文本元素>

ggplot(mtcars, aes(wt, mpg)) +
  ggtitle(expression(paste("Stuff (CC", underline("C"), " -> CC", underline("G"), ")")))