R管道内部连接不工作

Question

有人可以解释为什么这个连接不起作用吗？我从here

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

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

我期望能获得这两个列表的交集适应代码。我做错了什么？需要注意的是get_sentiments（）返回的话这将有比赛为“你好”，“我的”，“姓名”

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"))