Início / coding / Perguntas / 79481547
Accepted
Quinten
Asked: 2025-03-04 00:25:14 +0800 CST

Fluxograma de renda para resultado no Sankey Plotly R

  • 772

Gostaria de criar um sankeydiagrama no Plotly R. Neste gráfico, gostaria de mostrar o fluxo de renda para o fluxo de resultados com uma barra de orçamento no meio, como mostrado na resposta aqui . Infelizmente, isso não é feito no Plotly. Tentei criar este gráfico, mas não entendo a estrutura de sourcee targetno pacote plotly. Aqui, crio um exemplo reproduzível:

library(plotly)

df <- data.frame(
  label = c("Income1", "Income2", "Income2", "Budget", "Outcome1", "Outcome1", "Outcome2"),
  color = c("green", "green", "green", "blue", "red", "red", "red"),
  source = c(1,2,2,0,3,3,4),
  target = c(0,0,0,0,0,0,0),
  value =  c(8,4,2,0,8,4,2)
)
df

fig <- plot_ly(
  type = "sankey",
  orientation = "h",
  node = list(
    label = df$label,
    color = df$color,
    pad = 15,
    thickness = 20,
    line = list(
      color = "black",
      width = 0.5
    )
  ),
  link = list(
    source = df$source,
    target = df$target,
    value =  df$value
  )
)

fig

Saída:

insira a descrição da imagem aqui

Isso não cria minha saída esperada. Eu gostaria de ter os fluxos de renda à esquerda, o orçamento no meio e o resultado à direita. Então, eu queria saber se alguém sabe como fazer isso no Plotly R?

1 respostas

  1. Best Answer

    Você pode definir seus nós labelcontando a partir de 0. Em seguida, defina seus fluxos em uma tabela separada: aqui, referencie a origem e o destino dos rótulos usando o índice do nó.

    fora

    library(plotly)

links <- data.frame(
  source = c(0, 1, 2, 2),          # From which node (0-indexed)
  target = c(2, 2, 3, 4),          # To which node (0-indexed)
  value =  c(8, 6, 8, 6)           # Value/width of the flow
)

plot_ly(
  type = "sankey",
  orientation = "h",
  node = list( # 0         # 1         #2         #3          #4
    label = c("Income1", "Income2", "Budget", "Outcome1", "Outcome2"),
    color = c("green", "green", "blue", "red", "red"),
    pad = 15,
    thickness = 20,
    line = list(
      color = "black",
      width = 0.5
    )
  ),
  
  link = list(
    source = links$source,
    target = links$target,
    value = links$value
  )
)
    • 2

relate perguntas