<p>With ggtree (Yu et al. 2017), it is very easy to create phylomoji. Emoji is internally supported by ggtree.</p>
<h2>Use emoji in taxa labels</h2>
<pre><code>library(ggtree)
tree_text &lt;- &quot;(((((cow, (whale, dolphin)), (pig2, boar)), camel), fish), seedling);&quot;
x &lt;- read.tree(text=tree_text)
ggtree(x, linetype=&quot;dashed&quot;, color='firebrick') +
    xlim(NA, 7) + ylim(NA, 8.5) +
    geom_tiplab(aes(color=label), parse='emoji', size=14, vjust=0.25) +
    labs(title=&quot;phylomoji&quot;, caption=&quot;powered by ggtree + emojifont&quot;)
</code></pre>
<p></p>
<pre><code>p &lt;- ggtree(x, layout='circular') +
    geom_tiplab2(aes(color=label), parse='emoji', size=12, vjust=0.25)
print(p)
</code></pre>
<p></p>
<pre><code>open_tree(p, angle=200)
</code></pre>
<p></p>
<pre><code>open_tree(p, angle=60) %>% rotate_tree(-75)
</code></pre>
<p></p>
<h2>Labeling clades using emoji</h2>
<pre><code>set.seed(123)
tr &lt;- rtree(30)
ggtree(tr) + xlim(NA, 5) +
    geom_cladelabel(node=41, label=&quot;chicken&quot;, parse=&quot;emoji&quot;,
                    fontsize=12, align=TRUE, color=&quot;firebrick&quot;) +
    geom_cladelabel(node=51, label=&quot;duck&quot;, parse=&quot;emoji&quot;,
                    fontsize=12, align=TRUE, color=&quot;steelblue&quot;) +
    geom_cladelabel(node=32, label=&quot;family&quot;, parse=&quot;emoji&quot;,
                    fontsize=12, align=TRUE, color=&quot;darkkhaki&quot;)
</code></pre>
<p></p>
<h2>Apple Color Emoji</h2>
<p>Although <code>R</code>’s graphical devices don’t support <code>AppleColorEmoji</code> font, it’s still possible to use it. We can export the <code>plot</code> to <code>svg</code> file and render it in <code>Safari</code>.</p>
<pre><code>library(ggimage)
library(gridSVG)
p &lt;-  ggtree(x, size=2) + geom_tiplab(size=20, parse='emoji') +
    xlim(NA, 7) + ylim(NA, 8.5) +
    geom_phylopic(image=&quot;79ad5f09-cf21-4c89-8e7d-0c82a00ce728&quot;,
                  color=&quot;firebrick&quot;, alpha = .3, size=Inf)

p
ps = grid.export(&quot;emoji.svg&quot;, addClass=T)
</code></pre>
<p></p>
<h2>Further reading</h2>
<p>Please visit ggtree homepage, <a href="https://guangchuangyu.github.io/ggtree">https://guangchuangyu.github.io/ggtree</a>, to find out more.</p>
<h1>References</h1>
<p>Yu, Guangchuang, David Smith, Huachen Zhu, Yi Guan, and Tommy Tsan-Yuk Lam. 2017. “Ggtree: An R Package for Visualization and Annotation of Phylogenetic Trees with Their Covariates and Other Associated Data.” Methods in Ecology and Evolution 8 (1): 28–36. doi:<a href="https://doi.org/10.1111/2041-210X.12628">10.1111⁄2041-210X.12628</a>.</p>
<p></p><div></div>