объединить смайлики с текстом в R - PullRequest
Новая
       8

объединить смайлики с текстом в R

0 голосов
/ 10 марта 2020

Я создаю график календаря, используя ggcal с четырьмя метками для дат. 

library(ggcal)
library(tidyverse)
library(lubridate)
library('emo')

df <- data.frame(date = seq(as.Date("2020-02-01"), as.Date("2020-02-18"), by="1 day"),
                 result = c(rep(c('Great', 'Good', 'Okay', 'Bad'), 4), 'DK', 'DK'))


ggcal(df$date, df$result) + 
  scale_fill_manual(values = c('Great' = "forestgreen", 
                               'Good' = "palegreen3",
                               'Okay' = 'red3',
                               'Bad' = 'indianred3',
                               'DK' = 'grey77'))
}

> print(paste0(11, emo::ji('happy')))
[1] "11\U0001f64b"

Теперь я хочу объединить смайлики с текстом, например, счастливые смайлики для великих дней, но если я использую paste0, он печатает код смайликов.
Хотел узнать, есть ли другой способ объединить эмодзи и текст, чтобы печатать настоящие эмодзи.

Спасибо!

...