pivot_wider en R
La inversa: una fila por id, una columna por clave.
library(tidyr)
library(dplyr)
long <- tibble(
lang = c("r", "r", "python", "python", "python"),
day = c("mon", "tue", "mon", "tue", "tue"),
tpm = c(88, 96, 104, 99, 101)
)
print(pivot_wider(long, names_from = day, values_from = tpm,
values_fn = mean, values_fill = 0))
print(pivot_wider(long, names_from = day, values_from = tpm,
names_prefix = "tpm_", values_fn = max))
Cómo funciona
names_fromprovee los nombres de las columnas nuevas.values_fillrellena las celdas que no tenían fila.values_fnresuelve duplicados en lugar de crear una columna de listas.
El intento, en números
- Líneas
- 14
- Caracteres a escribir
- 373
- Tokens
- 114
- Ritmo de tres estrellas
- 100 tpm
Al ritmo de tres estrellas de 100 tokens por minuto, este intento toma unos 68 segundos.
Paso 2 de 3 en Pivotear; paso 2 de 12 en Remodelar y leer.