graph <- create_notable('bull')
new_graph <- create_notable('housex')
# Add nodes
graph %>% bind_nodes(data.frame(new = 1:4))
# Add edges
graph %>% bind_edges(data.frame(from = 1, to = 4:5))
# Add graphs
graph %>% bind_graphs(new_graph)
Run the code above in your browser using DataLab