rcolorssunburst-diagram
How to manually colour sunburst() chart so that leafs are different shade of same colour to parent leaf?
I want to manually colour a sunburst chart where layers that branch from the inner circle is the same colour but a different shade as you move out from the center. In my particular dataframe I therefore want all parts of the circles (from the 2'nd circle to the last circle) that branch out from defined Taxa groups (i.e., the first circle - parent leaf) to be different shades of the same colour. For example, where I have Cetacea in my first circle I will colour orange, and every circle portion branching from this group will be a different shade of orange moving from darker to lighter as you move towards the outer circle. Is this possible? Any idea how to do this?
Here is a sample of my dataframe
df = structure(list(V1 = c("Cephalopoda - Saltwater - Behavioural Ecology - Behavioural states and adaptations - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Behavioural Ecology - Habitat and space use - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Conservation Methods - Hypoxic Zones - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Other Drivers of Movement and Habitat Use - Environmental factors - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Other Drivers of Movement and Habitat Use - Seasonal Differences - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Behavioural states and adaptations - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Behavioural states and adaptations - >40m - NA - Medium Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Co_existence - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Co_existence - >40m - NA - Medium Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Cooperative Behaviour - 3m to 40m - Medium - Medium Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Energetics - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Energetics - >40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Predator prey interactions - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Predator prey interactions - >40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Feasibility - Surface to 3m - Medium - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Feasibility - Surface to 3m - NA - Short Term - Short term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Feasibility - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Tagging procedure - Surface to 3m - Medium - NA - NA - Satellite - Stationary",
"Cetacea - Saltwater - Other Drivers of Movement and Habitat Use - Environmental factors - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Other Drivers of Movement and Habitat Use - Ice cover and shift - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Reproductive Ecology - Parental offspring interactions - Surface to 3m - Medium - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Reproductive Ecology - Parental offspring interactions - Surface to 3m - NA - Short Term - Short term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Behavioural states and adaptations - 3m to 40m - Medium - Long Term - Long Term - Acoustic_Satellite - BRUV",
"Chondrichthyes - Saltwater - Behavioural Ecology - Behavioural states and adaptations - 3m to 40m - Large - Medium Term - Medium Term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Behavioural states and adaptations - >40m - Large - Short Term - Medium Term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Co_existence - >40m - NA - Medium Term - Medium Term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Community structuring - Surface to 3m - Small - Long Term - Short term - Acoustic - BRUV"
), total = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L)), row.names = c(NA,
-27L), class = c("tbl_df", "tbl", "data.frame"))
and here the code I am using
library(sunburstR)
p = sunburst(df)
p
An example of what I am looking for is something like this. Please note that it is the progression of colour, and colour groupings that are important here. The lines are not exactly where they fall when you run my code
Solution
If I understand correctly, I think supplying a JavaScript function will likely be the best method to achieve your goal. Will you please try the following and let me know if this is in the right direction?
library(sunburstR)
df = structure(list(V1 = c("Cephalopoda - Saltwater - Behavioural Ecology - Behavioural states and adaptations - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Behavioural Ecology - Habitat and space use - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Conservation Methods - Hypoxic Zones - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Other Drivers of Movement and Habitat Use - Environmental factors - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cephalopoda - Saltwater - Other Drivers of Movement and Habitat Use - Seasonal Differences - NA - Medium - Medium Term - NA - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Behavioural states and adaptations - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Behavioural states and adaptations - >40m - NA - Medium Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Co_existence - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Co_existence - >40m - NA - Medium Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Cooperative Behaviour - 3m to 40m - Medium - Medium Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Energetics - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Energetics - >40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Predator prey interactions - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Behavioural Ecology - Predator prey interactions - >40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Feasibility - Surface to 3m - Medium - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Feasibility - Surface to 3m - NA - Short Term - Short term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Feasibility - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Methodological - Tagging procedure - Surface to 3m - Medium - NA - NA - Satellite - Stationary",
"Cetacea - Saltwater - Other Drivers of Movement and Habitat Use - Environmental factors - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Other Drivers of Movement and Habitat Use - Ice cover and shift - 3m to 40m - NA - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Reproductive Ecology - Parental offspring interactions - Surface to 3m - Medium - Short Term - Medium Term - Archival - AnimalBorne",
"Cetacea - Saltwater - Reproductive Ecology - Parental offspring interactions - Surface to 3m - NA - Short Term - Short term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Behavioural states and adaptations - 3m to 40m - Medium - Long Term - Long Term - Acoustic_Satellite - BRUV",
"Chondrichthyes - Saltwater - Behavioural Ecology - Behavioural states and adaptations - 3m to 40m - Large - Medium Term - Medium Term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Behavioural states and adaptations - >40m - Large - Short Term - Medium Term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Co_existence - >40m - NA - Medium Term - Medium Term - Archival - AnimalBorne",
"Chondrichthyes - Saltwater - Behavioural Ecology - Community structuring - Surface to 3m - Small - Long Term - Short term - Acoustic - BRUV"
), total = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L)), row.names = c(NA,
-27L), class = c("tbl_df", "tbl", "data.frame"))
sunburst(
df,
withD3 = TRUE,
colors= htmlwidgets::JS("
function() {
debugger
// this will be d3 version 4
const node = d3.select(this).datum()
let color
if(node.depth > 0) { // 2nd level
const ancestors = node.depth === 1 ? [node.parent, node] : node.ancestors().reverse()
// inefficient to define every time but will do this way for now
color = d3.scaleOrdinal(d3.schemeCategory10)
.domain(ancestors[0].children.map(d=>d.data.name))
return(d3.color(color(ancestors[1].data.name)).brighter((node.depth - 1)/4))
}
}
")
)
- Calculate transition probabilities
- How to subset R dataframe based on specific values in several columns?
- Change colon to period in figure caption in Quarto
- Applying different functions to different groups using 2 data frames
- Disable button for 5 seconds with different label and change after it
- How to group columns with an odd index, based on columns with an even index?
- Different plots of marginal effects with interaction term and offset when using different packages
- Animate a MWE GIF in R
- populating a matrix by rows
- How to relevel in ROC curve in R/plotROC?
- R - glmer different results on different machines (non-deterministic)
- Dynamically operate on column (inside :=)
- Random change in obj_addr() output when including the objects into a list and vectorizing over them
- Add to curly-curly argument
- h2o predict error: Test/Validation dataset has no columns in common with the training set
- Is is possible to convert a dataframe object to a tribble constructor?
- encoding issues in R
- How to Scrape NBA stats page using rvest
- Conversion of Decimal Minutes Seconds into Decimal Degrees when cells within the Columns Contains the Factor 'Missed' in R
- Difficulty using case_when() to add column that, conditionally, pastes value from another column
- Flip the matrix
- Creating test for date columns incorrectly throwing error
- Exists() and getSymbols() can't find symbol listed in yahoo
- spearman's rho plot
- Use OpenMP on M2 Mac with R and data.table
- How to find the connected instances from a minimum spanning trees model in R
- Hide a column in shiny datatable but keep it searchable
- How to extract data from an edited datatable in shiny?
- Render Data Table with double header
- filter dataTables in Shiny Dashboad based on selectInput Values