Commit 63be80ad authored by Ednomesor's avatar Ednomesor

MAJ QUANTI

parent 3af36501
......@@ -47,6 +47,12 @@ plot(g3)
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)
# Ajouter des noeuds ou des liens
g4 <- g4 +
vertices("Bob") +
edge("Bob", "Greta")
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
......@@ -85,9 +91,15 @@ V(g4)$name
#J'ajoute des données sur le genre
V(g4)$genre <- c("homme", "homme", "homme", "homme", "femme", "femme", "femme", "femme")
# Valuons notre réseau
E(g4)$weight <- c(3,5,1,4,8,4,1)
plot(g4,
edge.arrow.size=.5,
vertex.label.color="black",
vertex.label.dist=1.0,
vertex.color=c( "pink", "skyblue")[1+(V(g4)$genre=="homme")] )
# Avoir l'ensemble des attributs disponibles
list.vertex.attributes(g4)
list.edge.attributes(g4)
......@@ -15,10 +15,13 @@ library(colorRamps)
#Je charge mes données
liens<-read.csv("data/edges_anonym.csv",sep=",", header=TRUE)
head(noeuds)
#Je crée un graphe avec mes données
g<-graph.data.frame(liens[,-3], directed = FALSE)
plot(g)
#Avoir des infos sur mon graphe
g
#On peut customiser la présentation de ce réseau
plot(g,
......
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