2016-03-23 4 views
0

введите код здесь. Можно найти два разных хастага в одном searchTwitter команда?twitteR как искать два хэштега

Пример

my_h <- as.POSIXlt(Sys.time()) 
my_h <- strptime(my_h, format = "%Y-%m-%d %H:%M:%S", tz = "CET") 

hrs <- function(u) { 
    x <- u * 3600 
    return(x) 
} 
my_h <- my_h - hrs(24) 
my_h <- data.frame(day = strptime(my_h, "%Y-%m-%d", tz = "")) 

Я хочу, чтобы искать hastags #dn и #park я могу сделать это отдельно, как показано ниже

tweets<-twListToDF(searchTwitter("#dn", n=5000, since = as.character(my_h$day))) 
write.table(tweets, "all_dn_tweets.csv", row.names = F, append = T, sep = ";", col.names = F) 

tweets<-twListToDF(searchTwitter("#park", n=5000, since = as.character(my_h$day))) 
write.table(tweets, "all_park_tweets.csv", row.names = F, append = T, sep = ";", col.names = F) 

Вопрос заключается в том, если эти два могут быть сжаты в один?

ответ

1

Try что-то вроде этого

hashtags <- c("#metallica", "#slayer") 
needle <- paste(hashtags, collapse = " OR ") 
tweets <- searchTwitter(needle, n = 10) 
df <- twListToDF(tweets) 
for (hashtag in hashtags) { 
    write.csv(df[grep(hashtag, tolower(df$text), fixed = TRUE), ], paste0(hashtag, ".csv")) 
} 

Использование tolower на твиты может потребоваться обработка ошибок - вы найдете много Infos на том, что в Интернете.

+0

Это то, что я хотел, я не мог воспроизвести цикл, но это не было частью вопроса. благодаря – Mateusz1981

 Смежные вопросы

  • Нет связанных вопросов^_^