fixed colorscale (wasn't working, possibly plotly.R code?) + added labels so readers know what they're looking at

kojisposts · kojisposts · commit 1d50e9695244 · 2019-07-29T16:37:03.000-04:00
diff --git a/_posts/ggplot2/2016-11-29-geom_tile.Rmd b/_posts/ggplot2/2016-11-29-geom_tile.Rmd
@@ -46,7 +46,10 @@ library(reshape2)
 
 p <- volcano %>%
   melt() %>% 
-  ggplot(aes(Var1, Var2, fill = value)) + geom_tile()
+  ggplot(aes(Var1, Var2, fill = value)) + geom_tile() +
+  labs(x = "West to East",
+       y="North to South",
+       title = "Visualizing the Topography of Maunga Whau")
   
 p <- ggplotly(p)
 
@@ -97,20 +100,19 @@ chart_link
 ```
 Inspired by <a href="http://stackoverflow.com/questions/25528059/cluster-data-in-heat-map-in-r-ggplot">Stack Overflow</a>
 
-### Continuous Colorscale
+### Modified Colorscale
 
 ```{r, results='hide'}
 library(plotly)
 library(reshape2)
 
 p <- volcano %>%
   melt() %>% 
-  ggplot(aes(Var1, Var2, fill = value)) + geom_tile()
-
-p <- plotly_build(p)
-
-# Modify the plotly abject to add colorscale
-p$data[[1]]$colorscale = list(c(0, "#ffe6cc"), c(1, "#ff8400"))
+  ggplot(aes(Var1, Var2, fill = value)) + geom_tile() +
+  scale_fill_gradient(low="#ffe6cc", high="#ff8400") +
+  labs(x = "West to East",
+       y="North to South",
+       title = "Visualizing the Topography of Maunga Whau")
 
 p <- ggplotly(p)
 
diff --git a/_posts/ggplot2/2016-11-29-geom_tile.md b/_posts/ggplot2/2016-11-29-geom_tile.md
@@ -36,7 +36,7 @@ packageVersion('plotly')
 ```
 
 ```
-## [1] '4.5.6.9000'
+## [1] '4.9.0'
 ```
 
 ### Matrix
@@ -48,7 +48,10 @@ library(reshape2)
 
 p <- volcano %>%
   melt() %>% 
-  ggplot(aes(Var1, Var2, fill = value)) + geom_tile()
+  ggplot(aes(Var1, Var2, fill = value)) + geom_tile() +
+  labs(x = "West to East",
+       y="North to South",
+       title = "Visualizing the Topography of Maunga Whau")
   
 p <- ggplotly(p)
 
@@ -96,7 +99,7 @@ chart_link
 <iframe src="https://plot.ly/~RPlotBot/4177.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 Inspired by <a href="http://stackoverflow.com/questions/25528059/cluster-data-in-heat-map-in-r-ggplot">Stack Overflow</a>
 
-### Continuous Colorscale
+### Modified Colorscale
 
 
 ```r
@@ -105,12 +108,11 @@ library(reshape2)
 
 p <- volcano %>%
   melt() %>% 
-  ggplot(aes(Var1, Var2, fill = value)) + geom_tile()
-
-p <- plotly_build(p)
-
-# Modify the plotly abject to add colorscale
-p$data[[1]]$colorscale = list(c(0, "#ffe6cc"), c(1, "#ff8400"))
+  ggplot(aes(Var1, Var2, fill = value)) + geom_tile() +
+  scale_fill_gradient(low="#ffe6cc", high="#ff8400") +
+  labs(x = "West to East",
+       y="North to South",
+       title = "Visualizing the Topography of Maunga Whau")
 
 p <- ggplotly(p)
 
