2017-10-18 6 views
0

누군가이 조인이 왜 작동하지 않는지 설명 할 수 있습니까? 나는 적응 코드를 hereR 내부 파이프 조인트가 작동하지 않음

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

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

이 두 목록의 교집합을 얻을 것으로 예상하고 있습니다. 나는 무엇을 잘못 했는가? 이미 tidytext를 사용하고 있기 때문에 get_sentiments()이

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

'dplyr :: inner_join()'은 함께 참여할 두 개의 tbl을 찾습니다. "안녕" "내" "이름"은 벡터입니다 – shuckle

답변

1

에 대한 일치해야합니다있는 단어의 목록을 반환합니다 :

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

시도 "안녕", "내", "이름"