Я пытаюсь создать филогенетическое дерево с круговыми диаграммами на кончиках дерева, но я действительно застрял в том, как это сделать.
Вот простой сфабрикованный пример
library("treeio")
library("ggtree")
nwk <- system.file("extdata", "sample.nwk", package="treeio")
tree <- read.tree(nwk)
ggplot(tree, aes(x, y)) + geom_tree() + theme_tree() + geom_tiplab()
Если я теперь хочу включить небольшую круговую диаграмму на каждом кончике справа от названий ярлыков (следовательно, названия ярлыков с буквами должны все еще присутствовать), что мне делать?