censo

Estructura poblacional de España: 2010-2050

27 febrero, 2018

Si se puede hacer para Japón, también se puede hacer para España: El código,

library(idbr)
library(ggplot2)
library(animation)
library(ggthemes)

idb_api_key("pídela en https://www.census.gov/data/developers/data-sets/international-database.html")

male <- idb1('SP', 2010:2050, sex = 'male') 
male$SEX <- "hombres"
male$POP <- -male$POP

female <- idb1('SP', 2010:2050, sex = 'female')
female$SEX <- "mujeres"

spain <- rbind(male, female)

saveGIF({
  
  for (i in 2010:2050) {
    
    title <- as.character(i)
    
    year_data <- spain[spain$time == i, ]
    
    g1 <- ggplot(year_data, aes(x = AGE, y = POP, fill = SEX, width = 1)) +
      coord_fixed() + 
      coord_flip() +
      annotate('text', x = 98, y = -300000, 
               label = 'Datos: US Census Bureau IDB; idbr R package', size = 3) + 
      geom_bar(data = subset(year_data, SEX == "mujeres"), stat = "identity") +
      geom_bar(data = subset(year_data, SEX == "hombres"), stat = "identity") +
      scale_y_continuous(breaks = seq(-300000, 300000, 150000),
                         labels = paste0(as.character(c(seq(300, 0, -150), c(150, 300))), "k"), 
                         limits = c(min(spain$POP), max(spain$POP))) +
      theme_economist(base_size = 14) + 
      scale_fill_manual(values = c('#ff9896', '#d62728')) + 
      ggtitle(paste0('Estructura poblacional de España en, ', title)) + 
      ylab('Población') + 
      xlab('Edad') + 
      theme(legend.position = "bottom", legend.title = element_blank()) + 
      guides(fill = guide_legend(reverse = TRUE))
    
    print(g1)
    
  }
  
}, movie.name = 'spain_pyramid.gif', interval = 0.1, 
   ani.width = 700, ani.height = 600)

library(idbr)

library(ggplot2)

library(animation)

library(ggthemes)

idb_api_key("pídela en https://www.census.gov/data/developers/data-sets/international-database.html")

male <- idb1('SP', 2010:2050, sex = 'male')

male$SEX <- "hombres"

male$POP <- -male$POP

female <- idb1('SP', 2010:2050, sex = 'female')

female$SEX <- "mujeres"

spain <- rbind(male, female)

saveGIF({

for (i in 2010:2050) {

title <- as.character(i)

year_data <- spain[spain$time == i, ]

g1 <- ggplot(year_data, aes(x = AGE, y = POP, fill = SEX, width = 1)) +

coord_fixed() +

coord_flip() +

annotate('text', x = 98, y = -300000,

label = 'Datos: US Census Bureau IDB; idbr R package', size = 3) +

geom_bar(data = subset(year_data, SEX == "mujeres"), stat = "identity") +

geom_bar(data = subset(year_data, SEX == "hombres"), stat = "identity") +

scale_y_continuous(breaks = seq(-300000, 300000, 150000),

labels = paste0(as.character(c(seq(300, 0, -150), c(150, 300))), "k"),

limits = c(min(spain$POP), max(spain$POP))) +

theme_economist(base_size = 14) +

scale_fill_manual(values = c('#ff9896', '#d62728')) +

ggtitle(paste0('Estructura poblacional de España en, ', title)) +

ylab('Población') +

xlab('Edad') +

theme(legend.position = "bottom", legend.title = element_blank()) +

guides(fill = guide_legend(reverse = TRUE))

print(g1)

}

}, movie.name = 'spain_pyramid.gif', interval = 0.1,

ani.width = 700, ani.height = 600)

Población: el padrón y la otra cosa

Estructura poblacional de España: 2010-2050

Encuestas, censos, elecciones

Nueva versión de MicroDatosEs: héroes, villanos y mejoras

Selección de enlaces: censos, el Titanic, periodistas y mapas

Más (y distinto) sobre los censos

Los censos huelen a naftalina (y son muy caros)