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

Question

我想铺一张桌子。附上一张图片。我正在尝试使用 Tidyverse 进行传播。

我的尝试是：

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

结果很差，每次只能保留 2 行。替换密钥或尝试多个值不起作用或以错误结束。它必须很简单，如何才能做到呢？

Answer 1

library(tidyverse)\n\ndf <- tribble(\n    ~Time, ~Group,   ~Name, ~Number,\n        1,    "A",  "AKSJ",      12,\n        1,    "B",   "ASJ",      13,\n        2,    "A", "ISJKS",      12,\n        2,    "B",   "EFJ",      45,\n        3,    "A",    "IF",      12,\n        3,    "B",    "DE",      54\n)\n\ndf |> \n  pivot_wider(\n    names_from = Group,\n    values_from = c(Name, Number),\n    names_vary = "slowest"\n  ) \n#> # A tibble: 3 \xc3\x97 5\n#>    Time Name_A Number_A Name_B Number_B\n#>   <dbl> <chr>     <dbl> <chr>     <dbl>\n#> 1     1 AKSJ         12 ASJ          13\n#> 2     2 ISJKS        12 EFJ          45\n#> 3     3 IF           12 DE           54\n

\n

^{创建于 2023-03-28，使用reprex v2.0.2}

\n