[英]selectively color/size nodes in ggraph
我正在使用tidygraph和ggraph绘制网络。 有没有办法有选择地操纵节点? 具体来说,大小和颜色分开。
# example data
rstat_nodes <- data.frame(name = c("Hadley", "David", "Romain", "Julia"))
rstat_edges <- data.frame(from = c(1, 1, 1, 2, 3, 3, 4, 4, 4),
to = c(2, 3, 4, 1, 1, 2, 1, 2, 3))
gr <- tbl_graph(nodes = rstat_nodes, edges = rstat_edges)
as_tbl_graph(gr) %>%
mutate(centrality = centrality_degree(normalized = T)) %>%
ggraph(layout = 'auto') +
#geom_edge_link() +
geom_edge_arc(curvature=0.2,alpha=0.5) +
geom_node_point(aes(size = 0.2, colour = centrality)) +
scale_color_viridis(guide = 'legend') +
ggtitle("Network Degree Centrality (Normalized)") +
theme_graph()
是的,你可以使用activate
从tidygraph
包访问nodes
和edges
dataframes。 然后,您可以使用dplyr
来操作每个文件中的数据。 你也可以直接管道到ggraph
。
library(tidyverse)
library(igraph)
library(ggraph)
library(tidygraph)
library(graphlayouts)
library(scales)
# example data
rstat_nodes <-
data.frame(name = c("Hadley", "David", "Romain", "Julia"))
rstat_edges <- data.frame(from = c(1, 1, 1, 2, 3, 3, 4, 4, 4),
to = c(2, 3, 4, 1, 1, 2, 1, 2, 3))
gr <- tbl_graph(nodes = rstat_nodes, edges = rstat_edges)
gr %>%
activate(nodes) %>% # use dplyr on nodes
mutate(David =
case_when(name == 'David' ~ 2, T ~ 0),
David = as.character(David)) %>%
activate(edges) %>% # same on edge list
mutate(David = case_when(from == 2 ~ 1, T ~ 0),
David = as.character(David)) %>%
ggraph(., layout = 'auto')+
geom_edge_link(aes(color = David),
width = 1)+
geom_node_point(aes(color = David),
size = 5)+
geom_node_text(aes(label = name),
nudge_x = .05,
nudge_y = .05)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.