如何在ggtree的系统发育树中的同一标签中应用斜体和普通字体

Question

我想要斜体的 A，普通的 CBS。我认为 ggtext 可能有用，但我遇到了错误。这是一个例子：

tree<-read.tree(text="(A,(B,C));")
labs=c("*A*CBS","B","C")
tree$tip.label<-labs
ggtree(tree)+ geom_tiplab(align=T) + geom_richtext()

error: geom_rich_text requires the following missing aesthetics: label

我也尝试过

ggtree(tree)+ aes(label=labs)+geom_tiplab(align=T) + geom_richtext()
error: Aesthetics must be either length 1 or the same as the data (5): label

但我需要的富文本位于三个提示标签中，并非所有五个标签（提示和节点）中有人知道如何添加标签美观（作为提示标签）吗？

Answer 1

您可以将parse = T参数与数学注释结合使用：

library(ggtree)
library(ggtext)
tree<-read.tree(text="(A,(B,C));")
labs=c("paste(italic('A'),'CBS')","B","C")
tree$tip.label<-labs
ggtree(tree)+ geom_tiplab(align=T,parse=T)