demografía

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

En un proyecto necesitábamos cifras de población por provincias durante los últimos años. Así que usamos los datos del padrón… más →

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)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

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)

Una proyección no es un número sino una distribución de probabilidad

Nos lo recuerda NeG. Aunque es un tema manido en estas páginas. Pero, ea, ea, ea, el INE no se… más →

Me too, me too!

12 mayo, 2017 4 comentarios

Las alturas corresponden a una cierta potencia de la población residente en la correspondiente rejilla. Los datos son del SEDAC… más →

Guadalajara joven, Guadalajara inconclusa

19 abril, 2017 1 comentario

Continuando con mi serie sobre la Guadalajara demográfica, que muestra la proporción de menores de 16 por municipio en la… más →

Evolución de la edad media de la población por provincias

29 marzo, 2017 2 comentarios

Abundo en la entrada de ayer. Lo hago para mostrar En el gráfico anterior se muestra la evolución de la… más →

Rejillas poblacionales con R (un borrador)

28 marzo, 2017 7 comentarios

me llegó ayer por Twitter (vía @unnombrealazar). En el mapa aparece representada la edad media de la población por provincia… más →

Proyecciones probabilísticas de población

31 enero, 2017 2 comentarios

Cuando escribí que las proyecciones de población del INE no valían para un carajo, todavía no se había publicado bayesPop.… más →

¿Cuánta gente ha habido sobre la faz de la tierra?

11 junio, 2015 1 comentario

Una vez oí que 70000 millones, de los que 7000 estaban vivos actualmente. Oí mal porque, buscando, he encontrado esto,… más →

¿Dónde estoy? ¿Dónde estaré?

17 febrero, 2014 3 comentarios

Me hace cierta gracia leer España: El éxodo en cifras. Desaparecen 1,7 millones de personas entre los 16 y los… más →

Hoy somos 7000 millones

31 octubre, 2011

Hace 12 años, en la medianoche del 12 de octubre de 1999, Fatima Nevic dio a luz al niño que… más →