# Combine two node data frames
nodes_1 <-
create_nodes(nodes = c("a", "b", "c", "d"),
label = FALSE,
type = "lower",
style = "filled",
color = "aqua",
shape = c("circle", "circle",
"rectangle", "rectangle"),
data = c(3.5, 2.6, 9.4, 2.7))
nodes_2 <-
create_nodes(nodes = c("e", "f", "g", "h"),
label = FALSE,
type = "upper",
style = "filled",
color = "red",
shape = "triangle",
data = c(0.5, 3.9, 3.7, 8.2))
all_nodes <- combine_nodes(nodes_1, nodes_2)
Run the code above in your browser using DataLab