if (!require("pacman")) install.packages("pacman")
pacman::p_load(
tidyverse,
tidytuesdayR,
dlookr,
ggtext,
gt,
gtExtras, #for font awesome icons in gt tables
ggbump,
showtext,
janitor, #for clean_names()
scales,
htmltools, #for tagList()
glue,
here,
geomtextpath
)
font_add_google("Lato")tt_year <- 2020
tt_week <- 44
tuesdata <- tidytuesdayR::tt_load(tt_year, week = tt_week)
turbines <- tuesdata$`wind-turbine`turbines %>%
glimpse()Rows: 6,698
Columns: 15
$ objectid <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, …
$ province_territory <chr> "Alberta", "Alberta", "Alberta", "Alberta",…
$ project_name <chr> "Optimist Wind Energy", "Castle River Wind …
$ total_project_capacity_mw <dbl> 0.90, 44.00, 3.78, 3.78, 3.78, 3.78, 19.50,…
$ turbine_identifier <chr> "OWE1", "CRW1", "WWT1", "WWT2", "WWT3", "WW…
$ turbine_number_in_project <chr> "1/2", "1/60", "1/6", "2/6", "3/6", "4/6", …
$ turbine_rated_capacity_k_w <dbl> 150, 600, 600, 600, 600, 660, 1300, 1300, 1…
$ rotor_diameter_m <dbl> 23, 44, 44, 44, 44, 47, 60, 60, 60, 60, 60,…
$ hub_height_m <dbl> 30, 40, 50, 50, 50, 50, 46, 46, 46, 46, 46,…
$ manufacturer <chr> "Bonus", "Vestas", "Vestas", "Vestas", "Ves…
$ model <chr> "AN 150/30", "V44/600", "V44/600", "V44/600…
$ commissioning_date <chr> "1993", "1997", "1998", "1998", "1998", "20…
$ latitude <dbl> 49.52535, 49.51264, 49.23307, 49.23303, 49.…
$ longitude <dbl> -114.0548, -114.0357, -113.6549, -113.6302,…
$ notes <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…turbines %>%
summary() objectid province_territory project_name total_project_capacity_mw
Min. : 1 Length:6698 Length:6698 Min. : 0.3
1st Qu.:1675 Class :character Class :character 1st Qu.: 70.5
Median :3350 Mode :character Mode :character Median :102.0
Mean :3350 Mean :134.8
3rd Qu.:5024 3rd Qu.:181.5
Max. :6698 Max. :350.0
turbine_identifier turbine_number_in_project turbine_rated_capacity_k_w
Length:6698 Length:6698 Min. : 65
Class :character Class :character 1st Qu.:1600
Mode :character Mode :character Median :1880
Mean :1967
3rd Qu.:2300
Max. :3750
NA's :220
rotor_diameter_m hub_height_m manufacturer model
Min. : 15.00 Min. : 24.50 Length:6698 Length:6698
1st Qu.: 80.00 1st Qu.: 80.00 Class :character Class :character
Median : 90.00 Median : 80.00 Mode :character Mode :character
Mean : 88.62 Mean : 83.34
3rd Qu.:100.00 3rd Qu.: 92.00
Max. :141.00 Max. :132.00
commissioning_date latitude longitude notes
Length:6698 Min. :42.00 Min. :-135.23 Length:6698
Class :character 1st Qu.:43.98 1st Qu.: -84.41 Class :character
Mode :character Median :46.67 Median : -80.67 Mode :character
Mean :46.76 Mean : -83.03
3rd Qu.:49.17 3rd Qu.: -67.85
Max. :64.49 Max. : -52.97
If I did some tidying of commissioning_date, we could do a running total plot of turbine projects by province (some, for instance, have “2001/2002”).
turbines %>%
distinct(commissioning_date)# A tibble: 35 × 1
commissioning_date
<chr>
1 1993
2 1997
3 1998
4 2000
5 2001
6 2002
7 2003
8 2004
9 2006
10 2007
# ℹ 25 more rowsturbines <- turbines %>%
mutate(year = substring(commissioning_date, regexpr("/", commissioning_date) + 1,
nchar(commissioning_date))) %>%
mutate(year = as.numeric(substring(year, regexpr("/", year) + 1, nchar(year))))
turbines_cum_sum <- turbines %>%
group_by(province_territory, year) %>%
summarise(count_new_turbines = n(), .groups='drop_last') %>%
mutate(running_total_new_turbines = cumsum(count_new_turbines),
highlight_prov = ifelse(province_territory %in%
c('Ontario', 'Quebec', 'Alberta'),
as.character(province_territory), 'Other'))my_theme <- theme(
text = element_text(family = 'Lato', size=18),
axis.ticks = element_blank(),
plot.background = element_rect(color='white'),
panel.background = element_blank(),
legend.position = 'none',
panel.grid.major = element_line(colour = "grey90", linewidth = 0.25),
panel.grid.minor = element_line(colour = "grey93", linewidth = 0.25),
panel.border = element_blank())
prov_cols <- c('Ontario' = 'steelblue4',
'Quebec' = 'springgreen4',
'Alberta' = 'gold3',
'Other' = 'gray70')
prov_size <- c('Ontario' = 1.25,
'Quebec' = 1.25,
'Alberta' = 1.25,
'Other' = .9)running_ttl_viz <- turbines_cum_sum %>%
ggplot(.,
aes(x=year,
y=running_total_new_turbines)) +
geom_line(aes(group=province_territory,
color=highlight_prov),
linewidth=1) +
geom_text(data=. %>%
slice_max(year) %>%
filter(province_territory %in% c('Ontario', 'Quebec', 'Alberta')),
aes(x=year + 1.5,
label=province_territory,
color=highlight_prov), fontface='bold', size=10) +
labs(x='',
y='**Running total of<br>new turbines**',
title='Running total of wind turbines in Canadian provinces over time',
subtitle=glue("<span style='color:steelblue4'>**Ontario**</span>, <span style='color:springgreen4'>**Quebec**</span>, and <span style='color:gold3'>**Alberta**</span> lead the way for Canadian provinces. This graphic is measuring the count of turbines<br>commissioned by provinces over time and does not consider the generating capacity of each wind turbine or their<br>decay over time. The gray lines represent other Canadian provinces that have far fewer turbines."),
caption='<br>Tidy Tuesday Week 44 (2020)<br>**Source**: Government of Canada<br>Created by @mickey_rafa') +
scale_y_continuous(labels = comma) +
scale_color_manual(values = prov_cols) +
my_theme +
theme(axis.title.y = element_text(size=rel(1.2),
angle = 0, margin = margin(b=5), lineheight = .5),
plot.title = element_markdown(size=rel(2.6), face='bold'),
plot.subtitle = element_textbox(size=rel(1.4), lineheight = .5),
axis.title = element_textbox(size=rel(1.3)),
axis.text = element_text(size=rel(1.75)),
plot.caption = element_textbox(size=rel(1.3), margin = margin(b=5), lineheight = .5))# Save the plot as PNG
ggsave(
filename = glue("tt_{tt_year}_{tt_week}.png"),
plot = running_ttl_viz,
width = 7.5, height = 5, units = "in", dpi = 300
)
# make thumbnail for page
magick::image_read(glue("tt_{tt_year}_{tt_week}.png")) %>%
magick::image_resize(geometry = "400") %>%
magick::image_write(glue("tt_{tt_year}_{tt_week}_thumbnail.png"))R version 4.4.0 (2024-04-24)
Platform: aarch64-apple-darwin20
Running under: macOS Sonoma 14.6.1
Matrix products: default
BLAS: /Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/lib/libRblas.0.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/lib/libRlapack.dylib; LAPACK version 3.12.0
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
time zone: America/Denver
tzcode source: internal
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] geomtextpath_0.1.4 here_1.0.1 glue_1.8.0 htmltools_0.5.8.1
[5] scales_1.3.0 janitor_2.2.0 showtext_0.9-7 showtextdb_3.0
[9] sysfonts_0.8.9 ggbump_0.1.0 gtExtras_0.5.0 gt_0.11.1
[13] ggtext_0.1.2 dlookr_0.6.3 tidytuesdayR_1.1.2 lubridate_1.9.3
[17] forcats_1.0.0 stringr_1.5.1 dplyr_1.1.4 purrr_1.0.2
[21] readr_2.1.5 tidyr_1.3.1 tibble_3.2.1 ggplot2_3.5.1
[25] tidyverse_2.0.0 pacman_0.5.1
loaded via a namespace (and not attached):
[1] tidyselect_1.2.1 viridisLite_0.4.2 farver_2.1.2
[4] fastmap_1.2.0 gh_1.4.1 pagedown_0.21
[7] fontquiver_0.2.1 promises_1.3.0 digest_0.6.37
[10] timechange_0.3.0 mime_0.12 lifecycle_1.0.4
[13] magrittr_2.0.3 compiler_4.4.0 rlang_1.1.4
[16] tools_4.4.0 utf8_1.2.4 yaml_2.3.10
[19] knitr_1.48 labeling_0.4.3 htmlwidgets_1.6.4
[22] bit_4.5.0 curl_5.2.3 xml2_1.3.6
[25] withr_3.0.1 grid_4.4.0 fansi_1.0.6
[28] gdtools_0.4.0 xtable_1.8-4 colorspace_2.1-1
[31] extrafontdb_1.0 paletteer_1.6.0 gitcreds_0.1.2
[34] cli_3.6.3 crayon_1.5.3 rmarkdown_2.28
[37] ragg_1.3.3 generics_0.1.3 rstudioapi_0.17.1
[40] tzdb_0.4.0 commonmark_1.9.2 parallel_4.4.0
[43] vctrs_0.6.5 jsonlite_1.8.9 fontBitstreamVera_0.1.1
[46] hms_1.1.3 bit64_4.5.2 magick_2.8.5
[49] systemfonts_1.1.0 fontawesome_0.5.2 rematch2_2.1.2
[52] stringi_1.8.4 gtable_0.3.5 later_1.3.2
[55] extrafont_0.19 munsell_0.5.1 pillar_1.9.0
[58] rappdirs_0.3.3 reactable_0.4.4 R6_2.5.1
[61] httr2_1.0.5 textshaping_0.4.0 rprojroot_2.0.4
[64] vroom_1.6.5 evaluate_1.0.1 shiny_1.9.1
[67] kableExtra_1.4.0 markdown_1.13 gridtext_0.1.5
[70] snakecase_0.11.1 fontLiberation_0.1.0 httpuv_1.6.15
[73] hrbrthemes_0.8.7 Rcpp_1.0.13 svglite_2.1.3
[76] gridExtra_2.3 Rttf2pt1_1.3.12 xfun_0.48
[79] pkgconfig_2.0.3