import excel "$dir_root/Data/Searches/GGG_Rep.xlsx", sheet("newspapers.com") firstrow case(lower) clear

tsset year

gen honest_avg=(l.honest + honest + f.honest)/(l.january + january + f.january)
gen slander_avg=(l.slander + slander + f.slander)/(l.january + january + f.january)

two (line honest_avg year, lw(medthick) lcolor(black)) (line slander_avg year, lcolor(black*.5) lw(medthick) yaxis(2)), ylabel(0(0.4)1.2, grid notick angle(2))  xlabel(1850(20)1950, grid notick) ylabel(0(0.04)0.12, grid notick angle(2) axis(2)) legend(off) xtitle("Year") text(1.18 1850 "Honest*/January" 0.5 1920 "Honest*/January", placement(east)) text(1.18 1925 "Slander*/January" .3 1890 "Slander*/January", placement(east) color(black*.5)) ytitle("") ytitle("", axis(2))

graph export "$dir_root/Results/F_GGG_Rep.pdf", replace
