Site updated at 2015-12-12 09:29:56 UTC

Author: tarzzz

all_static/css/modules.css

@@ -818,7 +818,7 @@ LANGUAGE PAGES
 .btnrow-full-bleed a.button{
   color: #444;
   font-size: 16px;
-  font-weight: 300; 
+  font-weight: 300;
   background: none !important;
 }
 
@@ -928,19 +928,24 @@ NAVIGATION BAR STYLING
 /***********************
 LANGUAGE INDEX PAGE STYLING
 ***********************/
-
-.five-column-clear{
-  clear: both;}
-.three-column-clear{
-  display: none;}
+  .three-column-clear{
+    clear: none;}
+  .five-column-clear{
+    clear: both;}
 
 @media (max-width: 750px) {
-  .five-column-clear{
-    display: none;}
   .three-column-clear{
     clear: both;}
+  .five-column-clear{
+    clear: none;}
 }
 
+@media (max-width: 550px) {
+  .three-column-clear{
+    clear: none;}
+  .five-column-clear{
+    clear: none;}
+}
 /***********************
 GETTING STARTED STYLING
 ***********************/
@@ -1036,7 +1041,7 @@ FLOATING REFERENCE NAV
   background: whitesmoke;
   padding: 40px;
   height: 100%;
-  border: thin solid #ddd;  
+  border: thin solid #ddd;
 }
 
 #reference-side-nav ul{

ggplot2/box-plots/index.html

@@ -2272,6 +2272,33 @@ <h1 class="centered" >
 
 
 
+		
+		
+		
+		
+		
+		
+	
+			
+		
+		
+		
+		
+		
+		
+		
+	
+			
+		
+		
+		
+		
+		
+		
+		
+	
+			
+		
 
 
 

ggplot2/box/2015/07/15/boxplot-facet-grid.html

@@ -0,0 +1,15 @@
+library(foreign)
+library(MASS)
+library(Hmisc)
+library(reshape2)
+library(plotly)
+
+dat <- read.dta("http://www.ats.ucla.edu/stat/data/ologit.dta")
+lapply(dat[, c("apply", "pared", "public")], table)
+ftable(xtabs(~ public + apply + pared, data = dat))
+
+ggplot(dat, aes(x = apply, y = gpa)) +
+    geom_boxplot(size = .75) +
+    facet_grid(pared ~ public, margins = TRUE)
+
+ggplotly()

ggplot2/box/2015/07/15/boxplot-facet.html

@@ -0,0 +1,22 @@
+library(plyr)
+library(reshape2)
+library(plotly)
+
+set.seed(1234)
+x<- rnorm(100)
+y.1<-rnorm(100)
+y.2<-rnorm(100)
+y.3<-rnorm(100)
+y.4<-rnorm(100)
+
+df<- (as.data.frame(cbind(x,y.1,y.2,y.3,y.4)))
+
+dfmelt<-melt(df, measure.vars = 2:5)
+
+ggplot(dfmelt, aes(x=factor(round_any(x,0.5)), y=value,fill=variable))+
+    geom_boxplot()+
+    facet_grid(.~variable)+
+    labs(x="X (binned)")+
+    theme(axis.text.x=element_text(angle=-90, vjust=0.4,hjust=1))
+
+ggplotly()

ggplot2/box/2015/07/28/geom_bar-basic.html

@@ -0,0 +1,8 @@
+library(plotly)
+
+set.seed(1234)
+dat <- data.frame(cond = factor(rep(c("A","B"), each=200)), rating = c(rnorm(200),rnorm(200, mean=.8)))
+
+ggplot(dat, aes(x=cond, y=rating)) + geom_boxplot()
+
+ggplotly()

ggplot2/box/2015/07/28/geom_bar-diamond.html

@@ -0,0 +1,10 @@
+library(plotly)
+
+set.seed(1234)
+dat <- data.frame(cond = factor(rep(c("A","B"), each=200)), rating = c(rnorm(200),rnorm(200, mean=.8)))
+
+ggplot(dat, aes(x=cond, y=rating)) + geom_boxplot() +
+    stat_summary(fun.y=mean, geom="point", shape=5, size=4)
+
+ggplotly()
+

ggplot2/box/2015/07/28/geom_bar-filled.html

@@ -0,0 +1,8 @@
+library(plotly)
+
+set.seed(1234)
+dat <- data.frame(cond = factor(rep(c("A","B"), each=200)), rating = c(rnorm(200),rnorm(200, mean=.8)))
+
+ggplot(dat, aes(x=cond, y=rating, fill=cond)) + geom_boxplot()
+
+ggplotly()

ggplot2/box/2015/07/28/geom_bar-flipped.html

@@ -0,0 +1,9 @@
+library(plotly)
+
+set.seed(1234)
+dat <- data.frame(cond = factor(rep(c("A","B"), each=200)), rating = c(rnorm(200),rnorm(200, mean=.8)))
+
+ggplot(dat, aes(x=cond, y=rating, fill=cond)) + geom_boxplot() +
+    guides(fill=FALSE) + coord_flip()
+
+ggplotly()

ggplot2/errobar/2015/08/25/example-one.html

@@ -0,0 +1,15 @@
+library(plotly)
+
+df <- data.frame(x = 1:10,
+                 y = 1:10,
+                 ymin = (1:10) - runif(10),
+                 ymax = (1:10) + runif(10),
+                 xmin = (1:10) - runif(10),
+                 xmax = (1:10) + runif(10))
+
+ggplot(data = df,aes(x = x,y = y)) + 
+    geom_point() + 
+    geom_errorbar(aes(ymin = ymin,ymax = ymax)) + 
+    geom_errorbarh(aes(xmin = xmin,xmax = xmax))
+
+ggplotly(filename="ggplot2-docs/geom_errorbar")

ggplot2/errobar/2015/08/25/example-two.html

@@ -0,0 +1,14 @@
+library(plotly)
+
+population <- data.frame(Year=seq(1790, 1970, length.out=length(uspop)), 
+                         Population=uspop, 
+                         Error=rnorm(length(uspop), 5))
+
+library(ggplot2)
+ggplot(population, aes(x=Year, y=Population, 
+                       ymin=Population-Error, ymax=Population+Error))+
+  geom_line()+
+  geom_point(pch=2)+
+  geom_errorbar(width=0.9)
+
+ggplotly(filename="ggplot2-docs/geom_point")