4

ここにあるコードを例として使用して、RsankeyNetworkのパッケージの関数を使用しています。ただし、空白の画面しか表示されません。この図は、年代別（男女別）の感染の流れを示しているはずです。私のコードは以下の通りです：networkD3

library(RCurl)
library(networkD3)

edges <- read.csv(curl("https://raw.githubusercontent.com/kilimba/data/master/infection_flows.csv"),stringsAsFactors = FALSE )

nodes = data.frame(ID = unique(c(edges$Source, edges$Target)))

nodes$indx =0
for (i in 1:nrow(nodes)){
  nodes[i,]["indx"] = i - 1
}

edges2 <- merge(edges,nodes,by.x = "Source",by.y = "ID")
edges2$Source <-NULL
names(edges2) <- c("target","value","source")
edges2 <- merge(edges2,nodes,by.x = "target",by.y = "ID")
edges2$target <- NULL
names(edges2) <- c("value","source","target")

nodes$indx <- NULL
# Plot
sankeyNetwork(Links = edges2, Nodes = nodes,
              Source = "source", Target = "target",
              Value = "value", NodeID = "ID",
              width = 700, fontsize = 12, nodeWidth = 30)
4

4 に答える 4

1

R コンソールにエラーが表示されていませんか?

これは、2つの小さな変更で機能します。

  1. 最初にcurlパッケージもロードする

    library("curl")

  2. このfontsizeパラメーターは明らかに機能していないため、削除する必要があります。

    # Plot
sankeyNetwork(Links = edges2, Nodes = nodes,
      Source = "source", Target = "target",
      Value = "value", NodeID = "ID",
      width = 700, #fontsize = 12,
      nodeWidth = 30)
于 2015-10-27T17:15:17.857 に答える
1

フォントサイズの調整は機能しますが、引数に大文字がありません: fontSize

sankeyNetwork(Links = edges2, Nodes = nodes,
  Source = "source", Target = "target",
  Value = "value", NodeID = "ID",
  width = 700, fontSize = 12,
  nodeWidth = 30)
于 2016-01-26T18:09:43.513 に答える