r - 将表情符号与R中的文本结合起来

Question

我正在使用带有四个日期标签的 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，它会打印表情符号代码。
想知道是否有另一种方法可以将表情符号和文本结合起来，以便打印实际的表情符号。

谢谢！

标签： rggplot2emoji