added years to subtitle
This commit is contained in:
parent
8feb47053e
commit
486ad2533c
1 changed files with 1 additions and 1 deletions
|
@ -247,7 +247,7 @@ TOPS_data %>%
|
||||||
plot.caption = element_text(color = "grey")) +
|
plot.caption = element_text(color = "grey")) +
|
||||||
scale_y_continuous(expand = expansion(mult = c(0, 0))) +
|
scale_y_continuous(expand = expansion(mult = c(0, 0))) +
|
||||||
labs(title = "Impact of type of vehicle on severity of injury",
|
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",
|
y = "Percent of crashes",
|
||||||
x = "Severity of injury",
|
x = "Severity of injury",
|
||||||
fill = "Type of vehicle",
|
fill = "Type of vehicle",
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue