Una alternativa usando seq
y unnest
.
library(tidyverse)
df %>%
arrange(municipio, año) %>%
group_by(municipio) %>% #Para separar los inicios y fines
mutate(siguiente = lead(poblacion, default = 0), #Sirve para hacer la secuencia y para el filtrado más adelante.
secuencia = map2(.x = poblacion, #Una lista dentro de un data.frame
.y = siguiente,
~seq(from = .x, to = .y, length = 4))) %>%
unnest(secuencia) %>% #Desanido la lista y creo más filas.
filter(siguiente != 0) %>% #Elimino las secuencias que van a cero por ser el último dato de la serie. seq() da error y no NA cuando se encuentra con NA, de lo contrario no lo necesitaría.
#Lo que sigue es bastante adhoc, básicamente saco datos repetidos
filter(secuencia != lead(secuencia, default = 0)) %>%
select(municipio, año, poblacion = secuencia)
La idea es simple, separar por grupos, generar una lista de secuencias de largo 4 entre cada valor de población y el siguiente y desanidar la secuencia.
Tiene una complicación: seq()
no funciona con NA como lo suelen hacer otras funciones de R
, da un error en lugar de regresar NA. Entonces en el lead
tengo indicar que el default es 0 y generar secuencias innecesarias que después tengo que filtrar. Se resuelve con un filter y no debería ser problemático siempre que no haya combinaciones de municipio/año con el valor observado (real) 0.
La otra complicación es que se repiten valores porque están al final de una de las secuencias y al principio de las siguientes. De nuevo, filtro muy ad hoc: eliminar una fila de si identica a la siguiente. Fallo obvio: la fila siguiente es EN VERDAD igual porque dos combinaciones de municipio/año son iguales.