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