2016-03-23 15 views
0

kodunuzu buraya girin Bir searchTwitter komutunda iki farklı hastayı aramak mümkün mü?twitteR iki hashtag'i nasıl arayabilirim

Örnek

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 = "")) 
Ben hastags #dn için bakmak istiyorum

ve #park ben

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) 

soru aşağıdaki gibi ayrı ayrı yapabilir, bu iki birine sıkılmış olabilir ne olur? tweets tolower kullanmak, bu

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

gibi

cevap

1

deneyin şey bazı hata işleme gerekebilir - web'de bu konuda Infos bol bulabilirsiniz.

+0

İstediğim şey budur, döngüyü yeniden üretemedim ama bu sorunun bir parçası değildi. Teşekkürler – Mateusz1981

İlgili konular