/*-------------------------------*/ /* INEGI, LITERS OF DRINKS */ /*-------------------------------*/ use "C:\Users\Enrique Seira\Dropbox\Kantar\Data\INEGI nuevos\BIE bebidas selectas red.dta", clear gen anio=substr(periodo, 1,4) destring anio, replace gen mes=substr(periodo,6,7) #delimit ; gen refrescos_litros=cola_retor_litros+cola_noretor_litros +refrescos_retor_sabor_litros+refrescos_noretor_sabor_litros; gen cerveza_litros=cerveza_retor_litros+cerveza_noretor_litros; collapse (sum) refrescos_pesos refrescos_litros agua_pesos agua_litros energeticas_pesos energeticas_litros cerveza_pesos cerveza_litros jugos_pesos jugoslitros , by(anio); replace refrescos_litros =refrescos_litros/1000000; replace agua_litros =agua_litros/1000000; replace cerveza_litros =cerveza_litros/1000000; replace jugoslitros =jugoslitros/1000000 ; tsset anio; drop if anio==2018; su *litros if anio==2014; *NORMALIZE 2014=1000 # delimit ; replace refrescos_litros =refrescos_litros/18.20793; replace agua_litros =agua_litros/6.518714; replace energeticas_litros =energeticas_litros /.393252; replace cerveza_litros =cerveza_litros/6.473806; replace jugoslitros =jugoslitros/.779661 ; # delimit ; twoway (line refrescos_litros anio, lwidth(medthick) lpattern(solid) lcolor(black) ytitle("Liter Growth") xtitle("Year")) (line agua_litros anio, lwidth(medthick) lpattern(dot) lcolor(gs10)) (line cerveza_litros anio, lwidth(medthick) lpattern(dash_dot) lcolor(gs14)) (line jugoslitros anio, lwidth(medthick) lpattern(longdash) lcolor(gs8)) , scheme(s2mono) graphregion(color(white)) title("Production per year (liters)") subtitle("2014=1") legend(order(1 "Soda" 2 "Water" 3 "Beer" 4 "Juice")) xline(2014) xlabel(2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017); graph export "C:\Users\Enrique Seira\Dropbox\Kantar\Latex\Imagenes\INEGI_drinksNorm.pdf", replace; *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /*-------------------------*/ /* TAX AUTHORITY */ /*-------------------------*/ use "C:\Users\Enrique Seira\Dropbox\Kantar\Data\SAT nuevos\anios completos 2012-2017.dta", clear replace vat =vat/1000 replace ieps_otros=ieps_otros/1000 replace liquor=liquor/1000 replace beer =beer /1000 replace energy_drinks =energy_drinks/1000 replace TD =TD /1000 replace TF=TF/1000 replace vat =vat/667.0851 replace ieps_otros=ieps_otros/124.4936 replace liquor=liquor/10.28531 replace beer =beer /28.14783 replace energy_drinks =energy_drinks/.026968 replace TD =TD /18.27967 replace TF=TF/13.6661 twoway (line vat anio, lwidth(medthick) lpattern(solid) lcolor(black) /// ytitle("Tax Revenue (2014=100)")) /// (line liquor anio, lwidth(medthick) lpattern(dot) lcolor(gs10)) /// (line beer anio, lwidth(medthick) lpattern(dash) lcolor(gs12)) /// (line TD anio, lwidth(medthick) lpattern(longdash) lcolor(gs8)) /// (line TF anio, lwidth(medthick) lpattern(longdash_dot) lcolor(gs18)) /// , scheme(s2mono) graphregion(color(white)) /// title("Tax Revenue ") subtitle("Yearly, 2014=100") /// legend(order(1 "VAT" 2 "Liquor" 3 "Beer" /// 4 "Taxed Drinks" 5 "Taxed Foods")) xline(2014) graph export "C:\Users\Enrique Seira\Dropbox\Kantar\Latex\Imagenes\\vat_drinksNorm_ene_dic.pdf", replace /*--- ------------------------------------*/ /* REGRESIONS USING INEGI DATA PRODUCTION */ /*----------------------------------------*/ /*--- -----------------------------------------------------*/ /* This do file uses public cada from INEGI's EIMM survey */ /* and CPI to run RD event-study regression of soda price */ /* and production */ /*---------------------------------------------------------*/ use "C:\Users\Enrique Seira\Dropbox\Kantar\DatosINEGI\price_quantity_INEGI.dta", clear /*--- -----------------------------------------------------*/ /* APPENDIX GRAPHS */ /*--- -----------------------------------------------------*/ gen ln_p=ln(soda_price) capture drop resid reg ln_rvoltot i.mes predict double resid, residuals gen ln_volume=resid # delimit ; twoway (tsline ln_p, lwidth(thick) lpattern(solid) tline(648)) (tsline ln_volume,lwidth(medthick) lpattern(dash) lcolor(green) yaxis(2) title("Soda Prices and Volume, logs") note("Source: INEGI . Variables in logs. Volume seasonally adjusting with month dummies.") xtitle("Date") ytitle("Log soda price index") ytitle("log volume (1000's lt), s.a.", axis(2)) legend(label(1 "Log Soda Price") label(2 "log Liters"))) ; /*--------------*/ /*REGRESIONS */ /*--------------*/ *prices reg ln_p i.mes zt zt2 above ztabove zt2above , robust *quantities reg ln_rvoltot i.mes zt zt2 above ztabove zt2above , robust /*--------------*/ /*PLACEBOS */ /*--------------*/ *2013 gen ztaboveP=zt+12 gen aboveP=(ztaboveP>=0) gen ztaboveP2=ztaboveP^2 gen ztaboveP3=ztaboveP^3 gen ztabovePder=ztaboveP*aboveP gen zt2abovePder=ztaboveP2*aboveP gen zt3abovePder=ztaboveP3*aboveP reg ln_p i.mes ztaboveP ztaboveP2 aboveP ztabovePder zt2abovePder , robust reg ln_rvoltot i.mes ztaboveP ztaboveP2 aboveP ztabovePder zt2abovePder , robust drop ztaboveP- zt3abovePder *2012 gen ztaboveP=zt+24 gen aboveP=(ztaboveP>=0) gen ztaboveP2=ztaboveP^2 gen ztaboveP3=ztaboveP^3 gen ztabovePder=ztaboveP*aboveP gen zt2abovePder=ztaboveP2*aboveP gen zt3abovePder=ztaboveP3*aboveP reg ln_p i.mes ztaboveP ztaboveP2 aboveP ztabovePder zt2abovePder , robust reg ln_rvoltot i.mes ztaboveP ztaboveP2 aboveP ztabovePder zt2abovePder , robust /*---------------------------------------------------*/ /* IMPORTACIONES Y EXPORTACIONES BEBIDAS AZUCARADAS */ /*---------------------------------------------------*/ use "C:\Users\Enrique Seira\Dropbox\Kantar\DatosINEGI\ImpExp_BeverageWaters_Sweetened_Flavoured.dta", clear des tsset ao gen IL=imp_litros/1000000 gen EL=exp_litros/1000000 gen NL=netas_litros/1000000 su IL EL # delimit ; twoway (tsline IL, lwidth(thick) lpattern(solid) tline(2013)) (tsline EL, lwidth(thick) lpattern(dot) lcolor(green)) (tsline NL,lwidth(thick) lpattern(longdash) lcolor(red) title("Beverage Waters, Sweetened or Flavoured") subtitle("Export and Imports (millions of liters)") note("Comtrade data.") xtitle("Year") ytitle("Liters") legend(label(1 "Liters Imported") label(2 "Liters Exported") label(3 "Net Liters Traded"))) ;