Added comment to viz

drewconway · Mar 7, 2011 · 14412d5 · 14412d5
1 parent eec19dc
commit 14412d5
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/poliscijobrumors/polisci_language.R b/R/poliscijobrumors/polisci_language.R
@@ -95,6 +95,7 @@ row.names(words.df)<-1:nrow(words.df)
 # Subset of words
 words.subset<-subset(words.df, freq>quantile(words.df$freq)[2]) # first quantile
 
+# I can haz viz?
 polisci.words<-ggplot(words.subset, aes(x=x.pos, y=y.pos))+geom_text(aes(size=log10(freq), label=words.subset$term, alpha=.75, color=as.factor(cluster)))+
     theme_bw()+scale_size(legend=FALSE)+scale_alpha(legend=FALSE)+xlab("")+ylab("")+scale_color_brewer(pal="Dark2", legend=FALSE)+
     scale_x_continuous(breaks=c(min(words.subset$x.pos), max(words.subset$x.pos)), labels=c("",""))+