R
emoGG is a good attemp to add emoji
in ggplot2
. It render emoji
picture (png) and creat a layer, geom_emoji
, to add emoji.
In my opinion, emoji
should be treated as ordinary font in user interface, albeit it maynot be true internally.
It would be more flexible if we can use emoji as ordinary font and in this way user don’t need to learn extra stuff.
The emojifont
package is designed to bring emoji
font to R users and is created for users that are impatient and relutant to learn.
The package is very simple, pack some emoji fonts (currently only OpenSansEmoji.ttf) and use showtext to render the fonts, then we can use the font in either base plot or ggplot2.
Get the released version from CRAN:
install.packages("emojifont")
Or the development version from github:
## install.packages("devtools")
devtools::install_github("GuangchuangYu/emojifont")
To use emoji
, we need to use their corresponding unicode. Emoji unicode can be found in http://apps.timwhitlock.info/emoji/tables/unicode, or searched using search_emoji
function. The search_emoji
function will return emoji aliases which can be converted to unicode by emoji
function.
library(emojifont)
search_emoji('smile')
## [1] "smile" "smiley" "sweat_smile" "smiley_cat" "smile_cat"
emoji(search_emoji('smile'))
## [1] "\U0001f604" "\U0001f603" "\U0001f605" "\U0001f63a" "\U0001f638"
To support using emoji in R plot, we need to load emoji
font and then use family
parameter to specify using the font.
## list available emoji fonts
list.emojifonts()
## [1] "OpenSansEmoji.ttf"
## load selected emoji font
load.emojifont('OpenSansEmoji.ttf')
set.seed(123)
x <- rnorm(10)
set.seed(321)
y <- rnorm(10)
plot(x, y, cex=0)
text(x, y, labels=emoji('cow'), cex=1.5, col='steelblue', family='OpenSansEmoji')
d <- data.frame(x=x, y=y,
label = sample(c(emoji('cow'), emoji('camel')), 10, replace=TRUE),
type = sample(LETTERS[1:3], 10, replace=TRUE))
library("ggplot2")
ggplot(d, aes(x, y, color=type, label=label)) +
geom_text(family="OpenSansEmoji", size=6)
library("ggtree")
library("colorspace")
tree_text=paste0(
"(","(","(",
"(",
"(",
emoji("cow"), ",",
"(",
emoji("whale"),",",
emoji("dolphin"),
")",
"),",
"(",
emoji('pig2'),",",
emoji('boar'),
")",
"),",
emoji("camel"),
"),", emoji("fish"), "),",
emoji("seedling"), ");")
ggtree(read.tree(text=tree_text)) + xlim(NA, 7) +
geom_tiplab(family="OpenSansEmoji", size=10,
color=rainbow_hcl(8))
Although R
’s graphical devices don’t support AppleColorEmoji
font, it’s still possible to use it. We can export the plot
to svg
file and render it in Safari
.
library(gridSVG)
p <- ggtree(read.tree(text=tree_text), size=2) + geom_tiplab(size=20)
p <- p %>% phylopic("79ad5f09-cf21-4c89-8e7d-0c82a00ce728", color="firebrick", alpha = .3)
p <- p + xlim(NA, 7) + ylim(NA, 8.5)
p
ps = grid.export("emoji.svg", addClass=T)
The emojifont
package was initially designed for using emoji font. I found that FontAwesome is quite interesting especially in technical world.
The usage is quite similar as using emoji.
load.fontawesome()
set.seed(2016-03-09)
fa <- fontawesome(c('fa-github', 'fa-weibo', 'fa-twitter', 'fa-android', 'fa-coffee'))
d <- data.frame(x=rnorm(20),
y=rnorm(20),
label=sample(fa, 20, replace=T))
ggplot(d, aes(x, y, color=label, label=label)) +
geom_text(family='fontawesome-webfont', size=6)+
xlab(NULL)+ylab(NULL) +
theme(legend.text=element_text(family='fontawesome-webfont'))