Как отобразить эмодзи в ggplot2, используя пакет эмо в R? - PullRequest
Новая
       9

Как отобразить эмодзи в ggplot2, используя пакет эмо в R?

0 голосов
/ 18 сентября 2018

Я пытаюсь использовать ggplot2 для построения графиков, на которых смайлики отображаются в виде меток с использованием пакета emo.Я узнал об этом из этого поста , но он просто не работает.

Я уже пробовал пакет emojifont, но это тип шрифта, который отображает эмодзи в черно-белом режиме и требует открытия нового графического устройства с использованием, например, quartz().

Чтобы обойти проблему цвета, Тино предложил (см. Пост выше) использовать пакет gridSVG, то есть после создания нового графического устройства и построения графика с помощью emojifont, сохраните график ps = grid.export("emoji.svg", addClass=T)на локальном диске в виде .svg файла, который представляет эмодзи в красочном стиле.

Я был бы очень признателен за решение, которое (а) дает красочные смайлики и (б) показывает график напрямую, что совместимо с обычными 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()

enter image description here

Моя версия 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

1 Ответ

0 голосов
/ 20 сентября 2018

используйте пакет emojifont:)

читать дальше здесь 

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()

enter image description here

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