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('fa-brands', 'fonts/Font Awesome 6 Brands-Regular-400.otf')
font_add_google("Courier Prime")tt_year <- 2020
tt_week <- 3
tuesdata <- tidytuesdayR::tt_load(tt_year, week = tt_week)
passwords <- tuesdata$passwordspasswords %>%
glimpse()Rows: 507
Columns: 9
$ rank <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 1…
$ password <chr> "password", "123456", "12345678", "1234", "qwerty", …
$ category <chr> "password-related", "simple-alphanumeric", "simple-a…
$ value <dbl> 6.91, 18.52, 1.29, 11.11, 3.72, 1.85, 3.72, 6.91, 6.…
$ time_unit <chr> "years", "minutes", "days", "seconds", "days", "minu…
$ offline_crack_sec <dbl> 2.170e+00, 1.110e-05, 1.110e-03, 1.110e-07, 3.210e-0…
$ rank_alt <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 1…
$ strength <dbl> 8, 4, 4, 4, 8, 4, 8, 4, 7, 8, 8, 1, 32, 9, 9, 8, 8, …
$ font_size <dbl> 11, 8, 8, 8, 11, 8, 11, 8, 11, 11, 11, 4, 23, 12, 12…passwords %>%
summary() rank password category value
Min. : 1.0 Length:507 Length:507 Min. : 1.290
1st Qu.:125.8 Class :character Class :character 1st Qu.: 3.430
Median :250.5 Mode :character Mode :character Median : 3.720
Mean :250.5 Mean : 5.603
3rd Qu.:375.2 3rd Qu.: 3.720
Max. :500.0 Max. :92.270
NA's :7 NA's :7
time_unit offline_crack_sec rank_alt strength
Length:507 Min. : 0.00000 Min. : 1.0 Min. : 0.000
Class :character 1st Qu.: 0.00321 1st Qu.:125.8 1st Qu.: 6.000
Mode :character Median : 0.00321 Median :251.5 Median : 7.000
Mean : 0.50001 Mean :251.2 Mean : 7.432
3rd Qu.: 0.08350 3rd Qu.:376.2 3rd Qu.: 8.000
Max. :29.27000 Max. :502.0 Max. :48.000
NA's :7 NA's :7 NA's :7
font_size
Min. : 0.0
1st Qu.:10.0
Median :11.0
Mean :10.3
3rd Qu.:11.0
Max. :28.0
NA's :7 my_theme <- theme(
text = element_text(size = 16, family = "Courier Prime", color = 'black'),
axis.title = element_text(face="bold"),
axis.ticks = element_blank(),
plot.background = element_blank(),
panel.background = element_blank(),
legend.background = element_blank(),
panel.grid.major = element_line(colour = "grey90", linewidth = 0.25),
panel.grid.minor = element_line(colour = "grey93", linewidth = 0.25),
panel.border = element_blank(),
legend.position = 'none')strength_viz <- passwords_grp %>%
ggplot(.,
aes(x=strength,
y=reorder(category,
median_password_strength))) +
geom_jitter(aes(color=category),
height=.2, width = .5, size = .8) +
geom_vline(aes(xintercept = median(strength)),
linetype='dashed') +
ggrepel::geom_text_repel(data=. %>%
ungroup() %>%
slice_max(strength),
aes(label=password),
force=10,
vjust = 6,
family='Courier Prime',
box.padding = 1,
size=7) +
labs(x='Relative strength of password',
y='',
title='Relative **password strength** by category',
subtitle = "Each dot represents a unique password from the Knowledge is Beautiful password database<br>**rush2112** is the password with the highest strength score in the dataset",
caption='Tidy Tuesday Week 3 (2020)<br>**Source**: Knowledge is Beautiful') +
my_theme +
theme(plot.title = element_markdown(size=rel(2.25), hjust=0, margin = margin(b = 5)),
plot.subtitle = element_textbox_simple(size=rel(1.3), hjust=0, margin = margin(t = 10, b = 15), lineheight = .4),
plot.caption = element_textbox_simple(size=rel(1.25), margin = margin(t = 10), lineheight = .4),
axis.text = element_text(size=rel(1.5)))# Save the plot as PNG
ggsave(
filename = glue("tt_{tt_year}_{tt_week}.png"),
plot = strength_viz,
width = 5, height = 3.5, units = "in",
dpi = 320
)
# 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 ggrepel_0.9.6 bit64_4.5.2
[49] magick_2.8.5 systemfonts_1.1.0 fontawesome_0.5.2
[52] rematch2_2.1.2 stringi_1.8.4 gtable_0.3.5
[55] later_1.3.2 extrafont_0.19 munsell_0.5.1
[58] pillar_1.9.0 rappdirs_0.3.3 reactable_0.4.4
[61] R6_2.5.1 httr2_1.0.5 textshaping_0.4.0
[64] rprojroot_2.0.4 vroom_1.6.5 evaluate_1.0.1
[67] shiny_1.9.1 kableExtra_1.4.0 markdown_1.13
[70] gridtext_0.1.5 snakecase_0.11.1 fontLiberation_0.1.0
[73] httpuv_1.6.15 hrbrthemes_0.8.7 Rcpp_1.0.13
[76] svglite_2.1.3 gridExtra_2.3 Rttf2pt1_1.3.12
[79] xfun_0.48 pkgconfig_2.0.3