Commit e278a039 authored by Ednomesor's avatar Ednomesor

MAJ Quanti

parent 71e11346
This diff is collapsed.
# Quantilille
# Séance : Initiation à l'analyse de réseau
# Date : 37 juin 2017
# Date : 27 juin 2017
# Auteur : Rosemonde Letricot
# Première manipulation de réseaux créés soi-même avec R
......@@ -13,8 +13,9 @@ setwd("~/Documents/framagit/cours_SNA/script_R/")
#Je charge mon package
library(igraph)
#Je crée un graph simple à trois sommets, non orienté
g1 <- graph(edges=c(1,2, 2,3, 3,1), n=3, directed=FALSE )
#### Les différentes manières de créer un graphe manuellement ####
#Je crée un graph simple à trois sommets
g1 <- graph(edges=c(1,2, 2,3, 3,1))
#Voir mon graphe
plot(g1)
......@@ -23,10 +24,13 @@ g2 <- graph(edges=c(1,1, 1,2, 1,2, 2,3, 3,4, 3,1, 4,2, 4,1), n=8, directed=TRUE)
#Voir mon graphe
plot(g2)
#Est-ce un graphe simple (voir def dans le document de vocabulaire)
#Est-ce un graphe simple (cf. document de vocabulaire)
is_simple(g2)
#Enlever les doublons
#Est-ce un graphe multiple (cf. document de vocabulaire)
is.multiple(g2)
# Si non on peut le simplifier
g2<-simplify(g2)
plot(g2)
......@@ -34,20 +38,22 @@ plot(g2)
is_simple(g2)
#Au lieu d'avoir des numéros je peux avoir des noms
#Pour cela j'utilise un objet R appelé facteur
g3 <- graph( c("Pierre", "Paul", "Paul", "Anne", "Anne", "Pierre"))
# Quand les liens ont des noms, il n'est pas nécessaire de préciser le nombre de sommets
#Voir mon graphe
plot(g3)
g3bis <-graph_from_literal(Pierre-Paul-Anne-Pierre)
plot(g3bis)
#Je peux spécifier si certains noeuds sont isolés
g4 <- graph( c("Pierre","Paul" , "Paul","Eric" , "Pierre","Eric" , "Paul","Marc" , "Marc","Eric" , "Marc","Pierre"), isolates=c("Anne", "Greta", "Gabrielle", "Emilie"), directed = TRUE )
plot(g4)
#Une autre façon encorede produire un graphe, notez l'utilisation de ""
g3bis <-graph_from_literal(Pierre-Paul-Anne-Pierre-"Marie Louise", André)
#Voir mon graphe
plot(g3bis)
#Pourquoi n'est-il pas orienté (-+,++,+-,-) ?
#Créer une visualisation et la personnaliser
plot(g4, edge.arrow.size=0.5,
vertex.color="gold",
......@@ -58,7 +64,7 @@ plot(g4, edge.arrow.size=0.5,
vertex.label.dist=0.2,
edge.curved=0.2)
#########Avoir des infos sur mon graphe#######
####Avoir des infos sur mon graphe####
#lister les arrêtes
E(g4)
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment