if (requireNamespace("ggraph")) {
z <- tibble::tribble(
~from, ~to, ~flow,
"leavesAndStem", "rootsAndRhizome", 333.929866077124,
"lowerWater", "rootsAndRhizome", 4425.15780019304,
"rootsAndRhizome", "leavesAndStem", 525.208837577916,
"upperWater", "leavesAndStem", 11224.0814971855
)
ggflows(z)
ggflows(z, max_width = 15)
}
Run the code above in your browser using DataLab