Status Quo
library(tidyverse)
library(ggcirclepack)
read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-02-20/isc_grants.csv") |>
ggplot() +
aes(area = funded,
id = proposed_by %>% str_replace(" ", "\n"),
fill = group) +
geom_circlepack(fun = mean) +
geom_circlepack_text(fun = mean, lineheight = .8,
color = "whitesmoke") +
coord_equal() +
aes(text = title) +
aes(label = after_stat(paste(id,"\n", area))) +
facet_wrap(~year) +
ggstamp::theme_void_fill("whitesmoke") +
scale_size(range = c(-3, 5), transform = "sqrt")
## Rows: 85 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (4): title, proposed_by, summary, website
## dbl (3): year, group, funded
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_text()`).
read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-02-20/isc_grants.csv") |>
ggplot() +
aes(area = funded,
id = "All") +
geom_circlepack(fun = mean) +
geom_circlepack_text(fun = mean,
lineheight = .8,
color = "whitesmoke") +
aes(label = round(after_stat(area))) +
coord_equal()
## Rows: 85 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (4): title, proposed_by, summary, website
## dbl (3): year, group, funded
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## Warning: Unknown or uninitialised column: `wt`.
## Warning: Unknown or uninitialised column: `wt`.
last_plot() +
facet_wrap(~year)
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
last_plot() +
aes(fill = group)
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
last_plot() +
aes(id = proposed_by)
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_text()`).
last_plot() +
aes(label = str_wrap(after_stat(paste(id, round(area))), 5))
## Warning: Unknown or uninitialised column: `wt`.
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored
## Warning: Unknown or uninitialised column: `wt`.
## Unknown or uninitialised column: `wt`.
## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_text()`).
read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-02-20/isc_grants.csv") |>
ggplot() +
aes(area = funded,
id = "All") +
geom_circlepack() +
geom_circlepack_text(
lineheight = .8,
color = "whitesmoke") +
aes(label = round(after_stat(area))) +
coord_equal()
## Rows: 85 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (4): title, proposed_by, summary, website
## dbl (3): year, group, funded
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## Warning: Unknown or uninitialised column: `wt`.
## Warning: Unknown or uninitialised column: `wt`.
palette <- monochromeR::generate_palette("goldenrod4",
modification = "go_lighter",
n_colors = 6)
theme_mono <- function(color = "goldenrod4"){
palette <- monochromeR::generate_palette("goldenrod4",
modification = "go_lighter",
n_colors = 6)
theme_gray() %+replace%
theme(panel.background = element_rect(fill = palette[4], color = palette[3]),
panel.grid = element_line(color = palette[6]),
plot.background = element_rect(fill = palette[5], color = palette[4]),
text = element_text(color = palette[1]),
axis.text = element_text(color = palette[1]),
axis.ticks = element_line(palette[1]),
strip.background = element_rect(fill = palette[3], color = palette[2]),
strip.text = element_text(color = palette[1]), complete = T)
}
read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-02-20/isc_grants.csv") |>
ggplot() +
aes(funded) +
geom_histogram(alpha = 2, fill = palette[6]) +
ggxmean::geom_x_mean(color = palette[1]) +
ggxmean::geom_x_mean_label(color = palette[1],
fill = palette[6]) +
theme_mono()
last_plot() +
facet_wrap(~year)
read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2024/2024-02-20/isc_grants.csv") %>% .$funded %>% mean
## [1] 13781.14
