Sobre el paquete

El paquete fue creado Philipp Ottolinger, este ejercicio es una versión en español (con algunos comentarios) de su ejemplo https://cran.r-project.org/web/packages/LexisPlotR/vignettes/LexisPlotR.html

Instalación

Seleccionar este código y darle Run, o bien, Ctrl+R. Cuando aparezca si quieres actualizar alguno, dile que ninguno “All”

#install.packages("LexisPlotR", dependencies = T)
library(LexisPlotR)
## Loading required package: ggplot2

Dibujar una cuadrícula

Este paquete nos puede ayudar a hacer nuestras cuadrículas. Ponemos los años de inicio y de final; así como las edades de inicio y de final. Recuerda que un diagrama de Lexis debe tener una misma escala en los ejes.

# Dibuje una cuadrícula de Lexis desde el año 2010 hasta el año 2015, que representa las edades de 0 a 5 años.

lexis.grid(year.start = 2010, year.end = 2015, age.start = 0, age.end = 5)

Aunque no necesariamente podemos dibujar sólo cuadrados

# Dibuje una cuadrícula de Lexis desde el año 2010 hasta el año 2015, que representa las edades de 0 a 7 años.

lexis.grid(year.start = 2010, year.end = 2015, age.start = 0, age.end = 7)

Sombreados en el diagrama

Previo: objetos. R es un lenguaje de programación por objetos. Un objeto tiene información de diferentes tipos. Normalmente “declaramos” los objetos usando una flechita <-

mi_diagrama <- lexis.grid(year.start = 1995, year.end = 2000, age.start = 0, age.end = 5)

Parece que no se hizo nada, pero si revisas en el ambiente hay un objeto. Para “imprimir” un objeto, escribimos el nombre del mismo en nuestro script o en nuestra consola

mi_diagrama

Para poder sombrear áreas con este paquete, debemos tener un diagrama ya guardado como objeto. Con distintas funciones vamos sombreando áreas.

Edad

# Destacar todos los puntos que pertenecen a la edad de 2 años
lexis.age(lg = mi_diagrama, age=2)

¿Qué tipo de observación o estudio sería este?

Para cambiar el color:

lexis.age(lg = mi_diagrama, age = 2, fill = "red", alpha = 0.5)

Periodo

También podemos sombrear períodos

lexis.year(lg = mi_diagrama, year=1998)

¿Qué tipo de observación o estudio sería este?

Para cambiar el color: [Más info del color http://sape.inf.usi.ch/quick-reference/ggplot2/colour]

lexis.year(lg = mi_diagrama, year=1998, fill = "grey70", alpha = 0.5)

Cohorte

lexis.cohort(lg = mi_diagrama, cohort=1994)

¿Qué tipo de observación o estudio sería este?

También podemos cambiar el color y la transparencia:

lexis.cohort(lg = mi_diagrama, cohort=1994, fill="plum1", alpha=0.8)

Líneas de vida

Alguien entra

lexis.lifeline(lg = mi_diagrama, entry = "1996-09-23")

Alguien entra y sale

lexis.lifeline(lg = mi_diagrama, entry = "1996-09-23", exit="1999-09-23")

Todo en uno

Podemos ir reescribiendo nuestro objeto

mi_diagrama2 <- lexis.grid(year.start = 1995, year.end = 2000, age.start = 0, age.end = 5)
mi_diagrama2<-lexis.age(lg = mi_diagrama2, age = 2, fill = "red", alpha = 0.5)
mi_diagrama2<-lexis.year(lg = mi_diagrama2, year = 1998)
mi_diagrama2<-lexis.cohort(lg = mi_diagrama2, cohort=1994)
mi_diagrama2<-lexis.lifeline(lg = mi_diagrama2, entry = "1996-09-23", exit="1999-09-23")
mi_diagrama2

Anotación manual

Para hacer cuadrados

mi_diagrama  + 
   annotate("rect", 
            xmin = as.Date("1996-01-01"),
            xmax = as.Date("1997-01-01"), 
            ymin = 0, ymax = 1, alpha = .2)

¿Qué tipo de observación es esta?

Si quisiéramos gráficar la fecha de un censo:

mi_diagrama  + 
   geom_vline(xintercept = as.Date("1995-11-05"), colour = "red")

Si queremos poner una edad exacta:

mi_diagrama  + 
   geom_hline(yintercept = 4, colour = "red")

Ejercicio

  1. Dibuje una cuadrícula de Lexis de los nacidos entre 1975 y 1985 entre 20 y 30 años.
  2. Sombree cómo se vería un estudio etario de los 27 años
  3. Sombree cómo se vería un análisis de esa población en 1996
  4. Sombree cómo se vería el seguimiento de únicamente los nacidos en 1984