如何使用R中的emo包在ggplot2中显示emojis？

我正在尝试使用

ggplot2

来绘制一些图形，其中emojis使用

emo

包显示为标签。我从中学到了这一点，但它根本不起作用

我以前尝试过

emojifont

软件包，但它是一种黑白显示表情的字体类型，需要使用例如

quartz（）

打开一个新的图形设备

为了解决颜色问题，Tino建议（参考上面的帖子）使用

gridSVG

包，即在创建新的图形设备并使用

emojifont

绘图后，保存图形

ps=grid.export（“emoji.svg”，addClass=T）

作为

.svg

文件在本地磁盘上，以彩色样式呈现表情

我非常希望有一个解决方案（a）提供丰富多彩的表情，（b）直接显示图形，这与例程

ggplot

用例兼容

library(ggplot2)
library(emo)

names = c("smile","school","office","blush","smirk","heart_eyes")
n = length(names):1
e = sapply(names, emo::ji)
dat = data.frame(emoji_name = names, n = n, emoji = e, stringsAsFactors = F)

ggplot(data=dat, aes(emoji_name, n)) + 
  geom_bar(stat = "identity") +
  scale_x_discrete(breaks = dat$emoji_name, labels = dat$emoji) +
  coord_flip()

我的R版本是

> sessionInfo()
R version 3.4.4 (2018-03-15)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Sierra 10.12

---

使用

emojifont

软件包：）

阅读更多

库（ggplot2）
图书馆（dplyr）
图书馆（purrr）
#遥控器：：安装github（“哈德利/emo”）
图书馆（emo）
dat%
tibble:：rowid_to_列（“n”）
dat%>%ggplot（aes（n，表情符号））+
几何坐标（方向=“y”）+
主题（axis.text.y=元素\文本（大小=18））

sessioninfo:：session_info（）
#> ─ 会话信息───────────────────────────────────────────────────────────────
#>设定值
#>R版3.6.3版（2020-02-29）
#>操作系统Ubuntu 18.04.4 LTS
#>系统x86_64，linux gnu
#>ui X11
#>语言en_GB:en
#>校对en_GB.UTF-8
#>ctype en_GB.UTF-8
#>欧洲/奥斯陆
#>日期2020-04-07
#> 
#> ─ 包装───────────────────────────────────────────────────────────────────
#>包*版本日期库源
#>资产负债表0.2.1 2019-03-21[1]起重机（R 3.6.0）
#>cli 2.0.2 2020-02-28[1]起重机（R 3.6.3）
#>色彩空间1.4-1 2019-03-18[1]克兰（R 3.6.0）
#>蜡笔1.3.4 2017-09-16[1]克兰（R3.6.0）
#>文摘0.6.25 2020-02-23[1]CRAN（R 3.6.3）
#>dplyr*0.8.5 2020-03-07[1]起重机（R 3.6.3）
#>省略号0.3.0 2019-09-20[1]CRAN（R 3.6.1）
#>emo*0.0.0.9000 2020-04-07[1]Github（哈德利）/emo@3f03b11)
#>评估0.14 2019-05-28[1]起重机（R 3.6.0）
#>fansi 0.4.1 2020-01-08[1]起重机（R 3.6.2）
#>farver 2.0.3 2020-01-16[1]起重机（R 3.6.2）
#>仿制药0.0.2 2018-11-29[1]克兰（R 3.6.0）
#>ggplot2*3.3.0 2020-03-05[1]起重机（R 3.6.3）
#>胶水1.4.0 2020-04-03[1]起重机（R 3.6.3）
#>GTTable 0.3.0 2019-03-25[1]起重机（R 3.6.0）
#>高0.8 2019-03-20[1]克朗（R 3.6.0）
#>htmltools 0.4.0 2019-10-04[1]起重机（R 3.6.1）
#>克尼特1.28 2020-02-06[1]克兰（R 3.6.3）
#>标签0.3 2014-08-23[1]起重机（R 3.6.0）
#>生命周期0.2.0 2020-03-06[1]起重机（R 3.6.3）
#>润滑1.7.8 2020-04-06[1]起重机（R 3.6.3）
#>magrittr 1.5 2014-11-22[1]克兰（R 3.6.3）
#>孟塞尔0.5.0 2018-06-12[1]克兰（R 3.6.0）
#>支柱1.4.3 2019-12-20[1]起重机（R 3.6.2）
#>pkgconfig 2.0.3 2019-09-22[1]起重机（R 3.6.1）
#>purrr*0.3.3 2019-10-18[1]起重机（R 3.6.1）
#>R6 2.4.1 2019-11-12[1]起重机（R3.6.1）
#>Rcpp 1.0.4 2020-03-17[1]起重机（R 3.6.3）
#>rlang 0.4.5 2020-03-01[1]起重机（R 3.6.3）
#>R标记2.1 2020-01-20[1]起重机（R 3.6.3）
#>比例尺1.1.0.9000 2020-04-03[1]本地
#>sessioninfo 1.1.1 2018-11-05[1]CRAN（R 3.6.0）
#>stringi 1.4.6 2020-02-17[1]起重机（R 3.6.3）
#>纵梁1.4.0 2019-02-10[1]起重机（R3.6.0）
#>tibble 3.0.0 2020-03-30[1]起重机（R 3.6.3）
#>潮汐选择1.0.0 2020-01-27[1]起重机（R 3.6.3）
#>vctrs 0.2.4 2020-03-10[1]起重机（R 3.6.3）
#>带R 2.1.2 2018-03-15[1]起重机（R 3.6.0）
#>xfun 0.12 2020-01-13[1]起重机（R 3.6.2）
#>yaml 2.2.1 2020-02-01[1]起重机（R 3.6.2）
#> 
#>[1]/home/dm0737pe/R/x86_64-pc-linux-gnu-library/3.6
#>[2]/usr/local/lib/R/site library
#>[3]/usr/lib/R/站点库
#>[4]/usr/lib/R/library

---

由（v0.3.0）

于2020-04-07创建，额外的

）

是一个打字错误。移除它仍然无法修复问题。我使用的是Mac操作系统；我想知道问题是否与操作系统有关。感谢您提出操作系统问题。嗯，我使用的是windows 7操作系统，我也得到了白色方块。。因此，我认为它不依赖于操作系统。您是否尝试安装Rstudio的预览版本？我在Windows上使用emojis和Rstudio（1.1.456）时遇到了一些问题，没有预览版本。@wen当我运行你的代码时，它工作得很好。我在Ubuntu 18.04 LTS上。R版本3.4.4，

ggplot2

version 3.0.0以前有一些关于这方面的帖子，现在已经发布了

library(ggplot2)
library(emojifont)

names = c("smile","school","office","blush","smirk","heart_eyes")
n = length(names):1
e = sapply(names, emojifont::emoji)
dat = data.frame(emoji_name = names, n = n, emoji = e, stringsAsFactors = F)

ggplot(data=dat, aes(emoji_name, n)) + 
  geom_bar(stat = "identity") +
  scale_x_discrete(breaks = dat$emoji_name, labels = dat$emoji) +
  theme( axis.text.y =element_text( size=20 ) ) +
  coord_flip()

> sessionInfo()
R version 3.5.1 (2018-07-02)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)