# Create a graph and add 4 nodes
# in 2 separate function calls
graph <-
create_graph() %>%
add_n_nodes(
n = 2,
type = "a",
label = c("a_1", "a_2")) %>%
add_n_nodes(
n = 2,
type = "b",
label = c("b_1", "b_2"))
# Select the last nodes created (2 nodes
# from the last function call) and then
# set their color to be `red`
graph <-
graph %>%
select_last_nodes_created() %>%
set_node_attrs_ws(
node_attr = color,
value = "red") %>%
clear_selection()
# Display the graph's internal node
# data frame to verify the change
graph %>% get_node_df()
Run the code above in your browser using DataLab