DOI: 10.7910/dvn/axofxl
title: Replication Data for: Will the Real Conspiracy Please Stand Up, Sources of Post-communist Democratic Failure

description: * Popova Marinov
* Will the Real Conspiracy Please Stand Up: Sources of Post-communist Democratic Failure
* Perspectives on Politcs
* 2021


* Remarks:

* This file generates Fig 2: file whofights.png
* This file generates Fig 3а 3b: files diffconsp.png and dembgorslavimaya.png


* You will need: 
* STATA 16 (or compatible version)
* data file fb_survey.dta (available from Perspectives on Politics Dataverse 

* Instructions:
* place data file in directory and run this file, as a STATA DO file (it will run since all text is commented out)

* Instructions: 

* open file fb_survey.dta; execute these commands in same directory


* BEGIN DO FILE *

* This part generates used variables from Bulgarian FB Panel:

label drop _all

* AUTHORITARIAN SCALE: is based on a number of items showing auth traits when raising children

gen auth=var2=="да се държи като другите"
replace auth=auth+1 if var3=="уважение към възрастните"
replace auth=auth+1 if var4=="добри обноски"
replace auth=auth+1 if var5=="послушание"

replace auth=3 if auth==4

** WHO FIGHTS OLIGARCHY: view of respondents on who among politicians fights oligarchyy

*SIMEONOV FIGHTS AGAINST OLIGARCHY
 
local i="var6"
local j="vs"

gen fights_`j'=3 if `i'=="бори се"
replace fights_`j'=2 if `i'=="донякъде се бори"
replace fights_`j'=1 if `i'=="не се бори"

*BB FIGHTS AGAINST OLIGARCHY

local i="var7"
local j="bb"

gen fights_`j'=3 if `i'=="бори се"
replace fights_`j'=2 if `i'=="донякъде се бори"
replace fights_`j'=1 if `i'=="не се бори"

*IVANOV FIGHTS AGAINST OLIGARCHY

gen fights_hi=3 if var8=="бори се"
replace fights_hi=2 if var8=="донякъде се бори"
replace fights_hi=1 if var8=="не се бори"

*Slavi FIGHTS AGAINST OLIGARCHY

local i="var9"
local j="st"

gen fights_`j'=3 if `i'=="бори се"
replace fights_`j'=2 if `i'=="донякъде се бори"
replace fights_`j'=1 if `i'=="не се бори"

*Babikyan FIGHTS AGAINST OLIGARCHY

local i="var10"
local j="ab"

gen fights_`j'=3 if `i'=="бори се"
replace fights_`j'=2 if `i'=="донякъде се бори"
replace fights_`j'=1 if `i'=="не се бори"

*PUTIN FIGHTS AGAINST OLIGARCHY

gen fights_vp=3 if var11=="бори се"
replace fights_vp=2 if var11=="донякъде се бори"
replace fights_vp=1 if var11=="не се бори"

*BOJO FIGHTS AGAINST OLIGARCHY

local i="var12"
local j="bj"

gen fights_`j'=3 if `i'=="бори се"
replace fights_`j'=2 if `i'=="донякъде се бори"
replace fights_`j'=1 if `i'=="не се бори"

*TRUMP FIGHTS AGAINST OLIGARCHY

gen fights_dt=3 if var13=="бори се"
replace fights_dt=2 if var13=="донякъде се бори"
replace fights_dt=1 if var13=="не се бори"


*VIEW THAT THE FIGHT FOR WOMEN AND MINORITY RIGHTS HAS GONE TOO FAR

gen gender=3 if var16=="тези движения са неуместни и често стигат до крайности"
replace gender=3 if var16=="тези движения са неуместни, но рядко стигат до крайности"
replace gender=2 if var16=="тези движения са уместни, но често стигат до крайности"
replace gender=1 if var16=="тези движения са уместни и рядко стигат до крайности"

*VIEW THAT COVID IS A MAN-MADE CONSPIRACY

gen covidc=var17=="целенасочено действие на кръгове заинтересовани лица"

*VIEW THAT COVID VACCINES ARE A PROBLEM

gen vaccine_problem=var18=="ваксините са по-скоро безопасни"
replace vaccine_problem=2 if var18=="трудно е да се прецени, дали ваксините са опасни или безопасни"
replace vaccine_problem=3 if var18=="ваксините са по-скоро опасни"

* THIS PART SETS UP THE VARIABLE FOR THE WHOFIGHTS GRAPH

* for sep graph wide of which politician fights

* Step1

foreach i of varlist fights_hi fights_ab fights_st fights_dt fights_bj fights_vp fights_vs fights_bb {
 
 gen `i'_bin=`i'&gt;=2
 
}

* Step2 

local k=0

foreach i of varlist fights_hi_bin fights_ab_bin fights_st_bin fights_bj_bin fights_dt_bin fights_vp_bin fights_vs_bin fights_bb_bin {

local k=`k'+1 
 
 gen who`k'=`i'
 
}


***** The below is a detour; uncomment and run separately, 
***** having hit preseve, you will then hit restore to continue with the main file

* Remark:
* You will have the file whofights.png produced as a result, for 
* Fig 2 

**preserve

**keep who1-who8
**gen id=_n
**reshape long who, i(id) j(politician)
**rename who fights
**label def pol 1 "Ivanov" 2 "Babikyan" 3 "Trifonov" 4 "Johnson" 5 "Trump" 6 "Putin" 7 "Simeonov" 8 "Borisov"
**label val politician pol
**graph dot (mean) fights, over(politician) marker(1, msymbol(o)) ytitle("fraction agreeing ___ fights oligarchy") ylabel(0(.2)1) aspectratio(1) graphregion(color(white))
**graph export whofights.pdf
**graph export whofights.png

**restore


***** END OF DETOUR


* SETUP FOR WHO RESPONDENT WOULD VOTE FOR

gen wouldvotefordabg=(strpos(var14,"Демократична България")&gt;0)
gen noforslavimaia=(strpos(var15,"Има Такъв Народ")&gt;0 | strpos(var15,"Изправи се БГ")&gt;0)
gen oppnoforslavimaia=1-noforslavimaia
rename oppnoforslavimaia voteforslavimaia
label var voteforslavimaia "would vote for Slavi or Maya"

* THIS IS A CONVENIENT HACK TO GET ONE MORE TITLE IN GRAPHS

gen authlab=1
label def authlablab 1 "authoritarian predisposition"
label val authlab authlablab

*** Fig 3 a and b produced here dembgorslavimaya.png and diffconsp.png

* VOTE DABG OR SLAVI/MAYA

graph bar (mean) wouldvotefordabg voteforslavimaia, over(auth) over(authlab) graphregion(color(white)) intensity(0) ylabel(0(.1)1, nogrid) bar(1, color(navy) fintensity(0)) bar(2, color(maroon) fintensity(20)) legend(rows(1) stack size(big) order(1 "Would Vote for DemBG" 2 "Could vote for Slavi/Maya")) bargap(25)

graph export dembgorslavimaya.pdf, replace
graph export dembgorslavimaya.png, replace


*GENERATE CONSPIRACY SCORE

gen gender_bin=gender&gt;=2
gen consp=1 if covidc==0 & gender_bin==0
replace consp=2 if covidc==0 & gender_bin==1
replace consp=3 if covidc==1 & gender_bin==0
replace consp=4 if covidc==1 & gender_bin==1
gen conspc0g0=consp==1
gen conspc0g1=consp==2
gen conspc1g0=consp==3
gen conspc1g1=consp==4

*THIS IS THE CONSPIRACY SCORE OVER THE AUTH PREDISP GRAPH

graph bar (mean) conspc0g0 conspc0g1 conspc1g0 conspc1g1, over(auth) over(authlab) bar(1, color(grey) fintensity(inten0)) bar(2, color(grey) fintensity(inten20)) bar(3, color(grey) fintensity(inten50)) bar(4, color(grey) fintensity(inten80)) stack ylabel(0(.1)1, nogrid) legend(rows(1) stack order(1 "Covid C.: No" "Gender: ok" 2 "Covid C.: No" "Gender: too far" 3 "Covid C.: Yes" "Gender: ok" 4 "Covid C.: Yes" "Gender: too far")) graphregion(color(white)) 

graph export diffconsp.pdf, replace
graph export diffconsp.png, replace