added years to subtitle

This commit is contained in:
Ben Varick 2025-04-18 16:07:03 -05:00
parent 8feb47053e
commit 486ad2533c
Signed by: ben
SSH key fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo

View file

@ -247,7 +247,7 @@ TOPS_data %>%
plot.caption = element_text(color = "grey")) +
scale_y_continuous(expand = expansion(mult = c(0, 0))) +
labs(title = "Impact of type of vehicle on severity of injury",
subtitle = "Crashes statewide - Wisconsin",
subtitle = paste0("Crashes statewide - Wisconsin - 2017-", year(max(TOPS_data$date))),
y = "Percent of crashes",
x = "Severity of injury",
fill = "Type of vehicle",