|
- ---
- title: "networks"
- author: "Antoine Neuraz"
- date: "6/7/2019"
- output: html_document
- ---
-
- # Visualisation de réseaux et graphes
-
- ```{r, include = FALSE}
-
- library(igraph)
- library(ggraph)
- library(tidygraph)
-
- nodes <- data.frame(id = c("node1","node2","node3"),
- #label = c("node1","node2","node3"),
- node_type= rep(1,3))
-
- edges <- data.frame(from = c("node1", "node2", "node1" ),
- to = c("node2","node3", "node3"),
- type = rep("normal",3) ,
- weight = rep(1,3))
-
- ```
- ```{r}
-
- ```
-
-
- ```{r}
-
- nodes <- data.frame(id = c("node1","node2","node3"),
- #label = c("node1","node2","node3"),
- node_type= rep(1,3))
-
- edges <- data.frame(from = c("node1", "node2", "node3" ),
- to = c("node2","node3", "node1"),
- type = rep("normal",3) ,
- weight = c(3,1,0),
- color = c("s","s","h"))
-
- net <- graph_from_data_frame(d=edges, vertices = nodes, directed = TRUE)
-
- ggraph(net, layout = "linear", circular = TRUE) +
- geom_edge_link(arrow = grid::arrow(type = "closed", length = unit(2,"mm")),
- end_cap = circle(5, 'mm'),
- start_cap = circle(5, 'mm')) +
- geom_node_point(color = 'black', fill ="lightgrey", size = 10, shape = 21) +
- expand_limits(y=c(-1.3,1), x = c(-1,1)) +
- theme_void() +
- theme(legend.position="none") +
- theme(plot.margin=unit(c(1,3,1,3),"cm"))
- ```
-
- ```{r}
-
- ggraph(net, layout = "linear", circular = TRUE) +
- geom_edge_link(aes(width = weight, color = color)) +
- geom_node_point(color = 'black', fill ="lightgrey", size = 10, shape = 21) +
- scale_edge_color_manual(values = c('s'="darkgrey", "h" = "white"))+
- expand_limits(y=c(-1.3,1), x = c(-1,1)) +
- theme_void() +
- theme(legend.position="none") +
- theme(plot.margin=unit(c(1,3,1,3),"cm"))
-
- ```
-
-
-
- ```{r}
- plot(net,
- edge.color = 'black',
- edge.width = 2,
- vertex.label = NA,
- vertex.size = 30,
- vertex.color = "lightgrey",
- vertex.frame.color="black")
-
- ```
-
- ```{r}
-
- nodes <- data.frame(id = c("node1","node2","node3", "node4","node5","node6"),
- #label = c("node1","node2","node3"),
- node_type= c(rep(1,2), rep(2,4)),
- node_weight = c(30,20,rep(0,4)))
-
- edges <- data.frame(from = c("node1", "node1", "node1", "node1", "node1" ),
- to = c("node2","node3", "node4", "node5","node6"),
- type = c(rep("normal",1), rep('hidden',4)) ,
- weight = c(3,rep(1,4)))
-
- net <- graph_from_data_frame(d=edges, vertices = nodes, directed = FALSE)
- V(net)$color <- "lightgrey"
- V(net)[node_type == 2]$color <- NA
- V(net)$frame.color <- "lightgrey"
- V(net)[node_type == 2]$frame.color <- NA
- V(net)["node1"]$frame.color <- 633
- V(net)["node1"]$size2 <- 8
- V(net)$size <- nodes$node_weight
-
- E(net)$width <- edges$weight
- E(net)$color <- "darkgrey"
- E(net)[type == "normal"]$color = 633
-
- plot(net,
- vertex.label = NA,
- )
-
- ```
-
-
- ```{r}
- highschool$size <- abs(rnorm(506))
-
- graph <- read_graph("~/Downloads/lesmiserables.gml .webarchive", "gml")
-
- fills <- V(graph)$fill %>%
- as.factor() %>%
- levels
-
- graph_mod <- as_tbl_graph(graph) %>%
- activate(nodes) %>%
- mutate(size = log(centrality_degree())+0.5) %>%
- arrange(desc(group),desc(size))
-
- graph_mod %>%
- ggraph("linear") +
- geom_edge_arc(aes(width = value),color = hsv(0, 0, 0.2, 0.25), fold= TRUE) +
- geom_node_point(aes(fill = fill, size =size), shape=21 ) + theme(legend.position="none") +
- scale_fill_manual(values = fills) +
- geom_node_text(aes(label = label), angle = 90, hjust=1, size = 2.5, nudge_y = -1) +
- expand_limits(y=c(-10,NA)) +
- theme_void() + theme(legend.position="none")
-
- ```
- ```{r}
-
- graph_mod %>%
- ggraph('kk') +
- geom_edge_link(aes(width = value),color = hsv(0, 0, 0.2, 0.25), fold= TRUE) +
- geom_node_point(aes(fill = fill, size =size), shape=21 ) + theme(legend.position="none") +
- scale_fill_manual(values = fills) +
- geom_node_text(aes(label = label), repel = TRUE, size = 2) +
- expand_limits(y=c(-10,NA)) +
- theme_void() + theme(legend.position="none")
-
- ```
|
