R 将长格式数据框转换为单行宽格式数据框

发布于12月15日

我想知道有没有一种方法可以宽格式我的long_data，以达到我的desired_output以下？

我试了pivot_wider(long_data, id_cols= -c(class, sub, order),names_from= DV, values_from= score)次，但没有成功.

library(tidyverse)
m="
class sub  order time DV score task_type
1     1    s-c   1    ac 1     simple
1     1    s-c   1    bc 2     simple
1     1    s-c   2    ac 3     complex
1     1    s-c   2    bc 4     complex
"

long_data = read.table(text = m, header = TRUE)

desired_output =
"
class sub  order DV_ac_T1 DV_ac_T2 DV_bc_T1 DV_bc_T2 task_type_T1  task_type_T2
1     1    s-c   1        3        2        4        simple        complex
"

推荐答案

我们可以使用pivot_wider和names_glue来调整列名格式

library(tidyr)
pivot_wider(long_data, names_from = c(DV, time), 
     values_from = c(score, task_type), names_glue = "{.value}_{DV}_T{time}")

-输出

# A tibble: 1 × 11
  class   sub order score_ac_T1 score_bc_T1 score_ac_T2 score_bc_T2 task_type_ac_T1 task_type_bc_T1 task_type_ac_T2 task_type_bc_T2
  <int> <int> <chr>       <int>       <int>       <int>       <int> <chr>           <chr>           <chr>           <chr>          
1     1     1 s-c             1           2           3           4 simple          simple          complex         complex

如果我们想要删除‘Score’

library(stringr)
pivot_wider(long_data, names_from = c(DV, time), 
     values_from = c(score, task_type), 
    names_glue = "{str_remove(str_c(.value, '_', DV), 'score_')}_T{time}")

-输出

# A tibble: 1 × 11
  class   sub order ac_T1 bc_T1 ac_T2 bc_T2 task_type_ac_T1 task_type_bc_T1 task_type_ac_T2 task_type_bc_T2
  <int> <int> <chr> <int> <int> <int> <int> <chr>           <chr>           <chr>           <chr>          
1     1     1 s-c       1     2     3     4 simple          simple          complex         complex