해시 태그를 검색하여 결과를 출력하는 방법은 무엇입니까?

Question

나는 예를 들어 내가 어떻게 csv 파일로 결과를 내보낼 수 있습니다 아래의 트윗

df<-c("Good #food to be had in #Sibu. Here are some leads #VisitSarawak #VMY2014", "Spore white card, well aren't you a sight for sore eyes! Thanks ! #finallygoinghome","Low cost air travel will drive intra-Asian integration; experiencing trend myself this week on and #fingerscrossed") 

library(stringr) 
hashtag<-str_extract_all(df, "#\\S+") 
> hashtag 
[[1]] 
[1] "#food"   "#Sibu."  "#VisitSarawak" "#VMY2014"  

[[2]] 
[1] "#finallygoinghome" 

[[3]] 
[1] "#fingerscrossed" 

의 모든 해시 태그의 목록을 가지고 싶습니다 트윗 의 16077에서 해시 태그를 검색하려고? 나는 아래의 코드를 시도했지만 당신은 목록에서 데이터 프레임을 구축하고 write.csv에 있음을 한 후 출력 할 수

write.csv(hashtag,file='C:/R_working_directory/hashtag.csv',row.names=F) 


Error in data.frame(character(0), character(0), character(0), character(0), : 
arguments imply differing number of rows: 0, 1, 4, 2, 6, 3, 5, 7, 9, 8, 10, 11, 12, 13, 14 

Answer 1

오류가 발생합니다 : hashtag``에서

dat <- data.frame(id=rep(seq(length(hashtag)), lapply(hashtag, length)), 
        hashtag=unlist(hashtag)) 
dat 
# id   hashtag 
# 1 1    #food 
# 2 1   #Sibu. 
# 3 1  #VisitSarawak 
# 4 1   #VMY2014 
# 5 2 #finallygoinghome 
# 6 3 #fingerscrossed 
write.csv(dat, file='C:/R_working_directory/hashtag.csv',row.names=F)