``` r library(tidyverse) places <- tribble(~where, ~hour, "Melbourne/\nSydney", 6, "Auckland", 8, "San\nFrancisco", 13, "Denver/\nSalt Lake", 14, "Chicago/\nDallas", 15, "New York/\nAtlanta", 16, "Sao Paolo", 17, "London/\nEdinburgh", 21, "Amsterdam/\nBerlin", 22, "Kampala", 23,) ``` --- count: false .panel1-wheel-auto[ ``` r *library(tidyverse) ``` ] .panel2-wheel-auto[ ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) *tibble(hour = 1:24, * hour_pretty = rep(1:12, 2) |> * paste(c(rep("AM", 11), "noon", * c(rep("PM", 11), "midnight"))) |> * str_remove("12 ")) ``` ] .panel2-wheel-auto[ ``` ## # A tibble: 24 × 2 ## hour hour_pretty ## <int> <chr> ## 1 1 1 AM ## 2 2 2 AM ## 3 3 3 AM ## 4 4 4 AM ## 5 5 5 AM ## 6 6 6 AM ## 7 7 7 AM ## 8 8 8 AM ## 9 9 9 AM ## 10 10 10 AM ## # ℹ 14 more rows ``` ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> * ggplot() ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + * aes(x = hour_pretty |> fct_inorder()) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + * aes(y = 1.15) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + * coord_polar(start = 0, clip = F) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + * theme_void(ink = "darkgrey") ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + * aes(label = hour_pretty) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + * geom_label(linewidth = 0) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + * aes(hjust = 1) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + * aes(yend = 0, xend = hour) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + * geom_segment(aes(y = 1.2)) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + * aes(angle = -((hour-.5)/24)*360+90) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + * aes(linetype = hour %% 3 |> * as.logical()) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + aes(linetype = hour %% 3 |> as.logical()) + * aes(vjust = 1) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + aes(linetype = hour %% 3 |> as.logical()) + aes(vjust = 1) + * theme(legend.position = "none") ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + aes(linetype = hour %% 3 |> as.logical()) + aes(vjust = 1) + theme(legend.position = "none") + * aes(linewidth = I(.3)) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + aes(linetype = hour %% 3 |> as.logical()) + aes(vjust = 1) + theme(legend.position = "none") + aes(linewidth = I(.3)) + * geom_label(data = places, * fill = "white", * linewidth = 0, * aes(x = hour, y = 1.22, * label = where, * hjust = 0, * vjust = .5, * lineheight = .8, * xend = NULL, * linetype = NULL)) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + aes(linetype = hour %% 3 |> as.logical()) + aes(vjust = 1) + theme(legend.position = "none") + aes(linewidth = I(.3)) + geom_label(data = places, fill = "white", linewidth = 0, aes(x = hour, y = 1.22, label = where, hjust = 0, vjust = .5, lineheight = .8, xend = NULL, linetype = NULL)) + * geom_hline(yintercept = 1.2) ``` ] .panel2-wheel-auto[ <!-- --> ] --- count: false .panel1-wheel-auto[ ``` r library(tidyverse) tibble(hour = 1:24, hour_pretty = rep(1:12, 2) |> paste(c(rep("AM", 11), "noon", c(rep("PM", 11), "midnight"))) |> str_remove("12 ")) |> ggplot() + aes(x = hour_pretty |> fct_inorder()) + aes(y = 1.15) + coord_polar(start = 0, clip = F) + theme_void(ink = "darkgrey") + aes(label = hour_pretty) + geom_label(linewidth = 0) + aes(hjust = 1) + aes(yend = 0, xend = hour) + geom_segment(aes(y = 1.2)) + aes(angle = -((hour-.5)/24)*360+90) + aes(linetype = hour %% 3 |> as.logical()) + aes(vjust = 1) + theme(legend.position = "none") + aes(linewidth = I(.3)) + geom_label(data = places, fill = "white", linewidth = 0, aes(x = hour, y = 1.22, label = where, hjust = 0, vjust = .5, lineheight = .8, xend = NULL, linetype = NULL)) + geom_hline(yintercept = 1.2) + * labs(title = "Virtual meetup coordinators' wheel, Summer 2026") ``` ] .panel2-wheel-auto[ <!-- --> ] <style> .panel1-wheel-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-wheel-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-wheel-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style>