¿Podría fabricarse uno para España?

Me refiero a algo similar a (referencia):

Lo ideal sería crear una función compatible con el sistema de facetas de ggplot2 con nombre, p.e., facet_spain que permitiese disponer cualquier tipo de gráfico en una retícula similar.

No particularmente difícil, pero sí, seguro, utilísimo.

¿A nadie le tienta el proyecto?

[Me encanta el impersonal de “podría fabricarse…”. ¡Es como tan de tirar la piedra y esconder la mano!]

2 comentarios sobre “¿Podría fabricarse uno para España?

  1. Sergio J 8 abril, 2017 14:10

    Ahí os dejo mi granito de arena. No es todo lo que “podría fabricarse” pero es un inicio. Os dejo una propuesta de disposición con una adaptación del código de los del mapa de los EEUU
    Muestro la evolución de la edad media por provincia en España. Los datos aquí http://www.ine.es/jaxiT3/Datos.htm?t=3199

    library(pxR)
    library(dplyr)
    library(tidyr)
    library(ggplot)

    #—- Carga y transformacion de datos

    pob <- read.px("3199.px")
    pob <- as.data.frame(pob)
    pob$Sexo <- NULL
    pob$Periodo <- as.numeric(as.character(pob$Periodo))
    pob % separate(Provincias, into = c(“id_provincia”, “provincia”), sep = 3)
    pob$fecha <- as.Date(paste0(pob$Periodo, "-12-31"))
    pob <- subset(pob,as.numeric(id_provincia)<=50)

    #—- Plot

    bl = sapply(1:22, function(n) paste(rep(" ",n),collapse=""))

    pob$provincia.reorder <- factor(pob$provincia,
    levels = c("Coruña, A","Lugo","Asturias","Cantabria","Bizkaia","Gipuzkoa","Navarra",bl[1:2],
    "Pontevedra","Ourense","León","Palencia","Burgos","Araba/Álava" ,"Huesca","Lleida","Girona",
    bl[3:4],"Zamora","Valladolid","Soria","Rioja, La","Zaragoza","Tarragona","Barcelona",
    bl[5:6],"Salamanca","Ávila","Segovia","Guadalajara","Teruel",bl[7:8],
    bl[9:10],"Cáceres","Toledo","Madrid","Cuenca","Castellón/Castelló",bl[11],"Balears, Illes",
    bl[12:13],"Badajoz","Córdoba","Ciudad Real","Albacete", "Valencia/València",bl[14:15],
    bl[16:17],"Huelva","Sevilla","Jaén","Murcia","Alicante/Alacant",bl[18:19],
    bl[20:21],"Cádiz","Málaga","Granada","Almería",bl[22],"Palmas, Las","Santa Cruz de Tenerife"))

    ggplot(pob, aes(x = fecha, y = value)) +
    geom_line() + facet_wrap(~ provincia.reorder, ncol=9,drop = F, strip.position="bottom") +
    labs(title = "Evolución de la edad media por provincias en España (1975-2016)", y="Edad Media") +
    theme_classic() +
    theme(axis.text.x = element_blank(),
    strip.background=element_blank(),
    axis.line=element_blank(),
    axis.ticks=element_blank())

Los comentarios están desabilitados.