将值更改为列和汇总行

Question

我拿到了这个数据：

# A tibble: 6 x 3
# Groups:   Entity [3]
  Entity           year count
  <chr>           <dbl> <int>
1 3D SYSTEMS CORP  2019    23
2 3D SYSTEMS CORP  2020     2
3 8X8 INC          2019    74
4 8X8 INC          2020    43
5 AAR CORP         2019    52
6 AAR CORP         2020    18

我希望将2019/2020年作为列，并将其计算为年份和实体的值。我想总结一下重复的实体。输出应该如下所示：

# A tibble: 6 x 3
# Groups:   Entity [3]
  Entity           2019  2020
  <chr>           <dbl> <int>
1 3D SYSTEMS CORP    23     2
2 8X8 INC            74    43
3 AAR CORP           52    18

Answer 1

正如@akrun所提到的，您可以做更宽的枢轴，如下所示：

library(tidyverse)

提布尔

Entity <- c("3D SYSTEMS CORP","3D SYSTEMS CORP",
            "8X8 INC","8X8 INC",
            "AAR CORP","AAR CORP")

year <-  c(2019, 2020,
           2019, 2020,
           2019, 2020)

count <-  c(23, 2,
            74, 43,
            52, 18)

tbl<- as_tibble(data.frame(Entity,
                     year,
                     count = as.integer(count)
                     )
                )

从长格式向宽或宽整形

tbl_wide <- 
    tbl %>% 
    pivot_wider(names_from = "year", values_from = "count")