Adds state name to seccion plots

emagar · Jul 12, 2018 · 88c451b · 88c451b
1 parent cc456b2
commit 88c451b
Show file tree

Hide file tree

Showing 69 changed files with 7 additions and 7 deletions.
diff --git a/code/plot2018pr.r b/code/plot2018pr.r
@@ -926,8 +926,9 @@ summary(pr.se$camloneg[pr.se$camloneg<0])
 summary(pr.se$cprineg[pr.se$cprineg<0])
 summary(pr.se$cpanneg[pr.se$cpanneg<0])
 
-edon <- 31
+edon <- 32
 edo <- edos[edon]
+estado <- c("Aguascalientes","Baja California","Baja California Sur","Campeche","Coahuila","Colima","Chiapas","Chihuahua","Ciudad de México","Durango","Guanajuato","Guerrero","Hidalgo","Jalisco","México","Michoacán","Morelos","Nayarit","Nuevo León","Oaxaca","Puebla","Querétaro","Quintana Roo","San Luis Potosí","Sinaloa","Sonora","Tabasco","Tamaulipas","Tlacala","Veracruz","Yucatán","Zacatecas")[edon]
 
 #################
 # secciones map #
@@ -965,10 +966,9 @@ tmp <- readOGR(dsn = tmp, layer = 'ENTIDAD')
 tmp <- spTransform(tmp, osm())
 ed.map <- tmp
 
-
 # trial
 #plot(shave(mu.map, p = .95), lwd = .5, border = "gray")
-plot(mu.map, lwd = .5, border = "gray")
+plot(mu.map, lwd = .5, border = "gray", main = estado)
 axis(1); axis(2)
 
 ###################################
@@ -977,9 +977,9 @@ axis(1); axis(2)
 library(graphics)
 #png(paste("/home/eric/Desktop/MXelsCalendGovt/elecReturns/graph/nytPlusPri-", edo, ".png", sep = ""), width = 20, height = 20, units = "cm", res = 196)
 #pdf(paste("/home/eric/Desktop/MXelsCalendGovt/elecReturns/graph/nytPlusPri-", edo, ".pdf", sep = ""), width = 10, height = 7)
-par(mar = c(0,0,0,0))
+par(mar = c(0,0,2,0))
 #plot(shave(mu.map, p = .95), lwd = .5, border = "gray")
-plot(se.map, lwd = .25, border = "lightgray")
+plot(se.map, lwd = .25, border = "lightgray", main = estado)
 tmp.ranges <- par("usr") # keep calculated xy ranges to compute arrow length
 plot(mu.map, lwd = .5,          border = "gray", add = TRUE)
 plot(mu.map, lwd = .5, lty = 3, border = "white", add = TRUE)
@@ -1031,9 +1031,9 @@ dev.off()
 library(graphics)
 #png(paste("/home/eric/Desktop/MXelsCalendGovt/elecReturns/graph/nytPlusPan-", edo, ".png", sep = ""), width = 20, height = 20, units = "cm", res = 196)
 #pdf(paste("/home/eric/Desktop/MXelsCalendGovt/elecReturns/graph/nytPlusPan-", edo, ".pdf", sep = ""), width = 10, height = 7)
-par(mar = c(0,0,0,0))
+par(mar = c(0,0,2,0))
 #plot(shave(mu.map, p = .95), lwd = .5, border = "gray")
-plot(se.map, lwd = .25, border = "lightgray")
+plot(se.map, lwd = .25, border = "lightgray", main = estado)
 tmp.ranges <- par("usr") # keep calculated xy ranges to compute arrow length
 plot(mu.map, lwd = .5,          border = "gray", add = TRUE)
 plot(mu.map, lwd = .5, lty = 3, border = "white", add = TRUE)

diff --git a/graph/nytPlusPan-ags.pdf b/graph/nytPlusPan-ags.pdf
diff --git a/graph/nytPlusPan-ags.png b/graph/nytPlusPan-ags.png
diff --git a/graph/nytPlusPan-bc.pdf b/graph/nytPlusPan-bc.pdf
diff --git a/graph/nytPlusPan-bc.png b/graph/nytPlusPan-bc.png
diff --git a/graph/nytPlusPan-bcs.pdf b/graph/nytPlusPan-bcs.pdf
diff --git a/graph/nytPlusPan-bcs.png b/graph/nytPlusPan-bcs.png
diff --git a/graph/nytPlusPan-coa.pdf b/graph/nytPlusPan-coa.pdf
diff --git a/graph/nytPlusPan-coa.png b/graph/nytPlusPan-coa.png
diff --git a/graph/nytPlusPan-cps.pdf b/graph/nytPlusPan-cps.pdf
diff --git a/graph/nytPlusPan-cps.png b/graph/nytPlusPan-cps.png
diff --git a/graph/nytPlusPan-cua.pdf b/graph/nytPlusPan-cua.pdf
diff --git a/graph/nytPlusPan-cua.png b/graph/nytPlusPan-cua.png
diff --git a/graph/nytPlusPan-df.pdf b/graph/nytPlusPan-df.pdf
diff --git a/graph/nytPlusPan-df.png b/graph/nytPlusPan-df.png
diff --git a/graph/nytPlusPan-dgo.pdf b/graph/nytPlusPan-dgo.pdf
diff --git a/graph/nytPlusPan-dgo.png b/graph/nytPlusPan-dgo.png
diff --git a/graph/nytPlusPan-gua.pdf b/graph/nytPlusPan-gua.pdf
diff --git a/graph/nytPlusPan-gua.png b/graph/nytPlusPan-gua.png
diff --git a/graph/nytPlusPan-gue.pdf b/graph/nytPlusPan-gue.pdf
diff --git a/graph/nytPlusPan-gue.png b/graph/nytPlusPan-gue.png
diff --git a/graph/nytPlusPan-hgo.pdf b/graph/nytPlusPan-hgo.pdf
diff --git a/graph/nytPlusPan-hgo.png b/graph/nytPlusPan-hgo.png
diff --git a/graph/nytPlusPan-jal.pdf b/graph/nytPlusPan-jal.pdf
diff --git a/graph/nytPlusPan-jal.png b/graph/nytPlusPan-jal.png
diff --git a/graph/nytPlusPri-ags.pdf b/graph/nytPlusPri-ags.pdf
diff --git a/graph/nytPlusPri-ags.png b/graph/nytPlusPri-ags.png
diff --git a/graph/nytPlusPri-bc.pdf b/graph/nytPlusPri-bc.pdf
diff --git a/graph/nytPlusPri-bc.png b/graph/nytPlusPri-bc.png
diff --git a/graph/nytPlusPri-bcs.pdf b/graph/nytPlusPri-bcs.pdf
diff --git a/graph/nytPlusPri-bcs.png b/graph/nytPlusPri-bcs.png
diff --git a/graph/nytPlusPri-coa.pdf b/graph/nytPlusPri-coa.pdf
diff --git a/graph/nytPlusPri-coa.png b/graph/nytPlusPri-coa.png
diff --git a/graph/nytPlusPri-cps.pdf b/graph/nytPlusPri-cps.pdf
diff --git a/graph/nytPlusPri-cps.png b/graph/nytPlusPri-cps.png
diff --git a/graph/nytPlusPri-cua.pdf b/graph/nytPlusPri-cua.pdf
diff --git a/graph/nytPlusPri-cua.png b/graph/nytPlusPri-cua.png
diff --git a/graph/nytPlusPri-df.pdf b/graph/nytPlusPri-df.pdf
diff --git a/graph/nytPlusPri-df.png b/graph/nytPlusPri-df.png
diff --git a/graph/nytPlusPri-dgo.pdf b/graph/nytPlusPri-dgo.pdf
diff --git a/graph/nytPlusPri-dgo.png b/graph/nytPlusPri-dgo.png
diff --git a/graph/nytPlusPri-gua.pdf b/graph/nytPlusPri-gua.pdf
diff --git a/graph/nytPlusPri-gua.png b/graph/nytPlusPri-gua.png
diff --git a/graph/nytPlusPri-gue.pdf b/graph/nytPlusPri-gue.pdf
diff --git a/graph/nytPlusPri-gue.png b/graph/nytPlusPri-gue.png
diff --git a/graph/nytPlusPri-hgo.pdf b/graph/nytPlusPri-hgo.pdf
diff --git a/graph/nytPlusPri-hgo.png b/graph/nytPlusPri-hgo.png
diff --git a/graph/nytPlusPri-jal.pdf b/graph/nytPlusPri-jal.pdf
diff --git a/graph/nytPlusPri-jal.png b/graph/nytPlusPri-jal.png
diff --git a/graph/nytPlusPri-nay.pdf b/graph/nytPlusPri-nay.pdf
diff --git a/graph/nytPlusPri-nay.png b/graph/nytPlusPri-nay.png
diff --git a/graph/nytPlusPri-nl.pdf b/graph/nytPlusPri-nl.pdf
diff --git a/graph/nytPlusPri-nl.png b/graph/nytPlusPri-nl.png
diff --git a/graph/nytPlusPri-oax.pdf b/graph/nytPlusPri-oax.pdf
diff --git a/graph/nytPlusPri-oax.png b/graph/nytPlusPri-oax.png
diff --git a/graph/nytPlusPri-san.pdf b/graph/nytPlusPri-san.pdf
diff --git a/graph/nytPlusPri-san.png b/graph/nytPlusPri-san.png
diff --git a/graph/nytPlusPri-sin.pdf b/graph/nytPlusPri-sin.pdf
diff --git a/graph/nytPlusPri-sin.png b/graph/nytPlusPri-sin.png
diff --git a/graph/nytPlusPri-son.pdf b/graph/nytPlusPri-son.pdf
diff --git a/graph/nytPlusPri-son.png b/graph/nytPlusPri-son.png
diff --git a/graph/nytPlusPri-tam.pdf b/graph/nytPlusPri-tam.pdf
diff --git a/graph/nytPlusPri-tam.png b/graph/nytPlusPri-tam.png
diff --git a/graph/nytPlusPri-tla.pdf b/graph/nytPlusPri-tla.pdf
diff --git a/graph/nytPlusPri-tla.png b/graph/nytPlusPri-tla.png
diff --git a/graph/nytPlusPri-ver.pdf b/graph/nytPlusPri-ver.pdf
diff --git a/graph/nytPlusPri-ver.png b/graph/nytPlusPri-ver.png
diff --git a/graph/nytPlusPri-zac.pdf b/graph/nytPlusPri-zac.pdf
diff --git a/graph/nytPlusPri-zac.png b/graph/nytPlusPri-zac.png