remoji、ユニコードを用いた表現

細かいことなんですが・・・

R
1install.packages(c("devtools", "usethis"))
2
3devtools::install_github("richfitz/remoji")
4library("remoji")
5png("1.png", width = 600, height = 300, bg="transparent")  # 描画デバイスを開く
6plot(0, 0, type = "n", xlim = c(0, 3), ylim = c(0, 9), xaxt="n", yaxt="n", xlab = "", ylab = "", bty="n")
7text(0, 0, sub_emoji(":????:寿司食べたい:????:"), col = "red", cex = 4, adj = 0)
8dev.off()

これだと猫マークがちゃんと出るし、
絵文字をsushiに置き換えたら寿司マークが出るんですが、
これをユニコードで表示させることはできるんでしょうか？
https://ja.wikipedia.org/wiki/Unicode%E3%81%AEEmoji%E3%81%AE%E4%B8%80%E8%A6%A7
ここにあるユニコードとかでです。

行動規範の内容に同意します

回答1件

ベストアンサー

paste を使うとよいかもしれませんね。

r
1sushi <- intToUtf8(0x1F363)
2png("1.png", width = 600, height = 300, bg="transparent")  # 描画デバイスを開く
3plot(0, 0, type = "n", xlim = c(0, 3), ylim = c(0, 9), xaxt="n", yaxt="n", xlab = "", ylab = "", bty="n")
4text(0, 1, paste(sushi, "寿司食べたい", sushi), col = "red", cex = 4, adj = 0)
5dev.off()