In jmss70/dispocen: Analysis of disponibility lexical tests

*Store this file in the same directory where your data is stored

Carga de librerías

library(dispocen)

Carga de datos

data <- read.dispocen("datos.txt")
data %>% 
  head() %>% 
  flextable() %>% autofit() %>% 
  theme_booktabs()

Modelo de disponibilidad

disponibilidad <- build.lopezstrass.availability(data)
disponibilidad %>% 
  head() %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

Centros de interés

Centro de interés: 01

disponibilidad %>% 
  filter(centers=="01") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="01") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 02

disponibilidad %>% 
  filter(centers=="02") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="02") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 03

disponibilidad %>% 
  filter(centers=="03") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="03") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 04

disponibilidad %>% 
  filter(centers=="04") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="04") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 05

disponibilidad %>% 
  filter(centers=="05") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="05") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 06

disponibilidad %>% 
  filter(centers=="06") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="06") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 07

disponibilidad %>% 
  filter(centers=="07") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="07") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 08

disponibilidad %>% 
  filter(centers=="08") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="08") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 09

disponibilidad %>% 
  filter(centers=="09") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="09") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 10

disponibilidad %>% 
  filter(centers=="10") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="10") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 11

disponibilidad %>% 
  filter(centers=="11") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="11") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 12

disponibilidad %>% 
  filter(centers=="12") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="12") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 13

disponibilidad %>% 
  filter(centers=="13") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="13") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 14

disponibilidad %>% 
  filter(centers=="14") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="14") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 15

disponibilidad %>% 
  filter(centers=="15") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="15") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 16

disponibilidad %>% 
  filter(centers=="16") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="16") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 17

disponibilidad %>% 
  filter(centers=="17") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="17") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 18

disponibilidad %>% 
  filter(centers=="18") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="18") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 19

disponibilidad %>% 
  filter(centers=="19") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="19") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Centro de interés: 20

disponibilidad %>% 
  filter(centers=="20") %>% 
  arrange(-availability) %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabra", 
                    order="Orden", 
                    availability="Disponibilidad", 
                    freq.abs="Frecuencia absoluta", 
                    freq.abs.cum="Frecuencia absoluta acumulada", 
                    freq.rel="Frecuencia relativa", 
                    freq.rel.cum="Frecuencia relativa acumulada")  %>% 
  colformat_double(j=c(4,6,8), digits=6)  %>% 
  width(j=c(1,3,5,7),width=.65)  %>% 
  width(j=c(2,4,6,8),width=.9) %>% 
  theme_booktabs()

disponibilidad %>% 
  filter(centers=="20") %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order, y=availability)) + geom_line() +
  xlab("Sucesión de palabras") + ylab("Disponibilidad")

Visión general de los centros de interés

disponibilidad %>%
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability)) + geom_line() + facet_wrap(~centers)  +
  xlab("Secuencia de palabras (por grado descendente de compatibilidad)") + 
  ylab("Disponibilidad")

Grupos de compatiblidad

levels <- classify.availability.levels(disponibilidad)

clasificacion <- build.availability.levels(levels)

Centros de interés

Centro de interés: 01

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="01") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="01") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="01") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="01") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 02

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="02") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="02") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="02") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="02") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 03

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="03") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="03") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="03") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="03") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 04

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="04") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="04") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="04") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="04") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 05

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="05") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="05") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="05") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="05") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 06

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="06") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="06") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="06") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="06") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 07

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="07") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="07") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="07") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="07") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 08

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="08") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="08") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="08") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="08") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 09

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="09") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="09") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="09") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="09") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 10

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="10") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="10") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="10") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="10") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 11

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="11") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="11") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="11") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="11") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 12

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="12") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="12") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="12") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="12") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 13

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="13") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="13") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="13") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="13") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 14

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="14") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="14") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="14") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="14") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 15

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="15") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="15") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="15") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="15") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 16

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="16") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="16") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="16") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="16") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 17

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="17") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="17") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="17") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="17") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 18

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="18") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="18") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="18") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="18") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 19

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="19") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="19") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="19") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="19") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

Centro de interés: 20

levels %>% 
   arrange(-availability) %>%
   select(-order) %>%
  filter(centers=="20") %>% 
   flextable() %>% 
   set_header_labels(centers = "Centro de interés", 
                     words="Palabra", 
                     availability="Disponibilidad",
                     level="Nivel de disponibilidad",
                     cutlevel="Nivel de corte",
                     freq.abs="Frecuencia absoluta", 
                     freq.abs.cum="Frecuencia absoluta acumulada", 
                     freq.rel="Frecuencia relativa", 
                     freq.rel.cum="Frecuencia relativa acumulada") %>% 
   colformat_double(j=c(5,7,9), digits=5)  %>% 
   width(j=c(1,4,6,8),width=.65)  %>% 
   width(j=c(2,3,5,6,7,9),width=.75)  %>% 
   theme_booktabs()

levels %>%
  filter(centers=="20") %>% 
  mutate(level=factor(level)) %>% 
  arrange(-availability) %>% 
  ggplot(aes(x=order,y=availability,color=level)) + geom_line() +
  xlab("Posición del término en el centro de interés") +
  ylab("Disponibilidad")

clasificacion %>%
  filter(level > 0) %>%
  filter(centers=="20") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

clasificacion %>% 
  filter(level == 0) %>%
  filter(centers=="20") %>% 
  flextable() %>% 
  set_header_labels(centers = "Centro de interés", 
                    words="Palabras",  
                    level="Nivel de disponibilidad", 
                    count="Recuento") %>% 
  width(j=c(1,2,3),width=.75) %>% 
  width(j=4,width=4) %>% 
  align(j=4,align="right") %>% 
  theme_booktabs() 

jmss70/dispocen documentation built on April 18, 2023, 1:31 p.m.