rm(list=ls()) #Limpiar entorno de trabajo
setwd("/home/daniel/Dropbox/U CENTRAL/02 2020/01 Primer semestre 2020/Analisis de datos cuantitativos I/Clases/07") #Escribir el directorio en que va a trabajar
#Si su pc no tiene instalado los paquetes, primero ejecutar:
#install.packages("foreign")
library(foreign) #Cargar paquete de importación y exportación de datos
#Si su pc no tiene instalado los paquetes, primero ejecutar:
#install.packages("questionr")
library(questionr) #Cargar paquete de tablas completas sin formato
#Si su pc no tiene instalado los paquetes, primero ejecutar:
#install.packages("xtable")
library(xtable) #Cargar paquete de tablas completas con formato LaTeX

Abrir base de datos CEP 82 (Oct-Nov 2018)

CEP82 <- read.spss("/home/daniel/Dropbox/U CENTRAL/02 2020/01 Primer semestre 2020/Analisis de datos cuantitativos I/Clases/07/encuesta_cep82_oct-nov2018/Encuesta CEP 82 Oct-Nov 2018 v1.sav", to.data.frame = TRUE)

Variables categóricas

Definir ‘No sabe’ y ‘No contesta’ como valores perdidos.

CEP82$MB_P2[CEP82$MB_P2=="No sabe"]<-NA
CEP82$MB_P2[CEP82$MB_P2=="No contesta"]<-NA
CEP82$MB_P2<-droplevels(CEP82$MB_P2)
CEP82$MB_P10[CEP82$MB_P10=="No sabe"]<-NA
CEP82$MB_P10[CEP82$MB_P10=="No contesta"]<-NA
CEP82$MB_P10<-droplevels(CEP82$MB_P10)

Tabla de frecuencias básica.

table(CEP82$MB_P2)
## 
##         Muy mala             Mala Ni buena ni mala            Buena 
##               60              338              746              243 
##        Muy buena 
##               12
table(CEP82$MB_P10)
## 
##    Le da confianza No le da confianza 
##                579                710

Tabla de frecuencias completa, con formato básico.

questionr::freq(CEP82$MB_P2, digits = 2, cum = TRUE, total = TRUE, exclude = NA)
##                     n      %   %cum
## Muy mala           60   4.29   4.29
## Mala              338  24.16  28.45
## Ni buena ni mala  746  53.32  81.77
## Buena             243  17.37  99.14
## Muy buena          12   0.86 100.00
## Total            1399 100.00 100.00
questionr::freq(CEP82$MB_P10, digits = 2, cum = FALSE, total = TRUE, exclude = NA)
##                       n      %
## Le da confianza     579  44.92
## No le da confianza  710  55.08
## Total              1289 100.00

Tabla de frecuencia completa, con formato latex.

tabla1<-questionr::freq(CEP82$MB_P2, digits = 2, cum = TRUE, total = TRUE, exclude = NA)
xtable(tabla1, caption = "Percepción de situación económica del país")
## % latex table generated in R 4.0.1 by xtable 1.8-4 package
## % Tue Jun  9 22:20:42 2020
## \begin{table}[ht]
## \centering
## \begin{tabular}{rrrr}
##   \hline
##  & n & \% & \%cum \\ 
##   \hline
## Muy mala & 60.00 & 4.29 & 4.29 \\ 
##   Mala & 338.00 & 24.16 & 28.45 \\ 
##   Ni buena ni mala & 746.00 & 53.32 & 81.77 \\ 
##   Buena & 243.00 & 17.37 & 99.14 \\ 
##   Muy buena & 12.00 & 0.86 & 100.00 \\ 
##   Total & 1399.00 & 100.00 & 100.00 \\ 
##    \hline
## \end{tabular}
## \caption{Percepción de situación económica del país} 
## \end{table}
tabla2<-questionr::freq(CEP82$MB_P10, digits = 2, cum = FALSE, total = TRUE, exclude = NA)
xtable(tabla2, caption = "Confianza en el Presidente Sebastián Piñera")
## % latex table generated in R 4.0.1 by xtable 1.8-4 package
## % Tue Jun  9 22:20:42 2020
## \begin{table}[ht]
## \centering
## \begin{tabular}{rrr}
##   \hline
##  & n & \% \\ 
##   \hline
## Le da confianza & 579.00 & 44.92 \\ 
##   No le da confianza & 710.00 & 55.08 \\ 
##   Total & 1289.00 & 100.00 \\ 
##    \hline
## \end{tabular}
## \caption{Confianza en el Presidente Sebastián Piñera} 
## \end{table}

Diagrama de barras (simple).

#Gráfico barras (frecuencias)
grafico1.1<-table(CEP82$MB_P2)
barplot(grafico1.1)

grafico2.1<-table(CEP82$MB_P10)
barplot(grafico2.1)

#Gráfico barras (frecuencias relativas)
grafico1.2<-prop.table(grafico1.1)
barplot(grafico1.2)

grafico2.2<-prop.table(grafico2.1)
barplot(grafico2.2)

#Gráfico barras (porcentajes)
grafico1.3<-grafico1.2*100
barplot(grafico1.3)

grafico2.3<-grafico2.2*100
barplot(grafico2.3)

Pictograma.

#Pictograma
pie(grafico1.1)

pie(grafico2.1)

Variables continuas

Tabla de distribución de frecuencias.

#Ordenar un poco las variables
CEP82$SV_2[CEP82$SV_2=="No sabe"]<-NA
CEP82$SV_2[CEP82$SV_2=="No contesta"]<-NA
CEP82$SV_2<-as.integer(CEP82$SV_2)

#Tabla simple
table(CEP82$SV_2)
## 
##   1   2   3   4   5   6   7   8   9  10 
##  21  20  49 162 481 279 181  93  40  29

Tabla de frecuencias completa, con formato básico.

questionr::freq(CEP82$SV_2, digits = 2, cum = TRUE, total = TRUE, exclude = NA)
##          n      %   %cum
## 1       21   1.55   1.55
## 2       20   1.48   3.03
## 3       49   3.62   6.64
## 4      162  11.96  18.60
## 5      481  35.50  54.10
## 6      279  20.59  74.69
## 7      181  13.36  88.04
## 8       93   6.86  94.91
## 9       40   2.95  97.86
## 10      29   2.14 100.00
## Total 1355 100.00 100.00

Tabla de frecuencia completa, con formato latex.

tabla3<-questionr::freq(CEP82$SV_2, digits = 2, cum = TRUE, total = TRUE, exclude = NA)
xtable(tabla3, caption = "¿Cuán satisfechos con sus vidas cree usted que se encuentran el resto de los chilenos?")
## % latex table generated in R 4.0.1 by xtable 1.8-4 package
## % Tue Jun  9 22:20:43 2020
## \begin{table}[ht]
## \centering
## \begin{tabular}{rrrr}
##   \hline
##  & n & \% & \%cum \\ 
##   \hline
## 1 & 21.00 & 1.55 & 1.55 \\ 
##   2 & 20.00 & 1.48 & 3.03 \\ 
##   3 & 49.00 & 3.62 & 6.64 \\ 
##   4 & 162.00 & 11.96 & 18.60 \\ 
##   5 & 481.00 & 35.50 & 54.10 \\ 
##   6 & 279.00 & 20.59 & 74.69 \\ 
##   7 & 181.00 & 13.36 & 88.04 \\ 
##   8 & 93.00 & 6.86 & 94.91 \\ 
##   9 & 40.00 & 2.95 & 97.86 \\ 
##   10 & 29.00 & 2.14 & 100.00 \\ 
##   Total & 1355.00 & 100.00 & 100.00 \\ 
##    \hline
## \end{tabular}
## \caption{¿Cuán satisfechos con sus vidas cree usted que se encuentran el resto de los chilenos?} 
## \end{table}

Histograma.

hist(CEP82$SV_2)