X-Git-Url: https://projects.mako.cc/source/gmail-maildir-counter/blobdiff_plain/21ef016ae6a8068ec3bf8237b84176ffee105936..refs/heads/master:/analysis.R

diff --git a/analysis.R b/analysis.R
index 6d3d2d2..d6217ce 100644
--- a/analysis.R
+++ b/analysis.R
@@ -4,7 +4,7 @@ library(reshape)
 
 theme_set(theme_bw())
 
-d = read.delim("mail_metadata.tsv", header=FALSE,
+d <- read.delim("mail_metadata.tsv", header=FALSE,
     col.names=c("flags", "timestamp", "precedence", "google"))
 
 d$timestamp <- as.POSIXct(d$timestamp, tz="UTC",
@@ -78,7 +78,7 @@ dev.off()
 #######################################################
 
 prop.data <- rbind(cbind(google.by.week(d), subset="All Email"),
-                   cbind(google.by.week(d[d$replied]), subset="Emails with Replies"))
+                   cbind(google.by.week(d[d$replied]), subset="Email with Replies"))
 
 
 pdf(file="emails_gmail_prop_over_time.pdf", width=10, height=8)