In ixpantia/introR: Aprenda R con ejercicios interactivos del curso introducción a R de ixpantia

knitr::opts_chunk$set(echo = FALSE)

library(tibble)
library(learnr)
library(dplyr)
library(gradethis)
library(tidyr)

temporadas <- tibble(anio = c(2015, 2016, 2017, 2018),
                         invierno = c(40, 38, 42, 44),
                         primavera = c(46, 40, 50, 48),
                         verano = c(70, 62, 81, 76),
                         otono = c(52, 46, 54, 56))

estaciones <- pivot_longer(data = temporadas,
                           cols = -anio,
                           names_to = "temporada",
                           values_to = "temperatura")

tutorial_options(exercise.checker = gradethis::grade_learnr)

knitr::include_graphics(
  "https://storage.googleapis.com/datos_cursos/ixpantia_introR/ixpantia_logo.png"
  )  

Datos: estaciones

Este conjunto de datos contiene la temperatura promedio por estación. En total hay 16 observaciones y 3 variables.

glimpse(estaciones)

Descripción de las variables:

| Variable | Descripcion | | :--------: | :-----------: | | anio | Año en estudio | | temporada | Estación en estudio, 4 categorías | | temperatura | Temperatura percibida |

Ejercicios

Muestre las observaciones que se refieran a "invierno" solamente

En el conjunto de datos estaciones hay una columna llamada temporada la cual es una variable categórica con 4 categorías: invierno, verano, primavera y otoño. Obtenga la información referente a "invierno" solamente.

estaciones %>% 

"filter()"

grade_result(
  pass_if(~ identical(unlist(.result),
                      unlist(estaciones %>%
                               filter(temporada == "invierno"))),
          "¡Buenísimo!")
)

Obtenga la temperatura promedio por temporada

En el conjunto de datos hay varios años por temporada. Obtenga la temperatura promedio de todos los años para cada una de las estaciones. Llame a esa nueva variable "temp_promedio". Utilice las funciones group_by() y summarise().

estaciones %>% 

"group_by(temporada)"

"summarise(temp_promedio = )"

grade_result(
  pass_if(~ identical(unlist(.result),
                      unlist(estaciones %>%
                               group_by(temporada) %>% 
                               summarize(temp_promedio = mean(temperatura))
                             )),
          "¡Excelente!")
)

Ordene de forma descendiente las temporadas según la temperatura

Ordene las observaciones en estaciones de manera que las temporadas estén ordenadas según la temperatura reportada de mayor a menor, es decir, en forma descendiente.

estaciones %>%
  group_by() %>%

"group_by(temporada)"

"arrange(desc())"

grade_result(
  pass_if(~ identical(unlist(.result),
                      unlist(estaciones %>%
                               group_by(temporada) %>%
                               arrange(desc(temperatura))
                             )),
          "¡Bien hecho!")
)

ixpantia/introR documentation built on Jan. 28, 2024, 8:03 a.m.