R图表的所有派系列表：如何导出到Excel？

Question

我似乎终于设法在图表中生成所有派系（我必须为此安装R，对我来说都是新的！）。

但是现在我需要导出这个派系列表，我不知道如何解决这个问题。我的代码如下：

    wt=read.table("data.txt")
wt1=matrix(nrow=nrow(wt), ncol=2)     
wt1=data.frame(wt1)
wt1[,1:2]=wt[,1:2]      
write.table(wt1,"test.txt")
library(igraph)
wt=read.table("test.txt")
wg7<- graph.edgelist(cbind(as.character(wt$X1), as.character(wt$X2)),
                 directed=F)
sum(clusters(wg7)$csize>2)        
plot(wg7)
Allcliks <- cliques(wg7, min = NULL, max = NULL)

有人可以帮我找到将这个列表导出到excel文件中的代码吗？理想情况下，我希望每个集团都有一个新的行。

提前多谢！

Answer 1

@ user20650在下面的评论中建议的解决方案。

一般数据：

library(igraph)
g <- sample_gnp(10, 0.3)
cl <- cliques(g)

将cl写入csv文件，可以在Excel中打开：

for(i in seq_along(cl)){
  cat(paste0(cl[[i]], collapse=","), file="cliques.csv", append = TRUE, sep="\n") 
}