* The Impact of EU Decision-Making on National Parties’ Attitudes towards European Integration
* --------------------------------------------------------------------------------------------

version 14
set more off
cd E:\data
capture log close
log using EU_SUPPORT_EUP, replace

*Table 1. Partisan support for European integration by states.

use EU_SUPPORT, clear
ssc install latab
latabstat i102pos_pc, statistics(n mean sd min max median) by(ecoden) f(%9.2f) tf(table1) caption(Partisan support for European integration by states)

*Figure 1. EU legislation 1979-2012.

use EU_LEGISLATION, clear
collapse (sum) all political bureaucratic parliamentary executive decentral central, by(year)
line all political bureaucratic parliamentary executive decentral central year, xlabel(1979(1)2012)
graph save Graph figure1

*Table 2. Results of multilevel analyses.

use EU_SUPPORT, clear
ssc install estout
mixed i102pos_pc lr_pc_l_agg2 gov_agg_2 partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
estimates store m1
mixed i102pos_pc lr_pc_l_agg2 gov_agg_2 sec_share_agg2 ep_share_agg2 dir_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_ep_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_ep_share_agg2 gov_agg_2_dir_share_agg2 partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
estimates store m2
mixed i102pos_pc lr_pc_l_agg2 gov_agg_2 sec_share_agg2 ep_share_agg2 dir_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_ep_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_ep_share_agg2 gov_agg_2_dir_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
estimates store m3
estout m1 m2 m3 using table2.tex, style(tex) stats(ll aic bic) cells("b(star fmt(3) label(Coeff.)) se(fmt(3) label(SE))") starlevels(* 0.1 ** 0.05 *** 0.01) label dmarker(.) msign(--) title("Results of multilevel analyses") note(Notes: "* p<0.1, ** p<0.05, *** p<0.01\\Number of observations: 3,570\\Number of groups: 27") replace

*Figure 2. The impact of legislative characteristics on partisan support
*for European integration at different levels of the main independent variables.

use EU_SUPPORT, clear
set obs 10000
mixed i102pos_pc sec_share_agg2 lr_pc_l_agg2 lr_pc_l_agg2_sec_share_agg2 gov_agg_2 ep_share_agg2 dir_share_agg2 lr_pc_l_agg2_ep_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_ep_share_agg2 gov_agg_2_dir_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
matrix b=e(b)
matrix V=e(V)
scalar b1=b[1,1]
scalar b3=b[1,3]
scalar varb1=V[1,1]
scalar varb3=V[3,3]
scalar covb1b3=V[1,3]
scalar list b1 b3 varb1 varb3 covb1b3
generate MVZ=((_n-1)/100)
replace MVZ=. if _n>384
gen conbx=b1+b3*MVZ if _n<384
gen consx=sqrt(varb1+varb3*(MVZ^2)+2*covb1b3*MVZ) if _n<384
gen ax=1.96*consx
gen upperx=conbx+ax
gen lowerx=conbx-ax
gen where=-0.194
gen pipe = "|"
egen tag_lr = tag(lr_pc_l_agg2)
gen yline=0
graph twoway hist lr_pc_l_agg2, percent color(gs14) yaxis(2) || scatter where lr_pc_l_agg2 if tag_lr, plotr(m(b 4)) ms(none) mlabcolor(gs5) mlabel(pipe) mlabpos(6) legend(off) || line conbx MVZ, clpattern(solid) clwidth(medium) clcolor(black) yaxis(1) || line upperx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line lowerx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line yline MVZ, clwidth(thin) clcolor(black) clpattern(solid) || , xlabel(0 0.5 1 1.5 2 2.5 3 3.5 4, nogrid labsize(2)) ylabel(-0.2 -0.15 -0.1 -0.05 0 0.05 0.1, axis(1) nogrid labsize(2)) ylabel(0 1 2 3 4 5 6 7 8 9 10, axis(2) nogrid labsize(2)) yscale(noline alt) yscale(noline alt axis(2)) xscale(noline) legend(off) title("The impact of secondary legislation on EU support" "at different levels of distance to the outcome in retrospect") xtitle("Distance to the outcome in retrospect" , size(2.5) ) ytitle("Marginal effect of secondary legislation", axis(1) size(2.5)) ytitle("Percentage of observations" , axis(2) size(2.5)) xsca(titlegap(2)) ysca(titlegap(2)) scheme(s2mono) graphregion(fcolor(white) ilcolor(white) lcolor(white))
graph save Graph figure2a

use EU_SUPPORT, clear
set obs 10000
mixed i102pos_pc sec_share_agg2 gov_agg_2 gov_agg_2_sec_share_agg2 lr_pc_l_agg2 ep_share_agg2 dir_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_ep_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_ep_share_agg2 gov_agg_2_dir_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
matrix b=e(b)
matrix V=e(V)
scalar b1=b[1,1]
scalar b3=b[1,3]
scalar varb1=V[1,1]
scalar varb3=V[3,3]
scalar covb1b3=V[1,3]
scalar list b1 b3 varb1 varb3 covb1b3
generate MVZ=((_n-1)/1000)
replace MVZ=. if _n>1001
gen conbx=b1+b3*MVZ if _n<1001
gen consx=sqrt(varb1+varb3*(MVZ^2)+2*covb1b3*MVZ) if _n<1001
gen ax=1.96*consx
gen upperx=conbx+ax
gen lowerx=conbx-ax
gen where=-0.192
gen pipe = "|"
egen tag_lr = tag(gov_agg_2)
gen yline=0
graph twoway hist gov_agg_2, percent color(gs14) yaxis(2) || scatter where gov_agg_2 if tag_lr, plotr(m(b 4)) ms(none) mlabcolor(gs5) mlabel(pipe) mlabpos(6) legend(off) || line conbx MVZ, clpattern(solid) clwidth(medium) clcolor(black) yaxis(1) || line upperx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line lowerx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line yline MVZ, clwidth(thin) clcolor(black) clpattern(solid) || , xlabel(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1, nogrid labsize(2)) ylabel(-0.2 -0.15 -0.1 -0.05 0 0.05 0.1 0.15 0.2, axis(1) nogrid labsize(2)) ylabel(0 5 10 15 20 25 30 35 40, axis(2) nogrid labsize(2)) yscale(noline alt) yscale(noline alt axis(2)) xscale(noline) legend(off) title("The impact of secondary legislation on EU support" "at different levels of government party in retrospect") xtitle("Government party in retrospect" , size(2.5) ) ytitle("Marginal effect of secondary legislation", axis(1) size(2.5)) ytitle("Percentage of observations" , axis(2) size(2.5)) xsca(titlegap(2)) ysca(titlegap(2)) scheme(s2mono) graphregion(fcolor(white) ilcolor(white) lcolor(white))
graph save Graph figure2b

use EU_SUPPORT, clear
set obs 10000
mixed i102pos_pc ep_share_agg2 lr_pc_l_agg2 lr_pc_l_agg2_ep_share_agg2 gov_agg_2 sec_share_agg2 dir_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_ep_share_agg2 gov_agg_2_dir_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
matrix b=e(b)
matrix V=e(V)
scalar b1=b[1,1]
scalar b3=b[1,3]
scalar varb1=V[1,1]
scalar varb3=V[3,3]
scalar covb1b3=V[1,3]
scalar list b1 b3 varb1 varb3 covb1b3
generate MVZ=((_n-1)/100)
replace MVZ=. if _n>384
gen conbx=b1+b3*MVZ if _n<384
gen consx=sqrt(varb1+varb3*(MVZ^2)+2*covb1b3*MVZ) if _n<384
gen ax=1.96*consx
gen upperx=conbx+ax
gen lowerx=conbx-ax
gen where=-0.182
gen pipe = "|"
egen tag_lr = tag(lr_pc_l_agg2)
gen yline=0
graph twoway hist lr_pc_l_agg2, percent color(gs14) yaxis(2) || scatter where lr_pc_l_agg2 if tag_lr, plotr(m(b 4)) ms(none) mlabcolor(gs5) mlabel(pipe) mlabpos(6) legend(off) || line conbx MVZ, clpattern(solid) clwidth(medium) clcolor(black) yaxis(1) || line upperx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line lowerx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line yline MVZ, clwidth(thin) clcolor(black) clpattern(solid) || , xlabel(0 0.5 1 1.5 2 2.5 3 3.5 4, nogrid labsize(2)) ylabel(-0.2 -0.1 0 0.1 0.2 0.3 0.4 0.5 0.6, axis(1) nogrid labsize(2)) ylabel(0 1 2 3 4 5 6 7 8 9 10, axis(2) nogrid labsize(2)) yscale(noline alt) yscale(noline alt axis(2)) xscale(noline) legend(off) title("The impact of parliamentary involvement on EU support" "at different levels of distance to the outcome in retrospect") xtitle("Distance to the outcome in retrospect" , size(2.5) ) ytitle("Marginal effect of parliamentary involvement", axis(1) size(2.5)) ytitle("Percentage of observations" , axis(2) size(2.5)) xsca(titlegap(2)) ysca(titlegap(2)) scheme(s2mono) graphregion(fcolor(white) ilcolor(white) lcolor(white))
graph save Graph figure2c

use EU_SUPPORT, clear
set obs 10000
mixed i102pos_pc ep_share_agg2 gov_agg_2 gov_agg_2_ep_share_agg2 lr_pc_l_agg2 sec_share_agg2 dir_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_ep_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_dir_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
matrix b=e(b)
matrix V=e(V)
scalar b1=b[1,1]
scalar b3=b[1,3]
scalar varb1=V[1,1]
scalar varb3=V[3,3]
scalar covb1b3=V[1,3]
scalar list b1 b3 varb1 varb3 covb1b3
generate MVZ=((_n-1)/1000)
replace MVZ=. if _n>1001
gen conbx=b1+b3*MVZ if _n<1001
gen consx=sqrt(varb1+varb3*(MVZ^2)+2*covb1b3*MVZ) if _n<1001
gen ax=1.96*consx
gen upperx=conbx+ax
gen lowerx=conbx-ax
gen where=-0.582
gen pipe = "|"
egen tag_lr = tag(gov_agg_2)
gen yline=0
graph twoway hist gov_agg_2, percent color(gs14) yaxis(2) || scatter where gov_agg_2 if tag_lr, plotr(m(b 4)) ms(none) mlabcolor(gs5) mlabel(pipe) mlabpos(6) legend(off) || line conbx MVZ, clpattern(solid) clwidth(medium) clcolor(black) yaxis(1) || line upperx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line lowerx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line yline MVZ, clwidth(thin) clcolor(black) clpattern(solid) || , xlabel(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1, nogrid labsize(2)) ylabel(-0.6 -0.5 -0.4 -0.3 -0.2 -0.1 0 0.1 0.2 0.3, axis(1) nogrid labsize(2)) ylabel(0 5 10 15 20 25 30 35 40, axis(2) nogrid labsize(2)) yscale(noline alt) yscale(noline alt axis(2)) xscale(noline) legend(off) title("The impact of parliamentary involvement on EU support" "at different levels of government party in retrospect") xtitle("Government party in retrospect" , size(2.5) ) ytitle("Marginal effect of parliamentary involvement", axis(1) size(2.5)) ytitle("Percentage of observations" , axis(2) size(2.5)) xsca(titlegap(2)) ysca(titlegap(2)) scheme(s2mono) graphregion(fcolor(white) ilcolor(white) lcolor(white))
graph save Graph figure2d

use EU_SUPPORT, clear
set obs 10000
mixed i102pos_pc dir_share_agg2 lr_pc_l_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2 sec_share_agg2 ep_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_ep_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_ep_share_agg2 gov_agg_2_dir_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
matrix b=e(b)
matrix V=e(V)
scalar b1=b[1,1]
scalar b3=b[1,3]
scalar varb1=V[1,1]
scalar varb3=V[3,3]
scalar covb1b3=V[1,3]
scalar list b1 b3 varb1 varb3 covb1b3
generate MVZ=((_n-1)/100)
replace MVZ=. if _n>384
gen conbx=b1+b3*MVZ if _n<384
gen consx=sqrt(varb1+varb3*(MVZ^2)+2*covb1b3*MVZ) if _n<384
gen ax=1.96*consx
gen upperx=conbx+ax
gen lowerx=conbx-ax
gen where=-0.68
gen pipe = "|"
egen tag_lr = tag(lr_pc_l_agg2)
gen yline=0
graph twoway hist lr_pc_l_agg2, percent color(gs14) yaxis(2) || scatter where lr_pc_l_agg2 if tag_lr, plotr(m(b 4)) ms(none) mlabcolor(gs5) mlabel(pipe) mlabpos(6) legend(off) || line conbx MVZ, clpattern(solid) clwidth(medium) clcolor(black) yaxis(1) || line upperx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line lowerx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line yline MVZ, clwidth(thin) clcolor(black) clpattern(solid) || , xlabel(0 0.5 1 1.5 2 2.5 3 3.5 4, nogrid labsize(2)) ylabel(-0.5 0 0.5 1 1.5 2, axis(1) nogrid labsize(2)) ylabel(0 1 2 3 4 5 6 7 8 9 10, axis(2) nogrid labsize(2)) yscale(noline alt) yscale(noline alt axis(2)) xscale(noline) legend(off) title("The impact of directives on EU support" "at different levels of distance to the outcome in retrospect") xtitle("Distance to the outcome in retrospect" , size(2.5) ) ytitle("Marginal effect of directives", axis(1) size(2.5)) ytitle("Percentage of observations" , axis(2) size(2.5)) xsca(titlegap(2)) ysca(titlegap(2)) scheme(s2mono) graphregion(fcolor(white) ilcolor(white) lcolor(white))
graph save Graph figure2e

use EU_SUPPORT, clear
set obs 10000
mixed i102pos_pc dir_share_agg2 gov_agg_2 gov_agg_2_dir_share_agg2 lr_pc_l_agg2 sec_share_agg2 ep_share_agg2 lr_pc_l_agg2_sec_share_agg2 lr_pc_l_agg2_ep_share_agg2 lr_pc_l_agg2_dir_share_agg2 gov_agg_2_sec_share_agg2 gov_agg_2_ep_share_agg2 eu_fam1 eu_fam2 eu_fam3 eu_fam4 eu_fam5 eu_fam6 eu_fam7 eu_fam8 eu_fam10 eb_sup w_va obb_gni_calc trade_exp partysize EU_salience divisiveness, noconstant || ecoden: year, covariance(unstructured)
matrix b=e(b)
matrix V=e(V)
scalar b1=b[1,1]
scalar b3=b[1,3]
scalar varb1=V[1,1]
scalar varb3=V[3,3]
scalar covb1b3=V[1,3]
scalar list b1 b3 varb1 varb3 covb1b3
generate MVZ=((_n-1)/1000)
replace MVZ=. if _n>1001
gen conbx=b1+b3*MVZ if _n<1001
gen consx=sqrt(varb1+varb3*(MVZ^2)+2*covb1b3*MVZ) if _n<1001
gen ax=1.96*consx
gen upperx=conbx+ax
gen lowerx=conbx-ax
gen where=-0.77
gen pipe = "|"
egen tag_lr = tag(gov_agg_2)
gen yline=0
graph twoway hist gov_agg_2, percent color(gs14) yaxis(2) || scatter where gov_agg_2 if tag_lr, plotr(m(b 4)) ms(none) mlabcolor(gs5) mlabel(pipe) mlabpos(6) legend(off) || line conbx MVZ, clpattern(solid) clwidth(medium) clcolor(black) yaxis(1) || line upperx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line lowerx MVZ, clpattern(dash) clwidth(thin) clcolor(black) || line yline MVZ, clwidth(thin) clcolor(black) clpattern(solid) || , xlabel(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1, nogrid labsize(2)) ylabel(-0.8 -0.6 -0.4 -0.2 0 0.2 0.4 0.6, axis(1) nogrid labsize(2)) ylabel(0 5 10 15 20 25 30 35 40, axis(2) nogrid labsize(2)) yscale(noline alt) yscale(noline alt axis(2)) xscale(noline) legend(off) title("The impact of directives on EU support" "at different levels of government party in retrospect") xtitle("Government party in retrospect" , size(2.5) ) ytitle("Marginal effect of directives", axis(1) size(2.5)) ytitle("Percentage of observations" , axis(2) size(2.5)) xsca(titlegap(2)) ysca(titlegap(2)) scheme(s2mono) graphregion(fcolor(white) ilcolor(white) lcolor(white))
graph save Graph figure2f

log close