tc_upset: Create 'who-hit-who' visualisations

In saferactive/traffiCalmr: Download and Analyse Data for Road Safety Research

Description

Create 'who-hit-who' visualisations

Usage

tc_upset(
  crash_summary,
  casualty_type = c("Car", "Pedestrian", "Van", "Bicycle", "Motorcycle", "Bus", "HGV",
    "Taxi"),
  family = ""
)

Arguments

crash_summary	crashes dataset with vehicles and casuatlties variables
casualty_type	The casualty types to plot
family	font family

Examples

crash_summary = tc_join_stats19_for_upset(crashes_wf, casualties_wf, vehicles_wf)
names(crash_summary)
summary(crash_summary)
tc_upset(crash_summary)
tc_upset(crash_summary, casualty_type = c("Car", "Pedestrian", "Bicycle"))
# create plot with 'Other' category
table(casualties_wf$casualty_type)
casualties_wf2 = dplyr::mutate(
  casualties_wf,
  casualty_type_simple = dplyr::case_when(
     casualty_type == "Car occupant" ~ "Car",
     casualty_type == "Pedestrian" ~ "Pedestrian",
     casualty_type == "Cyclist" ~ "Cyclist",
     TRUE ~ "Other"
    )
  )
table(casualties_wf2$casualty_type_simple)
table(vehicles_wf$vehicle_type)
vehicles_wf2 = dplyr::mutate(
  vehicles_wf,
  vehicle_type_simple = dplyr::case_when(
     vehicle_type == "Car" ~ "Car",
     vehicle_type == "Bicycle" ~ "Pedal cycle",
     TRUE ~ "Other"
    )
  )
crash_summary = tc_join_stats19_for_upset(crashes_wf, casualties_wf2, vehicles_wf2)
tc_upset(crash_summary, casualty_type = c("Car", "Pedestrian", "Bicycle", "Other"))

saferactive/traffiCalmr documentation built on Nov. 18, 2021, 5:06 a.m.