* Grafiken der Koeffizienten im Analysedesign 1
* ---------------------------------------------

clear
version 7.0
set memory 40m

* +----+
* |Data|
* +----+


* crmarg1_3.do gelaufen? 
* Wenn nicht, jetzt starten und Koeffizienten laden

capture use marg1_3, clear
if _rc == 601 {
	do crmarg1_3
	use marg1_3
}


* +-----------------------+
* |Vorbereitung der Grafik|
* +-----------------------+


* Beobachtung fuer die Referenzkategorien
* ---------------------------------------

set obs 18
for var spd* cdu* b90*: replace X = 0 in 18
replace coef = "referenz" in 18


* Beschriftungen der X-Achsen 
* ---------------------------

* Vergangene Parteineigung

gen pid = 0 if coef == "referenz"
replace pid = 1 if coef == "pil1_2"
replace pid = 2 if coef == "pil1_3"
lab var pid " "
lab val pid pid
lab def pid 0 "SPD" 1 "CDU,FDP" 2 "B90"

* Politische Stimmung im HH

gen hhstim = 1 if coef == "ikons"
replace hhstim = 2 if coef == "ispd"
replace hhstim = 3 if coef == "ib90"
lab var hhstim " "
lab val hhstim hhstim
lab def hhstim 1 "CDU,FDP" 2 "SPD" 3 "B90/Gr."

* Klasse

gen egp = 0 if coef== "referenz"
replace egp = 1 if coef == "egp_2" 
replace egp = 2 if coef == "egp_3"  
replace egp = 3 if coef == "egp_4"  
replace egp = 4 if coef == "egp_5"  
replace egp = 5 if coef == "egp_6"  
lab var egp " "
lab val egp egp
lab def egp 0 "Selb." 1 "Adm. D." 2 "Exp." 3 "Soz. D."  /*
*/ 4 "Mischt." 5 "Arb."

* Konfession

gen konf = 0 if coef== "referenz"
replace konf = 1 if coef == "konf_2" 
replace konf = 2 if coef == "konf_3"  
replace konf = 3 if coef == "konf_4"  
lab var konf " "
lab val konf konf
lab def konf 0 "Katholisch" 1 "Evangelisch" 2 "Keine" 3 "Sonstige" 



* Löschen der Y-Achsenbeschriftung
* --------------------------------

for varlist spd* cdu* b90*: label value X blank
lab def blank 0 " "


* +--------------------------------------+
* |Zusammenführen der beiden Teilgrafiken|
* +--------------------------------------+

capture program drop grtraeg
	program define grtraeg
		gph open, saving(`1', replace)
			graph using g1
			graph using g2
			gph pen 2 
			gph point 500 7000 175 1
			gph point 500 13000 175 3
            gph point 500 22000 175 2
			gph pen 1
			gph text 675 7500 0 -1 SPD
			gph text 675 13500 0 -1 CDU/CSU, FDP
			gph text 675 22500 0 -1 B90/GR.
			gph text 22500 10000 0 1 Lag-13
			gph text 22500 24000 0 1 Lag-1
			gph text 22000 16000 0 0 `2' `3'
			gph font 960 550 
			gph text 11531 600 1 0 Marginaleffekte
		gph close
	end


* +--------+
* |Grafiken|
* +--------+

* Vergangene Parteineigung
* ------------------------

graph spd_13 cdu_13 b90_13 pid if pid~= . , border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3) xscale(.75,2.25)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(-1,1) xlab(0(1)2) /* 
*/ ylab(-1(.25)1) rlab(0) /*
*/ bbox(0,800,23063,17000,900,450,0) saving(g1, replace)
graph spd_1 cdu_1 b90_1 pid if pid~= . , border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3) xscale(.75,2.25)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(-1,1) xlab(0(1)2) /* 
*/ rlab(-1(.25)1) ylab(0) /*
*/ bbox(0,15000,23063,32000,900,450,0) saving(g2, replace)

grtraeg traeg3a_3 Vergangene Parteineigung


* Aktuelle HH-Stimmung
* --------------------

graph spd_13 cdu_13 b90_13 hhstim if hhstim~= . , border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(-1,1) xlab(1(1)3) /* 
*/ ylab(-1(.25)1) rlab(0) /*
*/ bbox(0,800,23063,17000,900,450,0) saving(g1, replace)
graph spd_1 cdu_1 b90_1 hhstim if hhstim~= . , border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(-1,1) xlab(1(1)3) /* 
*/ rlab(-1(.25)1) ylab(0) /*
*/ bbox(0,15000,23063,32000,900,450,0) saving(g2, replace)

grtraeg traeg3b_3 Aktuelle HH-Stimmung

* Aktuelle Klassenposition
* ------------------------

graph spd_13 cdu_13 b90_13 egp if egp~= ., border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(1,1) xlab(0(1)5) /* 
*/ ylab(-1(.25)1) rlab(0) /*
*/ bbox(0,800,23063,17000,900,450,0) saving(g1, replace)
graph spd_1 cdu_1 b90_1 egp if egp~= . , border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(-1,1) xlab(0(1)5) /* 
*/ rlab(-1(.25)1) ylab(0) /*
*/ bbox(0,15000,23063,32000,900,450,0) saving(g2, replace)

grtraeg traeg3c_3 Klassenzugehoerigkeit

* Aktuelle Konfession
* --------------------

graph spd_13 cdu_13 b90_13 konf if konf~= ., border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(1,1) xlab(0(1)3) /* 
*/ ylab(-1(.25)1) rlab(0) /*
*/ bbox(0,800,23063,17000,900,450,0) saving(g1, replace)
graph spd_1 cdu_1 b90_1 konf if konf~= . , border yline(0)  /*
*/ c(l[-#]l[.]l) sort s(OTS) pen(222) key1(" ") gap(3)  /*
*/ ytick(-1(.25)1) rtick(-1(.25)1) yscale(-1,1) xlab(0(1)3) /* 
*/ rlab(-1(.25)1) ylab(0) /*
*/ bbox(0,15000,23063,32000,900,450,0) saving(g2, replace)

grtraeg traeg3d_3 Konfession


erase g1.gph
erase g2.gph

exit