# 3. Data transform----
# Vamos a calcular el maximo, el minimo y la media de dos variables.
# Previamente agrupamos por club.
# 3.1. Tradicional----
players_resT <- players %>%
  dplyr::group_by(club) %>%
  dplyr::summarise(alturaMedia = mean(altura.cm.),
                   pesoMedio = mean(peso.kg.)) %>%
  dplyr::ungroup()

players_resN <- players %>%
  dplyr::group_by(club) %>%
  dplyr::summarise(across(c("altura.cm.", "peso.kg."), mean)) %>%
  dplyr::ungroup()

# 3.2. Con across()----
players_resT2 <- players %>%
  dplyr::group_by(club) %>%
  dplyr::summarise(alturaMin = min(altura.cm.),
                   alturaMax = max(altura.cm.),
                   alturaMedia = mean(altura.cm.),
                   pesoMin = min(peso.kg.),
                   pesoMax = max(peso.kg.),
                   pesoMedio = mean(peso.kg.)) %>%
  dplyr::ungroup()

players_resN2 <- players %>%
  dplyr::group_by(club) %>%
  dplyr::summarise(across(c("altura.cm.", "peso.kg."),
                          list(mean = mean, min = min, max = max))) %>%
  dplyr::ungroup()

players_resN22 <- players %>%
  dplyr::group_by(club) %>%
  dplyr::summarise(across(where(is.numeric),