library(ggplot2)
library(tidyverse)


data <- read_csv('/Users/yyang/Dropbox/Projects/viz/Racial Animus/table_1.csv')
data<-data %>% 
mutate(Twitter = as.double(str_remove_all(Twitter,'\\*')),
        Google = as.double(str_remove_all(Google,'\\*'))) 

data %>% 
ggplot(aes(x=week))+
geom_point(aes(y=Twitter))+
geom_line(aes(y=Twitter,group=1),linetype='dashed')+
geom_hline(yintercept = 0,color='#CC4258')+
geom_vline(xintercept = '+0w',color='#CC4258',linetype='dashed')+
geom_errorbar(aes(ymax = Twitter_upper,ymin=Twitter_lower),color='#19456D',width=.1)+
scale_y_continuous(name='Twitter C-word', limits=c(-1,2))+
labs(x='Weeks from 1st Covid-19 diagnosis')+
theme_classic()+
ggsave('/Users/yyang/Dropbox/Projects/viz/Racial Animus/twitter.png',width=5,height=4,dpi=300,device='png') 

data %>% 
ggplot(aes(x=week))+
geom_point(aes(y=Google))+
geom_line(aes(y=Google,group=1),linetype='dashed')+
geom_hline(yintercept = 0,color='#CC4258')+
geom_vline(xintercept = '+0w',color='#CC4258',linetype='dashed')+
geom_errorbar(aes(ymax = google_upper,ymin=google_lower),color='#19456D',width=.1)+
scale_y_continuous(name='Google C-word', limits=c(-50,50))+
labs(x='Weeks from 1st Covid-19 diagnosis')+
theme_classic()+
ggsave('/Users/yyang/Dropbox/Projects/viz/Racial Animus/google.png',width=5,height=4,dpi=300,device='png') 

library(readstata13)
twitter_data <- read.dta13('twitter_timeseries.dta')
google_data <- read.dta13('google_svi_timeseries.dta')

twitter_data  %<>%
mutate(group = 'twitter')
google_data  %<>% mutate(group = 'google')  

data<-bind_rows(twitter_data,google_data)

data %>% 
mutate(value = if_else(is.na(covid3),twitter_confirm,covid3)) %>% 
complete(date_wk,group,fill=list(value=0)) %>% 
select(date_wk,group,value) %>% 
spread(group,value) %>% 
View()