48 lines
880 B
Text
48 lines
880 B
Text
|
---
|
||
|
|
title: "Wicked Problems"
|
||
|
|
format: html
|
||
|
|
server: shiny
|
||
|
|
---
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
library(readr)
|
||
|
|
library(visNetwork)
|
||
|
|
library(dplyr)
|
||
|
|
library(tidyr)
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
wicked <- read_csv("wicked-problems.csv")
|
||
|
|
```
|
||
|
|
|
||
|
|
Source de l'exemple: <https://lrouviere.github.io/TUTO_GRAPHES/manip-graphes.html#graphes-dynamiques-avec-visnetwork>
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
nodes <- wicked %>%
|
||
|
|
transmute(id=Identifiant, label=Texte, group=Couleur)
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
edges <- wicked %>% select(Identifiant,Vers) %>%
|
||
|
|
rename(from=Identifiant) %>%
|
||
|
|
mutate(to = strsplit(Vers,";"),
|
||
|
|
arrows="to") %>%
|
||
|
|
unnest(to) %>% select(-Vers) %>% distinct()
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
vsn <- visNetwork(nodes,edges,
|
||
|
|
main="Wicked Problems",
|
||
|
|
footer="Christian Sarkar & Philip Kotler shorturl.at/fjoqC",
|
||
|
|
width = 800,
|
||
|
|
height = 800)
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
vsn
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
visSave(vsn, file = "wicked_problems_standalone.html")
|
||
|
|
```
|