In jmss70/displex: Analysis of disponibility lexical tests

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

Carga de librerías

library(tidyverse)
library(displex)

Carga de datos

data <- read.displex("datos.txt")
data %>% head()

Modelo de disponibilidad

disponibilidad <- build.lopezstrass.availability(data)
disponibilidad %>% head()

Centros de interés

Centro de interés: 01

disponibilidad %>% 
  filter(centers=="01") %>% 
  arrange(-availability)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

Centros de interés

Centro de interés: 01

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="01") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="01") %>% 

Centro de interés: 02

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="02") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="02") %>% 

Centro de interés: 03

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="03") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="03") %>% 

Centro de interés: 04

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="04") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="04") %>% 

Centro de interés: 05

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="05") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="05") %>% 

Centro de interés: 06

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="06") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="06") %>% 

Centro de interés: 07

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="07") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="07") %>% 

Centro de interés: 08

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="08") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="08") %>% 

Centro de interés: 09

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="09") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="09") %>% 

Centro de interés: 10

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="10") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="10") %>% 

Centro de interés: 11

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="11") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="11") %>% 

Centro de interés: 12

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="12") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="12") %>% 

Centro de interés: 13

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="13") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="13") %>% 

Centro de interés: 14

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="14") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="14") %>% 

Centro de interés: 15

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="15") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="15") %>% 

Centro de interés: 16

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="16") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="16") %>% 

Centro de interés: 17

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="17") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="17") %>% 

Centro de interés: 18

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="18") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="18") %>% 

Centro de interés: 19

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="19") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="19") %>% 

Centro de interés: 20

levels %>% 
   arrange(-availability) %>%
   select(-order)

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 <- build.availability.levels(levels)

clasificacion %>%
  filter(levels> 0) %>%
  filter(centers=="20") %>% 

clasificacion %>% 
  filter(levels == 0) %>%
  filter(centers=="20") %>% 

jmss70/displex documentation built on Sept. 10, 2020, 5:29 a.m.