R 如何将UTF8编码的表情符号转换为图像？

我有一个包含表情符号的长向量，类似这样：

---

emojis当您应该使用
text


在下面的代码中，使用参数
type=“n”
创建了一个绘图，意思是“不绘图”。然后添加文本（表情符号）

emojiPlot <- function(photo_enc, emo_char){
  png(paste0(photo_enc, ".png"), units = "cm",
      width = 10, height = 10, res = 600)
  plot(0, 0, xlim = c(-1, 1), ylim = c(-1, 1), type = "n")
  text(0, 0, emo_char)
  dev.off()
}

emojiPlot("emojis_enc[1]", emojis[1])

emojiPlot获取emojis的png文件的另一个解决方案是从Twitter下载它们，Twitter接受链接到png文件的url中的符文：

库（tidyverse）
谢谢JB，tidyverse和我相处不好。我过去在导师呵呵面前用变异函数制造了一个错误。但尽管如此，这是非常值得赞赏的。它实际上比我现在的方法快多了。啊，我明白了。我在base中添加了一个备选方案。我已经有了tidyverse代码，但它不是必需的。哇，我应该养成使用apply（）函数的习惯。谢谢你，JB，你是最棒的！我从没谢过你。我真的很感谢你的帮助。祝你今天愉快，伙计@蟾蜍很高兴这有帮助。