plotly · HammadTheOne · Sep 28, 2021 · Sep 27, 2021 · Sep 27, 2021 · Sep 27, 2021
diff --git a/.circleci/config.yml b/.circleci/config.yml
@@ -29,6 +29,7 @@ jobs:
             sudo R -e 'devtools::install_github("hypertidy/anglr@v0.7.0", dependencies = TRUE) '
             sudo R -e 'devtools::install_github("plotly/dash-daq", dependencies = TRUE, upgrade = TRUE) '
             sudo R -e 'devtools::install_deps(dependencies = TRUE) '
+            sudo R -e 'devtools::install_github("briatte/ggnet", dependencies = TRUE) '
       - save_cache:
           key: cache4
           paths:

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -59,4 +59,17 @@ Imports:
     nlme,
     Lahman,
     quantreg,
-    backports
+    backports,
+    mapproj,
+    ggrepel,
+    ggdendro,
+    treemapify,
+    GGally,
+    tree,
+    ggfortify,
+    cluster,
+	hrbrthemes,
+	ggQC,
+	fmsb,
+	plotROC,
+	tidyquant
diff --git a/ggplot2/2021-08-04-2D-Histogram.Rmd b/ggplot2/2021-08-04-2D-Histogram.Rmd
@@ -0,0 +1,105 @@
+---
+name: 2D-Histogram
+permalink: ggplot2/geom_density2d/
+description: How to make 2D-Histogram Plots plots in ggplot2 with Plotly.
+layout: base
+thumbnail: thumbnail/histogram2d.jpg
+language: ggplot2
+page_type: u-guide
+display_as: statistical
+order: 5
+output:
+  html_document:
+    keep_md: true
+---
+
+```{r, echo = FALSE, message=FALSE}
+knitr::opts_chunk$set(message = FALSE, warning=FALSE)
+```
+### Basic 2D Graph
+Source: [Brett Carpenter from Data.World](https://data.world/brettcarpenter/craft-beer-data)
+
+```{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)) +
+  geom_density2d() +
+  labs(y = "bitterness (IBU)",
+       x = "alcohol volume (ABV)",
+       title = "Craft beers from American breweries")
+
+ggplotly(p)
+```
+
+### Filled
+Since each of the lines (in the above graph) shows a different "level", setting "fill = stat(level)" allows for a filled graph.
+
+```{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_density2d(aes(fill = stat(level)), geom="polygon") +
+  labs(y = "bitterness (IBU)",
+       x = "alcohol volume (ABV)",
+       title = "Craft beers from American breweries")
+
+ggplotly(p)
+```
+
+### 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_density2d(aes(fill = stat(level)), geom="polygon") +
+  scale_fill_viridis_c(option = "plasma") +
+  theme(legend.position = "magma") +
+  labs(y = "bitterness (IBU)",
+       x = "alcohol volume (ABV)",
+       title = "Craft beers from American breweries")
+
+ggplotly(p)
+```
+
+### Customized Colourscale
+You can also set your own colour gradients by defining a high and low point.
+```{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_density2d(aes(fill = stat(level)), geom="polygon") +
+  scale_fill_gradient(low = "lightskyblue1", high = "darkred") +
+  theme(legend.position = "none") +
+  labs(y = "bitterness (IBU)",
+       x = "alcohol volume (ABV)",
+       title = "Craft beers from American breweries")
+
+ggplotly(p)
+```
+
+### 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.
+
+```{r}
+library(plotly)
+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_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)",
+       title = "Craft beers from American breweries",
+       colour = "Beer types")
+
+ggplotly(p)
+```
+
diff --git a/ggplot2/2021-08-04-2D-Histogram.md b/ggplot2/2021-08-04-2D-Histogram.md