ben/wisconsin_crashes
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

edited crash_data_summaries.Rmd among other changes

Browse source
This commit is contained in:
Ben Varick 2025-04-01 13:40:40 -05:00
parent 8d3ae6e1cc
commit ebf40f7e63
No known key found for this signature in database
23 changed files with 112 additions and 2806 deletions
Download patch file Download diff file Expand all files Collapse all files

35
R/school_aged_deaths.R Normal file
View file

@ -0,0 +1,35 @@
library(tidyverse)
library(RColorBrewer)
library(stringr)
deaths <- read_csv("data/All_deaths_school_aged.csv")
ggplot(data = deaths %>% filter(Year != "Total", `Injury Mechanism & All Other Leading Causes` != "Total")) +
geom_line(aes(x = `Year Code`,
y = Deaths,
color = str_wrap(`Injury Mechanism & All Other Leading Causes`, 30)),
linewidth = 1, show.legend = FALSE) +
geom_label_repel(data = deaths %>% filter(Year == "2023", `Injury Mechanism & All Other Leading Causes` != "Total"),
aes (x = `Year Code`,
y = Deaths,
color = str_wrap(`Injury Mechanism & All Other Leading Causes`, 30),
label = str_wrap(`Injury Mechanism & All Other Leading Causes`, 30)),
show.legend = FALSE,
hjust = "outward",
direction = "y",
size = 2.5,
nudge_x = 0.75,
# direction = 'x',
xlim = c(2018, 2024)) +
scale_color_brewer(palette = "Set3", guide = "none") +
scale_x_continuous(expand = expansion(add = c(0.1, 0.1)), breaks = seq(2018, 2023, 1)) +
labs(title = "Deaths of school-aged children in Wisconsin",
subtitle = "data from CDC, 2018 - 2023",
x = "Year",
y = "Number of Deaths",
color = "Cause of Death") +
theme(plot.margin = unit(c(1,3,1,1), "cm")) +
coord_cartesian(clip = "off", xlim = c(2018, 2023))
ggsave(file = "figures/all_deaths/all_deaths_causes.png",
height = 5,
width = 8,
units = "in",
dpi = 300)