Skip to content
Browse files

Update rga_graph_speed_analytics.R

  • Loading branch information...
1 parent dcea5c5 commit c8319b20b1997656f11c5f688a5961a72fa98294 @IronistM committed May 5, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 rga_graph_speed_analytics.R
View
4 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")

0 comments on commit c8319b2

Please sign in to comment.
Something went wrong with that request. Please try again.