Closed mikafui2020 closed 2 weeks ago
Colombia grid (admin1 ).
Example: Using colombia grid in geofacet code
mygrid <- data.frame( row = c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8), col = c(3, 2, 3, 1, 2, 3, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 3, 4, 5), name_NAME_1 = c("Atlántico", "Sucre", "Magdalena", "San Andrés y Providencia", "Córdoba", "Bolívar", "Chocó", "Antioquia", "Santander", "Norte de Santander", "Arauca", "La Guajira", "Risaralda", "Quindío", "Cundinamarca", "Boyacá", "Cesar", "Vichada", "Cauca", "Huila", "Caldas", "Meta", "Casanare", "Guainía", "Nariño", "Valle del Cauca", "Caquetá", "Guaviare", "Vaupés", "Putumayo", "Tolima", "Amazonas"), code_GID_1 = c("COL.4_1", "COL.28_1", "COL.19_1", "COL.26_1", "COL.13_1", "COL.5_1", "COL.12_1", "COL.2_1", "COL.27_1", "COL.22_1", "COL.3_1", "COL.18_1", "COL.25_1", "COL.24_1", "COL.14_1", "COL.6_1", "COL.11_1", "COL.32_1", "COL.10_1", "COL.17_1", "COL.7_1", "COL.20_1", "COL.9_1", "COL.15_1", "COL.21_1", "COL.30_1", "COL.8_1", "COL.16_1", "COL.31_1", "COL.23_1", "COL.29_1", "COL.1_1"), code_HASC_1 = c("CO.AT", "CO.SU", "CO.MA", "CO.SA", "CO.CO", "CO.BL", "CO.CH", "CO.AN", "CO.ST", "CO.NS", "CO.AR", "CO.LG", "CO.RI", "CO.QD", "CO.CU", "CO.BY", "CO.CE", "CO.VD", "CO.CA", "CO.HU", "CO.CL", "CO.ME", "CO.CS", "CO.GN", "CO.NA", "CO.VC", "CO.CQ", "CO.GV", "CO.VP", "CO.PU", "CO.TO", "CO.AM"), stringsAsFactors = FALSE )
P<-ggplot(mydata_sfreal, aes(x=Year, y=SIR, color=TYPE)) + geom_point() + facet_geo(~ NAME_1, grid=mygrid) + scale_x_continuous(labels = function(x) paste0("'", substr(x, 3, 4))) + labs(x="Time (Year)", y="SIR")
Grid data:
row,col,name_NAME_1,code_GID_1,code_HASC_1 1,3,Atlántico,COL.4_1,CO.AT 2,2,Sucre,COL.28_1,CO.SU 2,3,Magdalena,COL.19_1,CO.MA 3,1,San Andrés y Providencia,COL.26_1,CO.SA 3,2,Córdoba,COL.13_1,CO.CO 3,3,Bolívar,COL.5_1,CO.BL 4,1,Chocó,COL.12_1,CO.CH 4,2,Antioquia,COL.2_1,CO.AN 4,3,Santander,COL.27_1,CO.ST 4,4,Norte de Santander,COL.22_1,CO.NS 4,5,Arauca,COL.3_1,CO.AR 4,6,La Guajira,COL.18_1,CO.LG 5,1,Risaralda,COL.25_1,CO.RI 5,2,Quindío,COL.24_1,CO.QD 5,3,Cundinamarca,COL.14_1,CO.CU 5,4,Boyacá,COL.6_1,CO.BY 5,5,Cesar,COL.11_1,CO.CE 5,6,Vichada,COL.32_1,CO.VD 6,1,Cauca,COL.10_1,CO.CA 6,2,Huila,COL.17_1,CO.HU 6,3,Caldas,COL.7_1,CO.CL 6,4,Meta,COL.20_1,CO.ME 6,5,Casanare,COL.9_1,CO.CS 6,6,Guainía,COL.15_1,CO.GN 7,1,Nariño,COL.21_1,CO.NA 7,2,Valle del Cauca,COL.30_1,CO.VC 7,3,Caquetá,COL.8_1,CO.CQ 7,4,Guaviare,COL.16_1,CO.GV 7,5,Vaupés,COL.31_1,CO.VP 8,3,Putumayo,COL.23_1,CO.PU 8,4,Tolima,COL.29_1,CO.TO 8,5,Amazonas,COL.1_1,CO.AM
Added in https://github.com/hafen/grid-designer/pull/8
Colombia grid (admin1 ).
Example: Using colombia grid in geofacet code
mygrid <- data.frame( row = c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8), col = c(3, 2, 3, 1, 2, 3, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 3, 4, 5), name_NAME_1 = c("Atlántico", "Sucre", "Magdalena", "San Andrés y Providencia", "Córdoba", "Bolívar", "Chocó", "Antioquia", "Santander", "Norte de Santander", "Arauca", "La Guajira", "Risaralda", "Quindío", "Cundinamarca", "Boyacá", "Cesar", "Vichada", "Cauca", "Huila", "Caldas", "Meta", "Casanare", "Guainía", "Nariño", "Valle del Cauca", "Caquetá", "Guaviare", "Vaupés", "Putumayo", "Tolima", "Amazonas"), code_GID_1 = c("COL.4_1", "COL.28_1", "COL.19_1", "COL.26_1", "COL.13_1", "COL.5_1", "COL.12_1", "COL.2_1", "COL.27_1", "COL.22_1", "COL.3_1", "COL.18_1", "COL.25_1", "COL.24_1", "COL.14_1", "COL.6_1", "COL.11_1", "COL.32_1", "COL.10_1", "COL.17_1", "COL.7_1", "COL.20_1", "COL.9_1", "COL.15_1", "COL.21_1", "COL.30_1", "COL.8_1", "COL.16_1", "COL.31_1", "COL.23_1", "COL.29_1", "COL.1_1"), code_HASC_1 = c("CO.AT", "CO.SU", "CO.MA", "CO.SA", "CO.CO", "CO.BL", "CO.CH", "CO.AN", "CO.ST", "CO.NS", "CO.AR", "CO.LG", "CO.RI", "CO.QD", "CO.CU", "CO.BY", "CO.CE", "CO.VD", "CO.CA", "CO.HU", "CO.CL", "CO.ME", "CO.CS", "CO.GN", "CO.NA", "CO.VC", "CO.CQ", "CO.GV", "CO.VP", "CO.PU", "CO.TO", "CO.AM"), stringsAsFactors = FALSE )
P<-ggplot(mydata_sfreal, aes(x=Year, y=SIR, color=TYPE)) + geom_point() + facet_geo(~ NAME_1, grid=mygrid) + scale_x_continuous(labels = function(x) paste0("'", substr(x, 3, 4))) + labs(x="Time (Year)", y="SIR")
Grid data: