edited

kojisposts · kojisposts · commit b4f9f758fb40 · 2019-08-12T18:11:39.000-04:00
diff --git a/_posts/ggplot2/2019-08-12-geom_tile.Rmd b/_posts/ggplot2/2019-08-12-geom_tile.Rmd
@@ -70,6 +70,8 @@ Also [adjusted the theme](https://ggplot2.tidyverse.org/reference/ggtheme.html).
 
 ```{r, results='hide'}
 library(plotly)
+spinrates <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/spinrates.csv",
+                      stringsAsFactors = FALSE)
 
 p <- ggplot(spinrates, aes(x=velocity, y=spinrate)) +
   geom_tile(aes(fill = swing_miss)) +
@@ -94,6 +96,8 @@ chart_link
 
 ```{r, results='hide'}
 library(plotly)
+spinrates <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/spinrates.csv",
+                      stringsAsFactors = FALSE)
 
 p <- ggplot(spinrates, aes(x=velocity, y=spinrate)) +
   geom_tile(aes(fill = swing_miss)) +
diff --git a/_posts/ggplot2/2019-08-12-geom_tile.md b/_posts/ggplot2/2019-08-12-geom_tile.md
@@ -71,6 +71,8 @@ Also [adjusted the theme](https://ggplot2.tidyverse.org/reference/ggtheme.html).
 
 ```r
 library(plotly)
+spinrates <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/spinrates.csv",
+                      stringsAsFactors = FALSE)
 
 p <- ggplot(spinrates, aes(x=velocity, y=spinrate)) +
   geom_tile(aes(fill = swing_miss)) +
@@ -94,6 +96,8 @@ chart_link
 
 ```r
 library(plotly)
+spinrates <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/spinrates.csv",
+                      stringsAsFactors = FALSE)
 
 p <- ggplot(spinrates, aes(x=velocity, y=spinrate)) +
   geom_tile(aes(fill = swing_miss)) +
