将值更改为列并汇总行

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")