r - 聚合函数不允许使用最大函数进行聚合

Question

我这里有一个相当基本的问题，但我终究无法弄清楚为什么它不起作用。

我有这个简单的代码

month = sample(1:12, 5000, replace= TRUE)
year = sample(2000:2019,5000, replace = TRUE)
loss = round(rlnorm(5000,7,2))
claim.data = cbind(month, year, loss)
head(claim.data)

max.year = aggregate(loss~year, data = claim, FUN = max)

但是它抛出了错误

Error in get(as.character(FUN), mode = "function", envir = envir) : object 'FUN' of mode 'function' was not found

这表明 max 函数不起作用。我已经尝试了各种其他函数，例如 mean 和 min，它们都工作正常。

Answer 1

如果函数名称已经分配给另一个对象，那将是一个问题

max <- 25
aggregate(loss~year, data = claim.data, FUN = max)

Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'FUN' of mode 'function' was not found

要么使用匿名函数调用

aggregate(loss~year, data = claim.data, FUN = function(x) max(x))
#   year    loss
#1  2000  143866
#2  2001  316487
#3  2002  186172
#4  2003  465357
#5  2004  233817
#6  2005  847532
#7  2006  294599
#8  2007  382048
#9  2008 1768795
#10 2009  686856
#11 2010 1356117
#12 2011 2093160
#13 2012  411778
#14 2013 2002641
#15 2014  289696
#16 2015  220853
#17 2016  428111
#18 2017  362979
#19 2018  335988
#20 2019  178828

或者申请一个新的R session