我有一个名为Test的数据框列表，并尝试使用lapply和unique来获得每个ACCOUNTID的MONTH最低RANKING。我当前的代码看起来像这样，这是一个错误。可能导致问题的原因是什么？
Test_1 <- lapply(Test, function(x) unique(x[,list(x$RANKING =
min(x$RANKING), x$MONTH), by = x$ACCOUNTID]))
当我只使用一个数据表（一个数据表是一个月）时，下面的代码工作正常。
Best_Rank_Mar <- unique(Rank_Mar[,list(RANKING=min(RANKING), MONTH), by = ACCOUNTID])