trabajo de estadistica 11 de agosto

cargando paquetes

 library(readr)
 datos <- read_csv("dataset_opinion_publica.csv")

## Rows: 500 Columns: 19
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (9): sexo, nivel_educativo, ingreso_mensual, ocupacion, redes_principal...
## dbl (10): id, edad, horas_redes_sociales, interes_politica, confianza_gobier...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

names(datos)

##  [1] "id"                          "edad"                       
##  [3] "sexo"                        "nivel_educativo"            
##  [5] "ingreso_mensual"             "ocupacion"                  
##  [7] "redes_principales"           "horas_redes_sociales"       
##  [9] "interes_politica"            "confianza_gobierno"         
## [11] "consumo_noticias_politicas"  "ideologia_1_izq_10_der"     
## [13] "percepcion_corrupcion"       "infl_redes_opinion"         
## [15] "exp_politica_redes"          "participacion_civica"       
## [17] "comparte_contenido_politico" "voto_pasado"                
## [19] "intencion_voto"