Диаграмма Санки с пакетом networkD3 смешивает использование ЦП и не показывает диаграмму - PullRequest
Новая
       77

Диаграмма Санки с пакетом networkD3 смешивает использование ЦП и не показывает диаграмму

0 голосов
/ 29 мая 2020

В большинстве случаев я пытаюсь построить диаграмму Санки в R, мой процессор загружен на максимум, а диаграмма не отображается. Кто-нибудь знает, что может быть причиной этого? Мой компьютер приличный с процессором i7-7600U @ 2,80 ГГц 2,90 ГГц. Чтобы снова выключить процессор, мне пришлось перезапустить R.

Например, я использовал этот пример кода 

library("networkD3")

myDf <- list(
    nodes=data.frame(name=c( "A", "B", "C", "D", "E",
                             "V", "W", "X", "Y", "Z")),
    links=data.frame(source=as.integer(c(0, 1, 2, 3, 3, 4, 4)),
                     target=as.integer(c(7, 6, 7, 8, 7, 5, 9)),
                     value =           c(1, 4, 1, 5, 1, 5, 3)
    )
)

sankeyNetwork(Links = myDf$links, Nodes = myDf$nodes, Source = "source",
              Target = "target", Value = "value", NodeID = "name",
              units = "TWh", fontSize = 25, nodeWidth = 30, 
              fontFamily = "sans-serif", iterations = 0)

1 Ответ

1 голос
/ 29 мая 2020

Это может быть проблема с вашим пакетом или конфигурацией R Studio.

Попробуйте сохранить sankeyNetwork как файл HTML с помощью команды saveNetwork() из того же пакета (networkD3) и откройте его.

например, 

library("networkD3")

myDf <- list(
    nodes=data.frame(name=c( "A", "B", "C", "D", "E",
                             "V", "W", "X", "Y", "Z")),
    links=data.frame(source=as.integer(c(0, 1, 2, 3, 3, 4, 4)),
                     target=as.integer(c(7, 6, 7, 8, 7, 5, 9)),
                     value =           c(1, 4, 1, 5, 1, 5, 3)
    )
)

sk <- sankeyNetwork(Links = myDf$links, Nodes = myDf$nodes, Source = "source",
              Target = "target", Value = "value", NodeID = "name",
              units = "TWh", fontSize = 25, nodeWidth = 30, 
              fontFamily = "sans-serif", iterations = 0)

saveNetwork(sk,file = "sk.html")
...