редактировать рецепт: Pivot в R

Текст:

<syntaxhighlight lang="R" line> library(tidyverse) ## Как сделать pivot_wider для tidy данных data_messy <- tribble( ~id, ~measurement, ~value, "A", "bp1", 100, "B", "bp1", 140, "B", "bp2", 115, "A", "bp2", 120, "A", "bp3", 105 ) tidy_wide <- data_messy %>% pivot_wider(names_from = measurement, values_from = value) ## Как сделать pivot_longer из wide в tidy wide_data <- tribble( ~id, ~bp1, ~bp2, "A", 100, 120, "B", 140, 115 ) tidy_long <- wide_data %>% pivot_longer(cols = starts_with("bp"), names_to = "measurement", values_to = "value") tidy_long ############### # Длинная форма: много строк на ученика (типично из дневников/логов) data_long <- tribble( ~ученик, ~предмет, ~оценка, "Анна", "Математика", 4, "Анна", "Русский", 5, "Борис", "Математика", 3, "Борис", "Русский", 4, "Вера", "Математика", 5, "Вера", "Русский", NA_real_ ) # pivot_wider: поворот в широкую таблицу (сводка успеваемости) wide_table <- data_long %>% pivot_wider(names_from = предмет, values_from = оценка) wide_table long_table <- wide_table %>% pivot_longer(cols = c("Математика", "Русский"), names_to = "предмет", values_to = "оценка") long_table </syntaxhighlight> {{Шаблон:TidyR}} ---- [[Категория:Lesson]]

Записать страницу Отменить