There is no way to produce a sunburst plot in R with this data using the plot_ly function from the plotly package.

library(plotly)

df <- data.frame(
   Valutazione = c('1 stella', '2 stelle', '3 stelle', '4 stelle', '5 stelle',
                   '1 stella', '2 stelle', '3 stelle', '4 stelle', '5 stelle',
                   '3 stelle', '4 stelle', '5 stelle'),
   Risposta = c('Negativa', 'Negativa', 'Negativa', 'Negativa', 'Negativa',
                'Neutra', 'Neutra', 'Neutra', 'Neutra', 'Neutra',
                'Positiva', 'Positiva', 'Positiva'),
   Numero = c(27, 21, 7, 1, 3, 2, 4, 16, 14, 8, 2, 31, 57)
)

plot <- plot_ly(
   data = df,
   parents = ~Risposta,
   labels = ~Valutazione,
   values = ~Numero,
   type = "sunburst",
   branchvalues="total") %>% layout(title = "Titolo")

plot

There is no way to produce a sunburst plot in R with this data using the plot_ly function from the plotly package.

library(plotly)

df <- data.frame(
   Valutazione = c('1 stella', '2 stelle', '3 stelle', '4 stelle', '5 stelle',
                   '1 stella', '2 stelle', '3 stelle', '4 stelle', '5 stelle',
                   '3 stelle', '4 stelle', '5 stelle'),
   Risposta = c('Negativa', 'Negativa', 'Negativa', 'Negativa', 'Negativa',
                'Neutra', 'Neutra', 'Neutra', 'Neutra', 'Neutra',
                'Positiva', 'Positiva', 'Positiva'),
   Numero = c(27, 21, 7, 1, 3, 2, 4, 16, 14, 8, 2, 31, 57)
)

plot <- plot_ly(
   data = df,
   parents = ~Risposta,
   labels = ~Valutazione,
   values = ~Numero,
   type = "sunburst",
   branchvalues="total") %>% layout(title = "Titolo")

plot

• r
• plotly

1 Answer 1

To create a sunburst chart from your data you first have to rows containing the totals for each parent aka the three levels of Riposta. Additionally, as your labels= are not unique you have to use the ids= to get the correct grouping for which I add a helper column with a unique id.

library(plotly, warn = FALSE)
library(dplyr, warn = FALSE)

df <- df |>
  # Add a column of unique id's
  mutate(
    ids = paste(Valutazione, Risposta, sep = "_")
  )

# Add rows containing the totals
df1 <- df |>
  count(Risposta, wt = Numero, name = "Numero") |>
  rename(Valutazione = Risposta) |>
  mutate(ids = Valutazione, Risposta = "") |>
  bind_rows(df)

plot <- plot_ly(
  data = df1,
  parents = ~Risposta,
  labels = ~Valutazione,
  values = ~Numero,
  ids = ~ids,
  type = "sunburst",
  branchvalues = "total"
)

plot