检查列表对象是否存在并为其命名

Question

我正在尝试编写自己的函数。经过一些计算，例如我得到了这样一个清单;

并且根据数据，簇的数量可以从1到31不等。

因此，无论集群有多少，我都希望像下面的代码一样列出它们。

maxm5<-list(m.5$`Disaggregated rainfall depths`$`Cluster 1`, m.5$`Disaggregated rainfall depths`$`Cluster 2`...)

要执行这些操作，我尝试了sapply;

maxm5<-sapply(1:31, function(zz) list(m.5$`Disaggregated rainfall depths`$`Cluster [zz]`))

然后我尝试了for循环

        month<-31 
   maxm5<- for (i in month) {
      list(m.5$`Disaggregated rainfall depths`$`Cluster [i]`)
    }

但是我得到的是一个包含31个null的列表。

然后我要给它们起个名字；

m5.1<-maxm5[[1]]
m5.2<-maxm5[[2]] ....

Answer 1

根据您的最新评论：

sapply(m.5$`Disaggregated rainfall depths`, function(x) max(x[, -(1:4)]))