R 如何在特定条件下从数据帧中找到最大值？

我有一个名为employee的数据框，其中有100行，如下所示：

      Date          Name      ride     food   income   bonus    sallary
1   01 Jan 2020  Ludociel      10       6     330000        0   330000
2   01 Jan 2020 Estarossa      15       8     465000   100000   565000
3   01 Jan 2020   Tarmiel       8      10     420000   100000   520000
4   01 Jan 2020    Sariel       5       8     315000        0   315000
5   01 Jan 2020   Escanor      15       7     435000   100000   535000
6   01 Jan 2020       Ban      13       9     465000   100000   565000
7   01 Jan 2020  Meliodas       6      15     540000   100000   640000
8   01 Jan 2020      King      15      12     585000   100000   685000
9   01 Jan 2020   Zeldris      15      11     555000   100000   655000
10  01 Jan 2020     Rugal      15       6     405000   100000   505000
11  02 Jan 2020  Ludociel      14       6     390000   100000   490000
12  02 Jan 2020 Estarossa      12      14     600000   100000   700000
... 
100 10 Jan 2020     Rugal      13      10     495000   100000   595000

[1] "varName" is the highest with total sallary "varTotal_sallary"

问题是，我想找出在1月1日到1月10日期间，哪位员工的总销售额最高。我的预期产出是这样一个向量：

      Date          Name      ride     food   income   bonus    sallary
1   01 Jan 2020  Ludociel      10       6     330000        0   330000
2   01 Jan 2020 Estarossa      15       8     465000   100000   565000
3   01 Jan 2020   Tarmiel       8      10     420000   100000   520000
4   01 Jan 2020    Sariel       5       8     315000        0   315000
5   01 Jan 2020   Escanor      15       7     435000   100000   535000
6   01 Jan 2020       Ban      13       9     465000   100000   565000
7   01 Jan 2020  Meliodas       6      15     540000   100000   640000
8   01 Jan 2020      King      15      12     585000   100000   685000
9   01 Jan 2020   Zeldris      15      11     555000   100000   655000
10  01 Jan 2020     Rugal      15       6     405000   100000   505000
11  02 Jan 2020  Ludociel      14       6     390000   100000   490000
12  02 Jan 2020 Estarossa      12      14     600000   100000   700000
... 
100 10 Jan 2020     Rugal      13      10     495000   100000   595000

[1] "varName" is the highest with total sallary "varTotal_sallary"

我已经尝试使用for loop+if子句，它只返回1个名称的总数，每个名称都有函数

function_ludociel<-function(name, date, sallary){
total=integer()
  for(i in 100){
    if(date[i]=="01 Jan 2020" & name[i]=="Ludociel"){
      total=sum(sallary)
    }
  }
  return(total)
}
ludociel=function_ludociel(employee$name,employee$date,employee$sallary)

function\u ludociel

将日期转换为实际日期类
使用
aggregate
计算1月1日至1月10日的工资总额
选择薪资最高的行
打印结果

employee$Date