Capítulo 3 Codebook
En este caso, para crear un codebook[^3] utilizaremos el paquete codebook, el cual nos ahorrará un largo trabajo de etiquetado de variables en cuestión.
Debido al cambio en el formato del documento que se obtiene al hacer el codebook con este paquete, se optó por crear el codebook en otro documento markdown, publicarlo en Rpubs y adjuntar el link de la publicación, el cual es el siguiente.
3.1 Alpha de Cronbach
Este indicador nos dice que tan confiable es la información de la que haremos uso, por lo que, una vez que catalogamos a las respuestas de las preguntas en un rango numérico gracias al codebook, tendríamos lo siguiente:
#Cargamos los datos modificados
datacodebook <- read_excel("/Users/jorge/Downloads/datacodebook.xlsx")
head(datacodebook)## # A tibble: 6 x 9
## Edad `¿Alguna vez ha… `Marca que tan … `¿Crees que el … `¿Preferirías p…
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 3 1 2 1 1
## 2 3 1 4 1 1
## 3 4 2 3 1 1
## 4 3 1 2 1 2
## 5 3 1 2 1 1
## 6 3 2 2 1 2
## # … with 4 more variables: `¿Cuál de las siguientes consideras que es la mayor
## # debilidad del sistema de salud público?` <dbl>, `¿Consideras que se debería
## # invertir más en salud pública por parte del gobierno?` <dbl>, `¿Consideras
## # que el personal médico de hospitales públicos debería tener una mayor
## # remuneración a la que tiene actualmente?` <dbl>, `Comentario final` <chr>#Eliminamos los datos innecesarios de edad y opinión abierta por el momento
datacodebook[c("Edad", "Comentario final")] <- NULL
#Resultado final
head(datacodebook)## # A tibble: 6 x 7
## `¿Alguna vez ha… `Marca que tan … `¿Crees que el … `¿Preferirías p…
## <dbl> <dbl> <dbl> <dbl>
## 1 1 2 1 1
## 2 1 4 1 1
## 3 2 3 1 1
## 4 1 2 1 2
## 5 1 2 1 1
## 6 2 2 1 2
## # … with 3 more variables: `¿Cuál de las siguientes consideras que es la mayor
## # debilidad del sistema de salud público?` <dbl>, `¿Consideras que se debería
## # invertir más en salud pública por parte del gobierno?` <dbl>, `¿Consideras
## # que el personal médico de hospitales públicos debería tener una mayor
## # remuneración a la que tiene actualmente?` <dbl>## ¿Alguna vez has utilizado el sistema de salud público de México (IMSS/ISSTE)?
## NA
## Marca que tan eficiente lo consideras al sistema de salud público
## NA
## ¿Crees que el sistema de salud privado es mejor que el público?
## NA
## ¿Preferirías pagar una pequeña cuota en el sistema de salud público con tal de que sea más eficiente que ahora?
## NA
## ¿Cuál de las siguientes consideras que es la mayor debilidad del sistema de salud público?
## NA
## ¿Consideras que se debería invertir más en salud pública por parte del gobierno?
## NA
## ¿Consideras que el personal médico de hospitales públicos debería tener una mayor remuneración a la que tiene actualmente?
## NAPara visualizar de mejor manera los datos obtenidos, podemos adjuntarlos en un cuadro, de la siguiente manera:
#Creamos el data frame
resultados <- data.frame(
raw_alpha = 0.6030323,
std.alpha = 0.6234411,
"G6(smc)" = 0.6684259,
average_r = 0.03948175,
"S/N" = 0.2877324,
ase = 0.1601187,
mean = 1.577922
)
head(resultados)## raw_alpha std.alpha G6.smc. average_r S.N ase mean
## 1 0.6030323 0.6234411 0.6684259 0.03948175 0.2877324 0.1601187 1.577922Como podemos observar, el valor que nos interesa, el cual es el de “std.alpha” es de 0.6234411, siendo algo inferior a un valor apenas aceptable de 70, pero para efectos de este trabajo lo vamos a considerar como apenas aceptable.