在 R 中使用表情符号

Question

我有一个包含大量表情符号的 csv 文件：

Person, Message,
A, ,
A, How are you?,
B,  Alright!,
A,

我怎样才能read.csv()进入R，表情符号才不会变黑？s

（我想跟踪一段时间内表情符号的使用情况）

Answer 1

我的控制台有一种字体可以接受那些 "characters":

  txt <- "Person, Message,
 A, ,
 A, How are you?,
 B,  Alright!,
 A, "

 Encoding(txt)
#[1] "UTF-8"
 dput(txt)
#"Person, Message,\nA, \U0001f609,\nA, How are you?,\nB, \U0001f64d Alright!,\nA, \U0001f483\U0001f483"

> tvec <- scan(text=txt, what="")
Read 13 items
> dput(tvec)
c("Person,", "Message,", "A,", "\U0001f609,", "A,", "How", "are", 
"you?,", "B,", "\U0001f64d", "Alright!,", "A,", "\U0001f483\U0001f483"
)

> which(tvec == '\U0001f609,')
[1] 4

当我使用逗号 sep 扫描读取该文本时，前导 space 阻止了相等性测试的成功，但如果我使用双字符版本则它成功了：

> which(tvec == '\U0001f609')
integer(0)
> dput(tvec)
c("Person", " Message", "", "A", " \U0001f609", "", "A", " How are you?", 
"", "B", " \U0001f64d Alright!", "", "A", " \U0001f483\U0001f483"
)
> which(tvec == " ")
[1] 5

这是在 Mac 上使用 Courier New 作为 console/editor 字体。要查看 Unicode 表示的解释，请查看 ?Quotes {base}。

在 R 中使用表情符号

Working with emoji in R

r

emoji