# 1. Create data links <- data.frame(source = c("A", "B", "C"), target = c("B", "C", "A")) nodes <- data.frame(id = c("A", "B", "C"), label = c("Home", "About", "Contact"))