将表情符号与R中的文本相结合

我正在使用带有四个日期标签的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"

库（ggcal）
图书馆（tidyverse）
图书馆（lubridate）
库（'emo'）
df打印（粘贴0（11，emo:：ji（'happy'））
[1] “11\U0001f64b”

现在，我想将表情符号与文本相结合，例如《美好的日子》中的快乐表情符号，但是如果我使用paste0，它会打印表情符号代码
想知道是否有其他方法将表情符号和文本结合起来，以便打印出实际的表情符号

---

谢谢大家!

使用

cat（）

而不是

print（）

。但是如何在df数据框中使用cat指定为变量名呢？我不清楚如何在绘图中使用这些粘贴的值。你尝试了什么，什么不起作用。我认为浆糊应该是好的。当您打印到控制台时，您需要使用cat。我想在df数据帧中将变量的值更改为word+emoji，以便使用传递给ggcal的图例中的值。谢谢