//Insérer le chemin d'accès au fichier de microdonnées intégrées IPUMS PMA, préférablement dans votre fichier répertoire R
cd [insérer le chemin d'accès au fichier de microdonnées intégrées IPUMS PMA]
//Créer un fichier "wide" avec les variables suivantes: RESULTFQ, FERTPREF, FULLPANELWEIGHT, STRATA, EAID, PHASE, GEOCD, GEONG
use [insérer le nom du fichier d'échantillon "wide" ici], clear

//Conserver seulement les observations sur les femmes éligibles interviewées sur trois phases
keep if resultfq_1 == 1 & resultfq_2 == 1 & resultfq_3 == 1

//Créer un nouvelle variable géographiques distinguant certains échantillons infranationaux
gen geog = country
replace geog = 3 if geocd == 2 & country == 2
replace geog = 8 if geong == 2 & country == 9
label define geography 1 "Burkina Faso" 2 "Kinshasa, RDC" 3 "Kongo Central, RDC" 7 "Kénya" 8 "Lagos, Nigéria" 9 "Kano, Nigéria"
label values geog geography
//Coder "No Response" en donnée manquante
foreach var of varlist fertpref_* {
	recode `var' (98/99=.)
}

//Coder "No Response" en donnée manquante
foreach var of varlist fertpref_* {
	recode `var' (98/99=.)
}

//Suivant les exemples sur deux phases établies par Zimmerman et al 2023
label define general_category 1 "Veut un (autre) enfant" 2 "Ne veut pas d'(autre) enfant" 3 "Ne sait pas"


forvalues i = 1(1)3 {
	gen gen_cat_`i' = .
	replace gen_cat_`i' = 1 if fertpref_`i' == 1 
	replace gen_cat_`i' = 2 if fertpref_`i' == 2
	replace gen_cat_`i' = 3 if fertpref_`i' == 97 | fertpref_`i' == 3
	label values gen_cat_`i' general_category
}


//Figure alluviale
keep country geog urban subnational eaid_* strata_* gen_cat_* fullpanelweight
drop if gen_cat_1 == .
drop if gen_cat_2 == .
drop if gen_cat_3 == .
gen seqnum = _n

export delimited "alluvial_wide.csv", replace