Update rga_graph_speed_analytics.R

IronistM · May 5, 2013 · c8319b2 · c8319b2
1 parent dcea5c5
commit c8319b2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rga_graph_speed_analytics.R b/rga_graph_speed_analytics.R
@@ -1,6 +1,6 @@
 # You realy got to open http://docs.ggplot2.org/ on a Browser tab now! It's awesome...
 # Need to fix xlab a bit
 m <- ggplot(data=subset(final_dataset,avgPLGroupNum<12), aes(x=avgPLGroup))
-m + geom_histogram(aes(y = ..count..)) + geom_density(fill=NA) + geom_histogram(aes(fill = ..count..))
+m + geom_histogram(aes(y = ..count..)) + geom_density(fill=NA) + geom_histogram(aes(fill = ..count..)) + facet (. ~ pageGroup) 
 # Let's get a sense of the distribution of load times per month
-qplot(factor(yearmo), avgPageLoadTime, data = subset(final_dataset,yearmo>201208 & isMobile=='No'), geom = "boxplot",outlier.colour = "red", outlier.size = 1) + ylim(0, 20)  + labs(title = "Page Load (in secs) for Desktop",x="Year-Month")
+qplot(factor(yearmo), avgPageLoadTime, data = subset(final_dataset,yearmo>201208 & isMobile=='No'), geom = "boxplot",outlier.colour = "red", outlier.size = 1) + ylim(0, 20) + facet (. ~ pageGroup) + labs(title = "Page Load (in secs) for Desktop",x="Year-Month")