將值更改為列並匯總行

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