diff --git a/datasets/US_states.R b/datasets/US_states.R index 6844314..87bc237 100644 --- a/datasets/US_states.R +++ b/datasets/US_states.R @@ -174,7 +174,7 @@ ggplot(US_counties) + -US_states <- readRDS(url("https://wilkelab.org/SDS375/datasets/US_states_AKsmall.rds")) +US_states <- readRDS(url("https://wilkelab.org/SDS366/datasets/US_states_AKsmall.rds")) ggplot(US_states) + geom_sf() + diff --git a/datasets/gaussian_clusters.R b/datasets/gaussian_clusters.R index 7c8dd1b..7c31941 100644 --- a/datasets/gaussian_clusters.R +++ b/datasets/gaussian_clusters.R @@ -122,7 +122,7 @@ make_kmeans_plot(coords, centroids, centroids, color_points = TRUE) # spirals -spirals <- read_csv("https://wilkelab.org/SDS375/datasets/spirals.csv") +spirals <- read_csv("https://wilkelab.org/SDS366/datasets/spirals.csv") coords <- tibble( x = spirals$x, diff --git a/slides/aesthetic-mappings.qmd b/slides/aesthetic-mappings.qmd index d029116..b2845bd 100644 --- a/slides/aesthetic-mappings.qmd +++ b/slides/aesthetic-mappings.qmd @@ -66,7 +66,7 @@ align_legend <- function(p, hjust = 0.5) ::: {.tiny-font} ```{r echo=FALSE, message=FALSE} -temps_long <- read_csv("https://wilkelab.org/SDS375/datasets/tempnormals.csv") |> +temps_long <- read_csv("https://wilkelab.org/SDS366/datasets/tempnormals.csv") |> mutate( location = factor( location, levels = c("Death Valley", "Houston", "San Diego", "Chicago") @@ -216,7 +216,7 @@ All examples will use the `temperatures` dataset: ```{r} #| echo: true #| message: false -temperatures <- read_csv("https://wilkelab.org/SDS375/datasets/tempnormals.csv") |> +temperatures <- read_csv("https://wilkelab.org/SDS366/datasets/tempnormals.csv") |> mutate( location = factor( location, levels = c("Death Valley", "Houston", "San Diego", "Chicago") diff --git a/slides/telling-a-story.qmd b/slides/telling-a-story.qmd index ed63f3e..54e03fe 100644 --- a/slides/telling-a-story.qmd +++ b/slides/telling-a-story.qmd @@ -24,7 +24,7 @@ theme_set(theme_gray(14)) update_geom_defaults("point", list(size = 2)) update_geom_defaults("line", list(linewidth = 1)) -preprints <- read_csv("https://wilkelab.org/SDS375/datasets/preprints.csv") +preprints <- read_csv("https://wilkelab.org/SDS366/datasets/preprints.csv") ``` ## How did I get to teach data visualization? diff --git a/worksheets/aesthetic-mappings.qmd b/worksheets/aesthetic-mappings.qmd index 30897b7..7f22308 100644 --- a/worksheets/aesthetic-mappings.qmd +++ b/worksheets/aesthetic-mappings.qmd @@ -26,7 +26,7 @@ Next we set up the data. ```{webr} #| edit: false #| warning: false -temperatures <- read_csv("https://wilkelab.org/SDS375/datasets/tempnormals.csv") |> +temperatures <- read_csv("https://wilkelab.org/SDS366/datasets/tempnormals.csv") |> mutate( location = factor( location, levels = c("Death Valley", "Houston", "San Diego", "Chicago")