R - cbind 列表摘要元素

Question

我想知道如何 cbind 个 list 的 summary 个元素。

想象一下，我运行分别是 3 个组的聚类。

为此，我正在使用 cluster 库中的 ruspini 数据。

library(dplyr)
library(cluster)

# Let us create 3 groups 
ruspini$group = rep(1:3, 25)

我首先应用 PAM 聚类。然后，我对每个列表应用 silhouette 函数，最后应用 summary 。

fpam = function(x) pam(x, 3)
fsil = function(x) silhouette(x)

ruspiniPAMsil = ruspini %>% 
    split(.$group) %>% 
    lapply(fpam) %>% 
    lapply(fsil) %>% 
    lapply(summary)

我想要的是取回这个

ruspiniPAMsil[[1]]$clus.avg.widths

来自每个集群并将其绑定在一起。

如何 cbind 这样一个列表的元素？

do.call('cbind', ruspiniPAMsil[[i]]) # ??

想要的输出是

    Group 1   Group 2   Group 3
1 0.6944263 0.6898372 0.5436701
2 0.5286338 0.5129770 0.7421103
3 0.8200596 0.7810391 0.6460008

Answer 1

如果每个元素共享相同的组件，则可以对它们进行子集化。

sapply(ruspiniPAMsil, `[[`, 'clus.avg.widths')
          1         2         3
1 0.6944263 0.6898372 0.5436701
2 0.5286338 0.5129770 0.7421103
3 0.8200596 0.7810391 0.6460008

R - cbind 列表摘要元素

R - cbind list summary elements

r

list

cluster-analysis

cbind