library(ggplot2)
data("gtoy1", package = "RGraphSpace")
gs <- GraphSpace(gtoy1)
# Simplest use
ggplot(gs) + geom_graphspace()
# With node labels
ggplot(gs) + geom_graphspace(aes(label = nodeLabel))
# With independent node and edge customization
ggplot(gs) + geom_graphspace(
node.params = list(aes(label = nodeLabel)),
edge.params = list(curve = 0.3)
)
Run the code above in your browser using DataLab