表情基于情感

Question

我正在研究情绪，并希望用表达情感表达情绪的单词替换表情符号，使用R中的 qdap 。

有人可以帮我怎么做。我将进一步使用输出来获得文本的整体情绪。

Answer 1

这样的事情会起作用：

text <- "I like :) chicken but not beef :("

library(qdapDictionaries)
mgsub(as.character(emoticon[[2]]), as.character(emoticon[[1]]), text)

## "I like Smile chicken but not beef Sad"

Answer 2

如果我正确理解你并且你在谈论简单的表情符号，你可以进行模式匹配并替换

R>  text = c(":)", ":(")
R> gsub(":)", "happy", text)
[1] "happy" ":("