在多个函数上使用lapply

Question

HierCluster是数据框列表。

我可以获得有关这样一个群集的信息：

tail(sort(colMeans(HierCluster[[i]])))

其中 i 是列表中的第i个元素。

我使用lapply立即获取所有集群的信息：

lapply(lapply(lapply(HierCluster, colMeans), sort), tail)

但是使用lapply 3次看起来相当麻烦，是否有更实用的方法呢？

Answer 1

您可以创建一个结合三者的匿名函数：

lapply(HierCluster, function(x) tail(sort(colMeans(x))))