42 lines
626 B
Text
42 lines
626 B
Text
---
|
|
title: "ESOC2023"
|
|
format: html
|
|
editor: visual
|
|
---
|
|
|
|
```{r}
|
|
library(plotly)
|
|
|
|
df
|
|
|
|
fig <- plot_ly(
|
|
type = "sankey",
|
|
orientation = "h",
|
|
|
|
node = list(
|
|
label = c("A1", "A2", "B1", "B2", "C1", "C2"),
|
|
color = c("blue", "blue", "blue", "blue", "blue", "blue"),
|
|
pad = 15,
|
|
thickness = 20,
|
|
line = list(
|
|
color = "black",
|
|
width = 0.5
|
|
)
|
|
),
|
|
|
|
link = list(
|
|
source = c(0,1,0,2,3,3),
|
|
target = c(2,3,3,4,4,5),
|
|
value = c(8,4,2,8,4,2)
|
|
)
|
|
)
|
|
fig <- fig %>% layout(
|
|
title = "Basic Sankey Diagram",
|
|
font = list(
|
|
size = 10
|
|
)
|
|
)
|
|
|
|
fig
|
|
|
|
```
|