library(RGraphSpace)
library(igraph)
library(ggplot2)
# Generate a toy star graph
gtoy1 <- make_star(15, mode="out")
# Set node and edge attributes
V(gtoy1)$my_node_var <- runif(vcount(gtoy1), 1, 20)
E(gtoy1)$my_edge_var <- runif(ecount(gtoy1), 1, 20)
# Create a GraphSpace object with a circular layout
gs <- GraphSpace(gtoy1, layout = layout_in_circle(gtoy1))
if (FALSE) {
# Build the plot
# Note that inject_nodespace() is called at the end to
# synchronize node sizes with edge clipping.
ggplot() +
geom_edgespace(aes(colour = my_edge_var), data = gs) +
geom_nodespace(aes(size = my_node_var), data = gs) +
scale_size(range = c(2, 15)) +
inject_nodespace()
}
Run the code above in your browser using DataLab