使用具有多个键或值的 Tidyr 展开表

发布于03月28日

我想铺一张桌子.随函附上一张照片.我正试图通过使用TidyVerse的传播来做到这一点.

我的try 是:

Want = Have |> spread(key = Group, value = Number)

结果很差，我每次只能排两排.替换密钥或try 多个值不起作用或以错误结束.它必须简单，怎么才能做到呢？

推荐答案

library(tidyverse)

df <- tribble(
    ~Time, ~Group,   ~Name, ~Number,
        1,    "A",  "AKSJ",      12,
        1,    "B",   "ASJ",      13,
        2,    "A", "ISJKS",      12,
        2,    "B",   "EFJ",      45,
        3,    "A",    "IF",      12,
        3,    "B",    "DE",      54
)

df |> 
  pivot_wider(
    names_from = Group,
    values_from = c(Name, Number),
    names_vary = "slowest"
  ) 
#> # A tibble: 3 × 5
#>    Time Name_A Number_A Name_B Number_B
#>   <dbl> <chr>     <dbl> <chr>     <dbl>
#> 1     1 AKSJ         12 ASJ          13
#> 2     2 ISJKS        12 EFJ          45
#> 3     3 IF           12 DE           54

^{创建于2023-03-28年第reprex v2.0.2页}