r语言 - 提取情感数据框

Question

使用整洁的诗句，如何提取具有 5 列情绪悲伤、愤怒、喜悦、爱中性的数据帧？

预期输出示例

id text sadness anger joy love neutral
11 "bad movie" 1 0 0 0 0
12 "good movie" 0 0 1 0 0 

到目前为止我尝试过的：

library(tidyr)
text = data.frame(id = c(11,12), text=c("bad movie","good movie"))
nrc_lexicon <- get_sentiments("nrc")

Answer 1

tribbles很好

library(tidyverse)
df <- tribble(
~id, ~text,       ~sadness, ~anger, ~joy, ~love, ~neutral,
11,   "bad movie",   1,       0,      0,      0,    0,
12,   "good movie",  0,       0,      1,      0,    0)
df
#> # A tibble: 2 x 7
#>      id text       sadness anger   joy  love neutral
#>   <dbl> <chr>        <dbl> <dbl> <dbl> <dbl>   <dbl>
#> 1    11 bad movie        1     0     0     0       0
#> 2    12 good movie       0     0     1     0       0

'''

^{创建于 2018-09-29 由 reprex 软件包 (v0.2.1(}