測驗作業：按天/司機組合給出的免費葡萄酒數量最多？
注意：僅需要使用 tidyverse 庫執行此作業 - 無法加載任何其他庫
需要我的代碼幫助：
pizza %>%
select(day,driver,free_wine)%>%
group_by(day,driver)%>%
summarise(n=sum(free_wine,na.rm = TRUE),.groups = 'drop')
我的輸出不正確（每天顯示多個行專案）。我知道我需要一個代碼行來顯示每天的最大值和驅動程式，但無法弄清楚如何在不影響 groupby 配置的情況下做到這一點
預計每天應該有一行顯示最大值 -
例子
Day Driver n 星期五 Sam 20 星期四 Tom 12 Wenesday Rick 15
uj5u.com熱心網友回復：
試試下面的。添加free_wine每個司機和每天的金額后，filter最大值。
pizza %>%
group_by(day, driver) %>%
summarise(free_wine = sum(free_wine, na.rm = TRUE), .groups = 'keep') %>%
filter(free_wine == max(free_wine))
另一種方法是再次將組洗掉一個組，但僅按年一次。
pizza %>%
group_by(day, driver)%>%
summarise(free_wine = sum(free_wine,na.rm = TRUE),.groups = 'drop') %>%
group_by(day) %>%
filter(free_wine == max(free_wine))
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/445304.html
標籤：r
下一篇：尋找按日期劃分資料的R函式