如何重塑我的数据，使行成为 R 中的列？

Question

我有一个包含以下值的数据集

       Item Number  Sales in Dollars
1          50           10                   
2          50           15
3          60           20
4          60           30
5          70           35
6          70           45

我想重塑数据，结果将是

       50  60 70
1      10  20 35                        
2      15  30 45

我怎样才能实现这一目标？

Answer 1

在基础 R 中：

unstack(df, Sales_in_Dollars~Item_Number)

  X50 X60 X70
1  10  20  35
2  15  30  45

Answer 2

我们可以使用pivot_wider ：诀窍是group_by并在组中创建一个id以获取此输出，否则您将获得一个带有 NA 的列表

library(dplyr)
library(tidyr)

df %>% 
  group_by(ItemNumber) %>% 
  mutate(id = row_number()) %>% 
  pivot_wider(names_from=ItemNumber, values_from = SalesinDollars) %>% 
  select(-id)

   `50`  `60`  `70`
  <int> <int> <int>
1    10    20    35
2    15    30    45

Answer 3

使用data.table ：

data.table::dcast(as.data.table(df),
                  rowid(`Item.Number`) ~ `Item.Number`,
                  value.var = "Sales.in.Dollars")[, -1]

输出

      50    60    70
   <int> <int> <int>
1:    10    20    35
2:    15    30    45

Answer 4

另一种可能的解决方案，基于tidyverse ：

library(tidyverse)

df %>% 
  pivot_wider(names_from = item, values_from = sales, values_fn = list) %>% 
  unnest(everything())

#> # A tibble: 2 x 3
#>    `50`  `60`  `70`
#>   <int> <int> <int>
#> 1    10    20    35
#> 2    15    30    45