got rid of the underscore for aesthetic reasons (function works both with and without the underscore)

Author: kojisposts

_posts/ggplot2/2019-08-06-geom_density_2d.Rmd renamed to _posts/ggplot2/2019-08-06-geom_density2d.Rmd

@@ -1,10 +1,10 @@
 ---
-title: geom_density_2d | Examples | Plotly
-name: geom_density_2d
-permalink: ggplot2/geom_density_2d/
-description: How to make a density map using geom_density_2d.
+title: geom_density2d | Examples | Plotly
+name: geom_density2d
+permalink: ggplot2/geom_density2d/
+description: How to make a density map using geom_density2d.
 layout: base
-thumbnail: thumbnail/geom_density_2d.jpg
+thumbnail: thumbnail/geom_density2d.jpg
 language: ggplot2
 page_type: example_index
 has_thumbnail: true
@@ -46,15 +46,15 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  geom_density_2d() +
+  geom_density2d() +
   labs(y = "bitterness (IBU)",
        x = "alcohol volume (ABV)",
        title = "Craft beers from American breweries")
 ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/basic-graph")
+chart_link = api_create(p, filename="geom_density2d/basic-graph")
 chart_link
 ```
 
@@ -70,15 +70,15 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  stat_density_2d(aes(fill = stat(level)), geom="polygon") +
+  stat_density2d(aes(fill = stat(level)), geom="polygon") +
   labs(y = "bitterness (IBU)",
        x = "alcohol volume (ABV)",
        title = "Craft beers from American breweries")
 ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/filled")
+chart_link = api_create(p, filename="geom_density2d/filled")
 chart_link
 ```
 
@@ -94,7 +94,7 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  stat_density_2d(aes(fill = stat(level)), geom="polygon") +
+  stat_density2d(aes(fill = stat(level)), geom="polygon") +
   scale_fill_viridis_c(option = "plasma") +
   theme(legend.position = "magma") +
   labs(y = "bitterness (IBU)",
@@ -104,7 +104,7 @@ ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/preset-colours")
+chart_link = api_create(p, filename="geom_density2d/preset-colours")
 chart_link
 ```
 
@@ -119,7 +119,7 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  stat_density_2d(aes(fill = stat(level)), geom="polygon") +
+  stat_density2d(aes(fill = stat(level)), geom="polygon") +
   scale_fill_gradient(low = "lightskyblue1", high = "darkred") +
   theme(legend.position = "none") +
   labs(y = "bitterness (IBU)",
@@ -129,7 +129,7 @@ ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/customized-colours")
+chart_link = api_create(p, filename="geom_density2d/customized-colours")
 chart_link
 ```
 
@@ -146,7 +146,7 @@ library(dplyr)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  geom_density_2d(alpha=0.5) +
+  geom_density2d(alpha=0.5) +
   geom_point(data=filter(beers, !is.na(style2)), aes(colour=style2, text = label), alpha=0.3) +
   labs(y = "bitterness (IBU)",
        x = "alcohol volume (ABV)",
@@ -156,7 +156,7 @@ ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/overlaid-points")
+chart_link = api_create(p, filename="geom_density2d/overlaid-points")
 chart_link
 ```
 

_posts/ggplot2/2019-08-06-geom_density_2d.md renamed to _posts/ggplot2/2019-08-06-geom_density2d.md

@@ -1,10 +1,10 @@
 ---
-title: geom_density_2d | Examples | Plotly
-name: geom_density_2d
-permalink: ggplot2/geom_density_2d/
-description: How to make a density map using geom_density_2d.
+title: geom_density2d | Examples | Plotly
+name: geom_density2d
+permalink: ggplot2/geom_density2d/
+description: How to make a density map using geom_density2d.
 layout: base
-thumbnail: thumbnail/geom_density_2d.jpg
+thumbnail: thumbnail/geom_density2d.jpg
 language: ggplot2
 page_type: example_index
 has_thumbnail: true
@@ -48,19 +48,19 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  geom_density_2d() +
+  geom_density2d() +
   labs(y = "bitterness (IBU)",
        x = "alcohol volume (ABV)",
        title = "Craft beers from American breweries")
 ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/basic-graph")
+chart_link = api_create(p, filename="geom_density2d/basic-graph")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/5808.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5855.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Filled
 Since each of the lines (in the above graph) shows a different "level", setting "fill = stat(level)" allows for a filled graph.
@@ -71,29 +71,30 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  stat_density_2d(aes(fill = stat(level)), geom="polygon") +
+  stat_density2d(aes(fill = stat(level)), geom="polygon") +
   labs(y = "bitterness (IBU)",
        x = "alcohol volume (ABV)",
        title = "Craft beers from American breweries")
 ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/filled")
+chart_link = api_create(p, filename="geom_density2d/filled")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/5810.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5857.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Preset Colourscale
 ["Viridis" colourscales](https://ggplot2.tidyverse.org/reference/scale_viridis.html) are designed to still be perceptible in black-and-white, as well as for those with colourblindness. It comes with five colourscales, selected using the option= parameter: "magma" (or "A"), "inferno" (or "B"), "plasma" (or "C"), "viridis" (or "D", the default), and "cividis" (or "E").
 
+
 ```r
 library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  stat_density_2d(aes(fill = stat(level)), geom="polygon") +
+  stat_density2d(aes(fill = stat(level)), geom="polygon") +
   scale_fill_viridis_c(option = "plasma") +
   theme(legend.position = "magma") +
   labs(y = "bitterness (IBU)",
@@ -103,11 +104,11 @@ ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/preset-colours")
+chart_link = api_create(p, filename="geom_density2d/preset-colours")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/5812.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5859.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Customized Colourscale
 You can also set your own colour gradients by defining a high and low point.
@@ -117,7 +118,7 @@ library(plotly)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  stat_density_2d(aes(fill = stat(level)), geom="polygon") +
+  stat_density2d(aes(fill = stat(level)), geom="polygon") +
   scale_fill_gradient(low = "lightskyblue1", high = "darkred") +
   theme(legend.position = "none") +
   labs(y = "bitterness (IBU)",
@@ -127,11 +128,11 @@ ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/customized-colours")
+chart_link = api_create(p, filename="geom_density2d/customized-colours")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/5814.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5861.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Overlaid Points
 I use variable "style2" to filter out the six most common beer styles. This way, we can see that the cluster of beers in the top right (i.e. more bitter and higher alcohol content) are IPAs - perhaps unsurprisingly.
@@ -143,7 +144,7 @@ library(dplyr)
 beers <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/beers.csv", stringsAsFactors = FALSE)
 
 p <- ggplot(beers, aes(x=abv, y=ibu)) +
-  geom_density_2d(alpha=0.5) +
+  geom_density2d(alpha=0.5) +
   geom_point(data=filter(beers, !is.na(style2)), aes(colour=style2, text = label), alpha=0.3) +
   labs(y = "bitterness (IBU)",
        x = "alcohol volume (ABV)",
@@ -153,9 +154,9 @@ ggplotly(p)
 
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
-chart_link = api_create(p, filename="geom_density_2d/overlaid-points")
+chart_link = api_create(p, filename="geom_density2d/overlaid-points")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/5816.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5863.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>