18 lines
1.4 KiB
R
18 lines
1.4 KiB
R
library(tidyverse)
|
|
DATA_PATH <- "./Raw_Output/"
|
|
source("Scripts/Data_Proc_Script.r")
|
|
DAT <- GET_ALL_DATA(DATA_PATH)
|
|
|
|
|
|
COUNTY_DATA <-DAT %>% group_by(Year,Major_Event,County_Name) %>% summarize(Employment =sum(Employment ),Labor_Income =sum(Labor_Income),Value_Added=sum(Value_Added),Output=sum(Output),Subcounty=sum(Subcounty),Special=sum(Special),County=sum(County),State=sum(State),STATE_TOTAL=sum(STATE_TOTAL),Federal=sum(Federal))
|
|
|
|
STATE_EVENT_DATA <- DAT %>% group_by(Year,Major_Event) %>% summarize(Employment =sum(Employment ),Labor_Income =sum(Labor_Income),Value_Added=sum(Value_Added),Output=sum(Output),Subcounty=sum(Subcounty),Special=sum(Special),County=sum(County),State=sum(State),STATE_TOTAL=sum(STATE_TOTAL),Federal=sum(Federal))
|
|
|
|
STATE_TYPE_DATA <- DAT %>% group_by(Year,Impact) %>% summarize(Employment =sum(Employment ),Labor_Income =sum(Labor_Income),Value_Added=sum(Value_Added),Output=sum(Output),Subcounty=sum(Subcounty),Special=sum(Special),County=sum(County),State=sum(State),STATE_TOTAL=sum(STATE_TOTAL),Federal=sum(Federal))
|
|
|
|
ggplot(aes(x=Year,y=Employment,group-Impact,fill=Impact),data=STATE_TYPE_DATA)+geom_bar(stat = "identity")
|
|
ggplot(aes(x=Year,y=STATE_TOTAL/10^6,group-Impact,fill=Impact),data=STATE_TYPE_DATA)+geom_bar(stat = "identity")
|
|
|
|
ggplot(aes(x=Year,y=Employment,group-Major_Event,fill=Major_Event),data=STATE_EVENT_DATA)+geom_bar(stat = "identity") + scale_fill_discrete(name = "Economic Event")
|
|
|