按多列聚合，对一列求和并保留其他列？根据聚合值创建新列？ [复制]

我有一个包含销售的数据框。我需要将 df 聚合 2 列ProductID and Day并对不同列中每个聚合组的值求和Amount现在它显示总数。我希望保留也可以分组的其他列（行之间的值相同），在这种情况下只是Product。最后一栏Store不会保留，因为分组行内的值可能会有所不同。但是，我需要添加一列UniqueStores，它计算每组相同 ProductID 和 Day 的唯一商店数量。例如，ID=1 且 Day=Monday 的第一个组将有 1 个唯一商店“N”，因此值将为 1。

我尝试在此处以文本形式起草表格，但无法正确格式化它，因此这里是聚合之前的外观图像：

我尝试过使用 group_by + summarize 和 df[sum,by] 进行聚合，但它们不会保留未作为索引给出的变量。是否有解决方法，而无需手动插入剩余的每一列？

预先感谢，我希望我说清楚了。

输入值：

df <- data.frame("ProductID" = c(1,1,1,1,2,2,2,2), "Day"=c("Monday","Monday", "Tuesday", "Tuesday","Wednesday", "Wednesday", "Friday", "Friday"), "Amount"=c(5,5,3,7,6,9,5,2), "Product"=c("Food","Food","Food","Food","Toys","Toys","Toys","Toys"), "Store"=c("N","N","W","N", "S","W", "S","S"))

我们可以通过操作进行分组dplyr and summarise与sum“金额”和n_distinct（“Store”的不同元素的数量）

library(dplyr)
df %>% 
  group_by(ProductID, Day, Product) %>%
  summarise(Amount = sum(Amount), 
       UniqueStores = n_distinct(Store), .groups = 'drop')
# A tibble: 4 x 5
#  ProductID Day       Product Amount UniqueStores
#      <dbl> <chr>     <chr>    <dbl>        <int>
#1         1 Monday    Food        10            1
#2         1 Tuesday   Food        10            2
#3         2 Friday    Toys         7            1
#4         2 Wednesday Toys        15            2

如果有多列，并且只想对部分列进行子集化，同时保留其余列，则可以选择mutate在数据集中，然后使用distinct得到第一行

df %>% 
  group_by(ProductID, Day, Product) %>%
  mutate(Amount = sum(Amount), 
       UniqueStores = n_distinct(Store), .keep = 'all') %>%
  ungroup %>%
  distinct(ProductID, Day, Product, .keep_all = TRUE)