library(tidyverse) hc <- Hate_Crimes_2017_2025_1_csv names(hc)
``` Plot 1:
ggplot(hc, aes(x = Bias)) + geom_bar() + coord_flip() + labs(title = “Count of Incidents by Bias”, x = “Bias”, y = “Count”)
Plot 2:
top_bias <- hc %>% count(Bias, sort = TRUE) %>% slice_head(n = 10)
ggplot(top_bias, aes(x = reorder(Bias, n), y = n)) + geom_col() + coord_flip() + theme_minimal() + labs(title = “Top 10 Bias Categories”, x = “Bias”, y = “Count”)
Plot 3:
hc %>% mutate( victims_u18 =
parse_number(Number of Victims under 18), offenders_u18 =
parse_number(Number of Offenders under 18) ) %>%
ggplot(aes(x = offenders_u18, y = victims_u18)) + geom_point() +
labs(title = “Victims vs Offenders Under 18”, x = “Offenders Under 18”,
y = “Victims Under 18”)