R Lang Yak Shaving to convert Thunderbird Get Satisfaction "emotitag" csv data into a graph

BestWayToGraphACSVFileWithYYYYMMData.R

tbl <- read.csv("/Users/rolandtanglao/Documents/MOZILLA_MESSAGING/MOMOGS/momogs/getEmotitag.200981.2011531.csv")
tbl$yyyymm <- as.Date(paste(as.character(tbl$yyyymm),"01",sep=""),format="%Y%m%d")
dfrm_long   <- melt(tbl,id="yyyymm")
myplot <- ggplot(data=dfrm_long,aes(x=yyyymm,y=value, colour=variable)) + geom_line() + geom_point() + theme_bw()
ggsave(myplot,filename="blah.png",scale=1.5)

BetterMissingHappySadSillyIndifferent.r

dfrm_long   <- melt(dfrm,id="month")
ggplot(data=dfrm_long,aes(x=month,y=value, colour=variable)) + 
geom_line() + geom_point() + theme_bw()

getEmotitag.200981.2011531.csv

happy - sad.r

tbl <- read.csv("/Users/rolandtanglao/Documents/MOZILLA_MESSAGING/MOMOGS/momogs/getEmotitag.200981.2011531.csv")
yyyymm = tbl$yyyymm
ystr <- as.character(yyyymm)
ystr <- paste(ystr,"01",sep="")
y <- strptime(ystr,format="%Y%m%d")
dfrm <- data.frame(month=y,happy=tbl$happy,sad=tbl$sad,silly=tbl$silly,indifferent=tbl$indifferent,missing=tbl$emotitagMissing)
qplot(month,happy-sad,data=dfrm,geom= "line")

MissingHappySadSillyIndifferent.r

ggplot(dfrm,aes(month))+
geom_line(aes(y = missing, color="missing"))+
geom_line(aes(y = happy, colour="happy"))+
geom_line(aes(y = sad, colour="sad"))+
geom_line(aes(y = silly, colour="silly"))+
geom_line(aes(y = indifferent, colour="indifferent"))

here is the resulting graph from "happy - sad.r":

Here is the resulting graph from MissingHappySadSillyIndifferent.r

Here is the resulting graph from BetterMissingHappySadSillyIndifferent.r :

should use as.Date instead of strptime:
http://www.ats.ucla.edu/stat/r/faq/string_dates.htm

dates <- as.Date(strDates, "%m/%d/%Y"):

i.e.:

dateVector <- as.Date(paste(as.character(tbl$yyyymm),"01",sep=""),format="%Y%m%d")

new_tbl < - tbl
new_tbl$yyyymm <- as.Date(paste(as.character(tbl$yyyymm),"01",sep=""),format="%Y%m%d")

tbl <- read.csv("/Users/rolandtanglao/Documents/MOZILLA_MESSAGING/MOMOGS/momogs/getEmotitag.200981.2011531.csv")
tbl$yyyymm <- as.Date(paste(as.character(tbl$yyyymm),"01",sep=""),format="%Y%m%d")
dfrm_long   <- melt(tbl,id="yyyymm")
ggplot(data=dfrm_long,aes(x=yyyymm,y=value, colour=variable)) + geom_line() + geom_point() + theme_bw()

NOTE: the above is documented in BestWayToGraphACSVFileWithYYYYMMData.R