Including colors based on a particular node

[Cami1992]

Data sample:

data <- data.frame( Outcome = rep(c("Outcome A", "Outcome B", "Outcome C"), each = 6), Output = rep(c("Output 1", "Output 2", "Output 3"), times = 6), Project = paste0("Project ", 1:18), Expenditure = runif(18, 100, 1000) # Random expenditure values )

I want to display particular colors based on Outcome (i.e. in total only three colors). But I just got blanks after running the codes:

1° Attempt: collapsibleTree( data, hierarchy = c("Outcome", "Output", "Project"), width_scale = "sqrt", nodeSize = "Expenditure", circleFill = c("lightblue", "lightgreen", "lightyellow"), # Custom colors tooltipLabels = c("Outcome", "Output", "Project", "Expenditure") )

2° Attempt:

outcome_colors <- c("Outcome A" = "#FF5733", # Color for Outcome1 "Outcome B" = "#33FF57", # Color for Outcome2 "Outcome C" = "#5733FF") # Color for Outcome3

Map colors to outcomes in the data frame

mexico_finance$color <- outcome_colors[mexico_finance$Outcome] mexico_finance$color<-as.factor(mexico_finance$color)

Use the color palette in your collapsibleTree function

collapsibleTree( mexico_finance, hierarchy = c("Outcome", "Output","Project", "Expenditure"), nodeSize = "Expenditure", fill = "color", # Use the outcome variable for color tooltipLabels = c("Outcome", "Output", "Project", "Expenditure"), width_scale = "sqrt" )