pivot_longer en R

Las columnas anchas se vuelven filas: la forma que la mayoría del tidyverse quiere.

library(tidyr)
library(dplyr)

wide <- tibble(
  lang = c("r", "python"),
  week_1 = c(88, 104),
  week_2 = c(96, 99),
  week_3 = c(92, 101)
)

long <- pivot_longer(wide,
                     cols = starts_with("week"),
                     names_to = "week",
                     names_prefix = "week_",
                     names_transform = list(week = as.integer),
                     values_to = "tpm")
print(long)
print(summarise(long, mean_tpm = mean(tpm), .by = lang))

Cómo funciona

1. cols selecciona las columnas a fundir.
2. names_to y values_to nombran las dos columnas nuevas.
3. names_prefix y names_transform limpian los nombres al llegar.

El intento, en números

Líneas

18

Caracteres a escribir

364

Tokens

110

Ritmo de tres estrellas

100 tpm

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

Escribe este fragmento

Paso 1 de 3 en Pivotear; paso 1 de 12 en Remodelar y leer.

Siguiente →