Hit and Run
library(ggplot2)
library(geofacet)
library(dplyr)
library(data.table)
setwd("C:/Users/mvx13/OneDrive - Texas State University/0_Codes/2023/Rpubs/SD_Tools/FARSTool02")
dat <- fread("rfars_2016_2021.csv")
st <- read.csv("StateAbb1.csv")
dat_1= left_join(dat, st, by="statename")
dim(dat)
## [1] 522678 205
head(dat_1[, c("state", "st_case", "statename", "statenamshort")], 10)
## state st_case statename statenamshort
## 1: Alabama 10001 Alabama AL
## 2: Alabama 10002 Alabama AL
## 3: Alabama 10002 Alabama AL
## 4: Alabama 10003 Alabama AL
## 5: Alabama 10003 Alabama AL
## 6: Alabama 10004 Alabama AL
## 7: Alabama 10005 Alabama AL
## 8: Alabama 10006 Alabama AL
## 9: Alabama 10007 Alabama AL
## 10: Alabama 10008 Alabama AL
dat2 <- dat_1 %>% group_by(statename, statenamshort, hit_run) %>% summarize(n=n())%>%
mutate(perc = scales::percent(n / sum(n), accuracy = .1, trim = FALSE)) %>%
arrange(desc(n))
dat3 <- na.omit(dat2)
theme_set(theme_bw(base_size=9))
ggplot(dat3, aes(hit_run, perc, fill = hit_run)) +
geom_col() +
coord_flip() +
theme_bw() +
facet_geo(~ statenamshort)+
geom_text(aes(label = perc),hjust=-0.2, size=2)+
theme(axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank())
