Question

我想知道我如何SELECT code || ', ' || details AS val FROM mytable WHERE code || ', ' || details = 'nd, new dear' cbind summary的{{1}}元素。

想象一下，我分别在3组上运行聚类。

我出于此目的使用list库中的ruspini数据。

cluster

我首先应用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]]) # ??

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列表摘要元素

1 个答案: