pivot_longer.Rmd

---
title: "R Notebook"
output: html_notebook
editor_options: 
  chunk_output_type: console
---
```{r}

library(googlesheets4)
library(tidyverse)
library(moments)
library(lubridate)
library(magrittr)

demostracion <- read_sheet("https://docs.google.com/spreadsheets/d/1tA0bcdwAMEVcmlosgVFXmcmfkJNCEZmRB6otM6tgQ08/edit#gid=1004787557")



demostracion %>% glimpse()

demostracion_alargado <- demostracion %>% 
  pivot_longer(
    cols = Portada:`Otras formas de ser del personaje`,
    names_to = "competencia",
    values_to="calificacion"
  )


demostracion_alargado %>% 
  filter(grepl("personaje",competencia)) %>% 
  group_by(competencia) %>% 
  summarise(
    asimetria=skewness(value),
    promedio=mean(value),
    desviacion=sd(value)
  )


demostracion_alargado %>% 
  filter(!grepl("personaje",competencia)) %>% 
  ggplot(aes(value))+geom_boxplot(aes(color=competencia))+coord_flip()


  

# demostracion_alargado %<>% 
#   mutate(dia=as.Date(`Marca temporal`))

demostracion_alargado$`Nombre del alumno:`


demostracion_alargado %<>% 
  cbind(rep(seq(11),60) %>% 
          as_tibble()) %>% 
          rename(
            dia=value
        ) %>% 
  rename(alumno=`Nombre del alumno:`) %>% 
  as_tibble()



demostracion_alargado %>% 
  filter(!grepl("personaje",competencia)) %>% 
  ggplot(aes(calificacion))+geom_boxplot()+
  coord_flip()+
  transition_reveal(dia)+
  facet_wrap(~alumno)
  


animate()


```