Estadística descriptiva con R

Resultados encuesta

Depuración encuesta

# Cargando bibliotecas
library(tidyverse)
library(janitor)
library(readxl)

# Vector de nombres
nombres <- c("fecha", "promedio_academico", "color_favorito", "horas_estudiar",
             "horas_dormir", "redes_sociales", "redsocial_favorita",
             "bachiller_universidad", "lectura", "horas_internet", "trabajo")

# Lectura y depuración de datos
datos <- read_excel("encuesta.xlsx") %>% 
  set_names(nombres) %>% 
  select(-fecha) %>% 
  mutate(promedio_academico = as.numeric(promedio_academico),
         horas_estudiar = parse_number(horas_estudiar),
         horas_dormir = parse_number(horas_dormir),
         horas_internet = parse_number(horas_internet),
         color_favorito = str_to_lower(color_favorito),
         color_favorito = str_to_sentence(color_favorito))

# Exporando datos depurados
#writexl::write_xlsx(datos, path = "encuesta_depurada.xlsx")

datos