Question

有人可以解释为什么这个加入不起作用？我正在调整here

的代码

library(dplyr)
library(stringr)
library(tidytext)

res<-"Hi my name"%>%strsplit("[[:space:]]")%>%inner_join(get_sentiments("afinn"))

我希望得到这两个列表的交集。我做错了什么？请注意，get_sentiments（）会返回一个单词列表，其中包含＆＃34; Hi＆＃34;，＆＃34; my＆＃34;，＆＃34; name＆＃34;

Answer 1

试试这个

"Hi my name is good" %>% 
  str_split("[[:space:]]") %>% 
  unlist() %>% 
  data.frame(word = .,stringsAsFactors = F) %>% 
  inner_join(get_sentiments("afinn"),by = c("word" = "word"))

Answer 2

由于您已经在使用tidytext：

res<-
  "Hi my name"%>% 
  tibble() %>% 
  unnest_tokens(word, '.') %>% 
  inner_join(get_sentiments("afinn"))

R管道内部连接不起作用

2 个答案: