R 添加格式到ggplot标题的单个字母，无需侧边空格

我制作了一组图来突出单碱基突变。我希望这些数字的标题只突出感兴趣的密码子中的单碱基变化，即“Stuff（CCC->CCG）”。然而，我似乎不知道如何创建一个表达式来突出显示单个字符，而不添加侧边空格（使用tilde求值）。我尝试使用

paste0（）

内部

expression

和

bquote

外部

。有什么想法吗

测试图：

（稍微偏向于下划线，我在这里使用了下划线，但如果承诺的标记格式已经在ggplot中实现，我会使用粗体，但在撰写本文时它看起来仍在开发中。）

您可以将单个文本元素与
表达式中的
粘贴连接起来

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

您可以将单个文本元素与
表达式中的
粘贴连接起来

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

漂亮！我不知道为什么我不想尝试粘贴本身，但它的工作非常完美。谢谢美丽的！我不知道为什么我不想尝试粘贴本身，但它的工作非常完美。谢谢