Uso Básico de tidyverse

¿Qué es tidyverse?

Es una colección de paquetes de R que son diseñados para la Ciencia de Datos.

Todos los paquetes utilizan las misma filosofía de diseño, gramática y estructura de datos.

library(tidyverse)

── Attaching packages ───────────────────────────── tidyverse 1.2.1 ──
✔ tibble  1.4.2     ✔ purrr   0.2.5
✔ readr   1.1.1     ✔ stringr 1.3.1
✔ tibble  1.4.2     ✔ forcats 0.3.0
── Conflicts ──────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

datos <- read.csv("cuarto_grado.csv", header = TRUE, sep = ",")
datos

dfc <- datos %>% 
  separate(nombre, into = c("Apellido", "Nombre")) %>% 
  separate(fecha, into = c("Dia", "Mes", "Año"), convert = TRUE) %>% 
  gather(Materia, Puntos, matematica, ingles)
dfc

dfc %>% 
  group_by(Materia) %>% 
  summarise(promedio = mean(Puntos))

dfc %>% 
  group_by(Materia, Nombre, Apellido) %>% 
  summarise(promedio = mean(Puntos))

dfc %>% 
  filter(Materia == "ingles") %>% 
  group_by(Nombre, Apellido) %>% 
  summarise(promedio = mean(Puntos))

dfc %>% 
  filter(Materia == "matematica") %>% 
  group_by(Nombre, Apellido) %>% 
  summarise(promedio = mean(Puntos))

dfc %>% 
  filter(Materia == "matematica") %>% 
  group_by(Nombre, Apellido) %>% 
  summarise(promedio = mean(Puntos)) %>% 
  arrange(desc(promedio))

dfc %>% 
  group_by(Materia, Mes) %>% 
  summarise(Promedio = mean(Puntos)) %>% 
  ggplot() +
  geom_line(mapping = aes(x=Mes, y=Promedio,
                            group = Materia,
                            color = Materia)) +
  labs(title = "Promedio Mensuales por Materia")

NA