tweets per day + larger issuelist

2015-01-18 19:38:14 +01:00
parent acbf1c09ef
commit 8033d2763e
6 changed files with 489 additions and 226 deletions
@@ -87,7 +87,7 @@ for(d in 1:nrow(issues)) {
  } # /for tweets_curday
 } # /for drange

-rm(tweets_curday,curacro, curchars, curdate,curfile,curid,curissue,curtag,curtags,curtext,d,date_end,date_start,drange,i,id_folder,oldissue,oldtag,s,t,tags_found)
+#rm(tweets_curday,curacro, curchars, curdate,curfile,curid,curissue,curtag,curtags,curtext,d,date_end,date_start,i,id_folder,oldissue,oldtag,s,t,tags_found)


 # SAVING ------------------------------------------------------------------
@@ -97,6 +97,26 @@ row.names(tweets) <- NULL
 write.csv(tweets, "tweets.csv")
 save(tweets, file="tweets.RData")

+
+
+# SOME TESTS --------------------------------------------------------------
+
+stats <- data.frame(date=drange)
+stats$tpd <- 0
+
+# Total number of tweets per day over time
+for(r in 1:length(drange)) {
+  stats$tpd[r] <- length(tweets[tweets[, "created_at"] == drange[r], "id_str"])
+}
+
+stats_melt <- melt(stats, id="date")
+g1 <- ggplot(data = stats_melt, aes(x=date,y=value,colour=variable, group=variable)) + 
+  geom_line() + 
+  geom_smooth(size=1,formula = y ~ x, method="loess", se=FALSE, color=1)
+g1
+
+rm(g1, r)
+
 # VISUALS -----------------------------------------------------------------