2017-01-23 1 views
0

Je semble avoir finalement réussi à générer de toutes les cliques dans un graphique (j'ai dû installer R pour cela, tout nouveau pour moi!).R liste de toutes les cliques d'un graphique: comment exporter vers Excel?

Cependant, maintenant j'ai besoin d'exporter cette liste de cliques et je ne sais pas comment y remédier. Mon code est le suivant:

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) 

Quelqu'un peut-il me aider à trouver le code qui exportera cette liste dans un fichier Excel? Idéalement, je voudrais avoir chaque clique sur une nouvelle rangée.

D'avance Merci beaucoup !!!

Répondre

1

Solution proposée par @ user20650 dans les commentaires ci-dessous.

Caractéristiques générales:

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

Ecrire cl à un fichier csv, qui peut être ouvert dans Excel:

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

Merci Paulo! Cependant, cela me renvoie le message d'erreur suivant: "Erreur dans WriteXLS (Allclicks, ExcelFileName =" Allclicks.xls "): objet 'Allclicks' non trouvé" Je ne comprends pas car Allcliks existe et je peux voir les valeurs dedans :/ – tweedi

+0

@tweedi Mis à jour le post. Le problème est que vos noms d'objets sont 'Allcliks', et non 'Allclicks'. –

+0

Bien repéré. Maintenant, je reçois celui-ci: "Erreur dans get (x, envir = envir): objet '1' non trouvé". Je fais des recherches sur la façon de stocker la liste. Je me demande s'il n'y a pas de problème de format? – tweedi