* Example generated by -dataex-. For more info, type help dataex
* dataex primaryprovince type month year1
clear
input str20 primaryprovince str22 type float(month year1)
"Kabul" ""                4 2009
"Kabul" "ISAF"            4 2011
"Kabul" "ISAF"            4 2013
"Kabul" "INS"             4 2013
"Kabul" "INS"             4 2014
"Kabul" ""                4 2008
"Kabul" "Civilians"       4 2011
"Kabul" ""                4 2012
"Kabul" "Afghan Military" 4 2013
"Kabul" "Civilians"       4 2013
"Kabul" "INS"             4 2013
"Kabul" ""                4 2014
"Kabul" "INS"             4 2014
"Kabul" "Civilians"       4 2014
"Kabul" ""                4 2014
"Kabul" ""                4 2009
"Kabul" "INS"             4 2011
"Kabul" ""                4 2012
"Kabul" "INS"             4 2014
"Kabul" "INS"             4 2014
"Kabul" ""                4 2007
"Kabul" "ISAF"            4 2007
"Kabul" "AUP"             4 2009
"Kabul" ""                4 2009
"Kabul" "INS"             4 2014
"Kabul" "INS"             4 2014
"Kabul" "GIRoA"           4 2014
"Kabul" ""                4 2010
"Kabul" "Afghan Military" 4 2010
"Kabul" "Afghan Military" 4 2013
"Kabul" ""                4 2014
"Kabul" "INS"             4 2014
"Kabul" "INS"             4 2014
"Kabul" "Afghan Military" 4 2014
"Kabul" "Civilians"       4 2007
"Kabul" "ISAF"            4 2008
"Kabul" "ISAF"            4 2013
"Kabul" "Afghan Military" 4 2013
"Kabul" "ISAF"            4 2013
"Kabul" ""                4 2008
"Kabul" "Civilians"       4 2009
"Kabul" ""                4 2009
"Kabul" "Civilians"       4 2006
"Kabul" "ISAF"            4 2007
"Kabul" ""                4 2010
"Kabul" "ISAF"            4 2012
"Kabul" "Civilians"       4 2013
"Kabul" ""                4 2014
"Kabul" ""                4 2009
"Kabul" "ISAF"            4 2011
"Kabul" "Civilians"       4 2011
"Kabul" "AUP"             4 2009
"Kabul" "ISAF"            4 2009
"Kabul" "ISAF"            4 2010
"Kabul" "Afghan Military" 4 2009
"Kabul" ""                4 2009
"Kabul" "ISAF"            4 2010
"Kabul" ""                4 2011
"Kabul" ""                4 2009
"Kabul" ""                4 2009
"Kabul" "Infrastructure"  4 2010
"Kabul" ""                4 2011
"Kabul" "Afghan Military" 4 2014
"Kabul" "ISAF"            4 2014
"Kabul" ""                4 2007
"Kabul" "ISAF"            4 2008
"Kabul" "ISAF"            4 2012
"Kabul" ""                4 2013
"Kabul" ""                4 2008
"Kabul" "ISAF"            4 2008
"Kabul" "Civilians"       4 2011
"Kabul" "INS"             4 2012
"Kabul" ""                4 2013
"Kabul" "ISAF"            4 2013
"Kabul" "ISAF"            4 2011
"Kabul" ""                4 2012
"Kabul" "Civilians"       4 2012
"Kabul" "ISAF"            4 2012
"Kabul" "INS"             4 2012
"Kabul" "INS"             4 2012
"Kabul" ""                4 2013
"Kabul" "ABP"             4 2014
"Kabul" "GIRoA"           4 2014
"Kabul" "GIRoA"           4 2014
"Kabul" ""                4 2012
"Kabul" ""                4 2012
"Kabul" "Civilians"       4 2012
"Kabul" "Civilians"       4 2012
"Kabul" "ISAF"            4 2013
"Kabul" "ANCOP"           4 2014
"Kabul" ""                4 2008
"Kabul" "AUP"             4 2008
"Kabul" "AUP"             4 2011
"Kabul" "INS"             4 2011
"Kabul" ""                4 2012
"Kabul" ""                4 2007
"Kabul" "ISAF"            4 2009
"Kabul" ""                4 2009
"Kabul" "INS"             4 2011
"Kabul" ""                4 2014
end

replace primaryprovince = subinstr(primaryprovince, "Federally Administer", "Federally Administered", .)
replace primaryprovince = subinstr(primaryprovince, "Jawzjan", "Jowzjan", .)
replace primaryprovince = subinstr(primaryprovince, "KKhost", "Khost", .)
replace primaryprovince = subinstr(primaryprovince, "SGhazni", "Ghazni", .)
replace primaryprovince = subinstr(primaryprovince, "S Ghazni", "Ghazni", .)
replace primaryprovince = subinstr(primaryprovince, "Sari Pul", "Sar-e Pul", .)
replace primaryprovince = subinstr(primaryprovince, "a Herat", "Hirat", .)
replace primaryprovince = subinstr(primaryprovince, "aPaktika", "Paktika", .)
replace primaryprovince = subinstr(primaryprovince, "dPaktika", "Paktika", .)
replace primaryprovince = subinstr(primaryprovince, "dParwan", "Parwan", .)
replace primaryprovince = subinstr(primaryprovince, "eKhost", "Khost", .)
replace primaryprovince = subinstr(primaryprovince, "gSamangan", "Samangan", .)
replace primaryprovince = subinstr(primaryprovince, "hKapisa", "Kapisa", .)
replace primaryprovince = subinstr(primaryprovince, "hLogar", "Logar", .)
replace primaryprovince = subinstr(primaryprovince, "hWardak", "Wardak", .)
replace primaryprovince = subinstr(primaryprovince, "iHelmand", "Helmand", .)
replace primaryprovince = subinstr(primaryprovince, "lBaghlan", "Baghlan", .)
replace primaryprovince = subinstr(primaryprovince, "lSamangan", "Samangan", .)
replace primaryprovince = subinstr(primaryprovince, "nBalkh", "Balkh", .)
replace primaryprovince = subinstr(primaryprovince, "nHerat", "Herat", .)
replace primaryprovince = subinstr(primaryprovince, "uHerat", "Herat", .)
replace primaryprovince = subinstr(primaryprovince, "Day Kundi", "Daykundi", .)
replace primaryprovince = subinstr(primaryprovince, "Hirat", "Herat", .)
replace primaryprovince = subinstr(primaryprovince, ") Herat", "Herat", .)
replace primaryprovince = subinstr(primaryprovince, "JGhazni", "Ghazni", .)
replace primaryprovince = subinstr(primaryprovince, "Paktya", "Paktiya", .)


* create year-month  date
gen modate = ym(year1, month)
format modate %tm
format %tmMon_CCYY modate
gen type10 = 1
tempfile datax
save `datax'

keep if type == "ISAF"
replace type10 = 2
la def type10 1 "Total" 2 "ISAF"
la val type10 type10
append using `datax'
ta type10

* aggregate
contract primaryprovince modate type10, zero
rename _freq sigacts
label var sigacts "Significant Activities"
label var type10 "Type"
label var primaryprovince "Province"
label var modate "Time"
label var modate "Period"

* remove missing
drop if primaryprovince==""
drop if modate==.


/* Define a list of provinces */
local provinces ""Badakhshan" "Badghis" "Baghlan" "Balkh" "Bamyan" "Daykundi" "Farah" "Faryab" "Federally Administered Tribal Areas" "Ghazni" "Ghor"  "Helmand" "Herat" "Jowzjan" "Kabul" "Kandahar" "Kapisa" "Khost" "Khyber Pakhtunkhwa" "Kunar" "Kunduz" "Laghman" "Logar" "Nangarhar" "Nimroz" "Nuristan" "Paktika" "Paktiya" "Panjshir" "Parwan" "Samangan" "Sar-e Pul" "Takhar" "Uruzgan" "Wardak" "Zabul""

/* Loop over each province */
foreach province of local provinces {

    /* Generate a line plot of sigacts vs modate for the current province and type10 */
    twoway (line sigacts modate if type10==1 & primaryprovince == "`province'",lcolor(green)) (line sigacts modate if type10==2 & primaryprovince == "`province'",lcolor(red)), title("Monthly SIGACTs in `province', 2005-2014") xtitle("") ytitle("Totals") legend(label(1 "Total") label(2 "ISAF")) tlabel(2005m1(6)2014m12) xlabel(, angle(vertical))

    /* Save the plot as an image */
    graph export "sigacts_`province'.png", replace
}

twoway (line sigacts modate if type10==1 & primaryprovince == "Badakhshan",lcolor(green)) (line sigacts modate if type10==2 & primaryprovince == "Badakhshan",lcolor(red)), title("Monthly SIGACTs in Badakhshan, 2005-2014") xtitle("") ytitle("Totals") legend(label(1 "Total") label(2 "ISAF")) tlabel(2005m1(6)2014m12) xlabel(, angle(vertical)) xline(2005m7(12)2014m12, lcolor(gray*0.20))