我们可以将数据集与bind_rows
绑定在一起,并通过sum
进行分组
library(dplyr)
bind_rows(df1, df2, df3) %>%
group_by(Payments) %>%
summarise(across(everything(), sum, na.rm = TRUE))
与产出
# A tibble: 7 × 9
Payments Safeway Costco Fredmeyer SamsClub Walmart TraderJoes WholeFoods Payless
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 Annual 120 112 98 0 0 0 0 5
2 Basic 0 0 0 2 7 0 0 0
3 Gas 3.34 3.23 3.37 3.39 3.09 0 0 0
4 Grocery 10 22 17 13 28 15 28 9
5 Membership 0 80 0 0 0 0 0 0
6 Rating 0 0 0 4.2 4.8 0 0 0
7 Utility 89 67 78 0 0 77 97 65