reshape 数据帧基于组将行转换为列

发布于01月18日

我对R相当陌生，需要一些帮助来reshape 一些数据.

目前，数据如下所示:

Column A	Column B	type	Date
10	15	Type 1	Date 1
20	20	Type 2	Date 1
30	30	Type 1	Date 2
40	50	Type 2	Date 2

我们的目标是

Type 1-A	Type 2-A	Type 1-B	Type 2-B	Date
10	20	15	20	Date 1
30	40	30	50	Date 2

这看起来很简单，但我已经被困了几天.如有任何帮助，我们将不胜感激！

因为我还是个新手，我真的不知道从哪里开始.数据来self 制作的每小时运行一次的数据爬行器.我认为，如果我在第一次提取数据时就对数据进行reshape ，那就太好了.然而，我现在拥有数百小时的数据.

推荐答案

使用tidyr::pivot_wider，你可以:

dat <- data.frame(
  check.names = FALSE,
  "Column A" = c(10L, 20L, 30L, 40L),
  "Column B" = c(15L, 20L, 30L, 50L),
  type = c("Type 1", "Type 2", "Type 1", "Type 2"),
  Date = c("Date 1", "Date 1", "Date 2", "Date 2")
)

library(tidyr)

dat |> 
  tidyr::pivot_wider(
    names_from = type,
    values_from = -c(type, Date),
    names_glue = "{type}-{gsub('Column ', '', .value)}"
  )
#> # A tibble: 2 × 5
#>   Date   `Type 1-A` `Type 2-A` `Type 1-B` `Type 2-B`
#>   <chr>       <int>      <int>      <int>      <int>
#> 1 Date 1         10         20         15         20
#> 2 Date 2         30         40         30         50