group_by en R

La agrupación persiste hasta que desagrupas, la fuente habitual de bugs.

library(dplyr)

runs <- tibble(
  lang = c("r", "r", "python", "python"),
  day = c("mon", "tue", "mon", "tue"),
  tpm = c(88, 96, 104, 99)
)

grouped <- group_by(runs, lang)
print(group_vars(grouped))
print(mutate(grouped, share = round(tpm / sum(tpm), 3)))

summary <- summarise(group_by(runs, lang, day), tpm = mean(tpm),
                     .groups = "drop_last")
print(group_vars(summary))
print(ungroup(summary))

Cómo funciona

1. Cada verbo después de group_by trabaja dentro de los grupos.
2. summarize quita un nivel de agrupación.
3. ungroup antes de devolver, o quien llama hereda la agrupación.

El intento, en números

Líneas

16

Caracteres a escribir

392

Tokens

130

Ritmo de tres estrellas

100 tpm

Al ritmo de tres estrellas de 100 tokens por minuto, este intento toma unos 78 segundos.

Escribe este fragmento

Paso 1 de 4 en Agrupación; paso 14 de 27 en dplyr.

← Anterior Siguiente →