data("ecosystem_services")
ecosystem_services_p1 <-
pivot_stages_longer(
data = ecosystem_services,
stages_from = c("activity_type", "pressure_cat",
"biotic_group", "service_division"),
values_from = "RCSES")
## suppose we want to decorate our Sankey
## with information on the 'section' of the services:
ecosystem_services_p2 <-
pivot_stages_longer(
data = ecosystem_services,
stages_from = c("activity_type", "pressure_cat",
"biotic_group", "service_division"),
values_from = "RCSES",
additional_aes_from = "service_section")
Run the code above in your browser using DataLab