sankey plot R 不显示降价
sankey plot R not displaying markdown
我正在处理 R markdown 文档,但被“sankey 图表”元素卡住了。 Sankey 元素在它的代码中运行良好,但是当我编织 markdown 时,该元素没有出现在 markdown 中(或者只是空白[?])。
迁移流程
library(networkD3)
# creating the df
uni_reenrolled <- c("CBS","KU", "DTU","RUC", "AU", "ITU", "AAU", "SDU", "DTU",
"KU", "SDU", "CBS", "AAU", "RUC", "ITU", "AU", "KU", "ITU",
"CBS", "DTU", "SDU", "KU", "CBS", "DTU", "RUC", "SDU", "AU",
"AAU", "ITU", "KU", "SDU", "CBS", "RUC", "AU", "AAU", "DTU",
"ITU", "SDU", "KU", "AU", "AAU", "RUC", "DTU", "CBS", "ITU",
"AAU", "AU", "KU", "SDU", "DTU", "CBS", "RUC", "ITU", "AU",
"AAU", "SDU", "KU", "CBS", "RUC", "DTU", "ITU")
uni_dropout<- c("CBS","CBS", "CBS", "CBS", "CBS", "CBS", "CBS", "CBS",
"DTU", "DTU", "DTU", "DTU", "DTU", "DTU", "DTU", "DTU",
"ITU", "ITU", "ITU", "ITU", "ITU", "KU", "KU", "KU", "KU",
"KU", "KU", "KU", "KU", "RUC", "RUC", "RUC", "RUC", "RUC",
"RUC", "RUC", "RUC", "SDU", "SDU", "SDU", "SDU", "SDU",
"SDU", "SDU", "SDU", "AAU", "AAU", "AAU", "AAU", "AAU",
"AAU", "AAU", "AAU", "AU", "AU", "AU", "AU", "AU", "AU",
"AU","AU")
dropout <- c(274, 272, 48, 40, 29, 27, 25, 22, 604, 275, 66, 53, 41, 29, 27, 23,
27, 21, 16, 8, 6, 1093, 199, 175, 141, 129, 99, 78, 55, 147, 53, 44,
27, 23, 18, 14, 12, 1254, 124, 99, 56, 45, 44, 28, 5, 939, 140, 85,
69, 56, 27, 24, 8, 1810, 176, 166, 94, 34, 33, 21, 5)
sankey_uni_data <- data.frame(dropout, uni_reenrolled, uni_dropout)%>%
mutate(uni_reenrolled = paste0(" ",uni_reenrolled ))
# creating the sankey-chart
node_names <- (c(as.character(unique(sankey_uni_data$uni_dropout)), unique(as.character(sankey_uni_data$uni_reenrolled))))
nodes <- data.frame(name = node_names)
links <- data.frame(source = match(sankey_uni_data$uni_dropout, node_names) - 1,
target = match(sankey_uni_data$uni_reenrolled, node_names) - 1,
value = sankey_uni_data$dropout)
sn <-sankeyNetwork(Links = links, Nodes = nodes, Source = "source",
Target = "target", Value = "value", NodeID = "name",
units = "dropouts", fontSize = 25, nodeWidth = 30,
fontFamily = "sans-serif", iterations = 0)
sn
当我运行代码图出来的时候很好enter image description here,但是当我编织它的时候,它不显示,只是留下降价-页面空白。
感谢任何帮助。谢谢!
我让它工作了。这是头条新闻-tabset,这就是问题所在。我编辑了它们并修复了它
我正在处理 R markdown 文档,但被“sankey 图表”元素卡住了。 Sankey 元素在它的代码中运行良好,但是当我编织 markdown 时,该元素没有出现在 markdown 中(或者只是空白[?])。
迁移流程
library(networkD3)
# creating the df
uni_reenrolled <- c("CBS","KU", "DTU","RUC", "AU", "ITU", "AAU", "SDU", "DTU",
"KU", "SDU", "CBS", "AAU", "RUC", "ITU", "AU", "KU", "ITU",
"CBS", "DTU", "SDU", "KU", "CBS", "DTU", "RUC", "SDU", "AU",
"AAU", "ITU", "KU", "SDU", "CBS", "RUC", "AU", "AAU", "DTU",
"ITU", "SDU", "KU", "AU", "AAU", "RUC", "DTU", "CBS", "ITU",
"AAU", "AU", "KU", "SDU", "DTU", "CBS", "RUC", "ITU", "AU",
"AAU", "SDU", "KU", "CBS", "RUC", "DTU", "ITU")
uni_dropout<- c("CBS","CBS", "CBS", "CBS", "CBS", "CBS", "CBS", "CBS",
"DTU", "DTU", "DTU", "DTU", "DTU", "DTU", "DTU", "DTU",
"ITU", "ITU", "ITU", "ITU", "ITU", "KU", "KU", "KU", "KU",
"KU", "KU", "KU", "KU", "RUC", "RUC", "RUC", "RUC", "RUC",
"RUC", "RUC", "RUC", "SDU", "SDU", "SDU", "SDU", "SDU",
"SDU", "SDU", "SDU", "AAU", "AAU", "AAU", "AAU", "AAU",
"AAU", "AAU", "AAU", "AU", "AU", "AU", "AU", "AU", "AU",
"AU","AU")
dropout <- c(274, 272, 48, 40, 29, 27, 25, 22, 604, 275, 66, 53, 41, 29, 27, 23,
27, 21, 16, 8, 6, 1093, 199, 175, 141, 129, 99, 78, 55, 147, 53, 44,
27, 23, 18, 14, 12, 1254, 124, 99, 56, 45, 44, 28, 5, 939, 140, 85,
69, 56, 27, 24, 8, 1810, 176, 166, 94, 34, 33, 21, 5)
sankey_uni_data <- data.frame(dropout, uni_reenrolled, uni_dropout)%>%
mutate(uni_reenrolled = paste0(" ",uni_reenrolled ))
# creating the sankey-chart
node_names <- (c(as.character(unique(sankey_uni_data$uni_dropout)), unique(as.character(sankey_uni_data$uni_reenrolled))))
nodes <- data.frame(name = node_names)
links <- data.frame(source = match(sankey_uni_data$uni_dropout, node_names) - 1,
target = match(sankey_uni_data$uni_reenrolled, node_names) - 1,
value = sankey_uni_data$dropout)
sn <-sankeyNetwork(Links = links, Nodes = nodes, Source = "source",
Target = "target", Value = "value", NodeID = "name",
units = "dropouts", fontSize = 25, nodeWidth = 30,
fontFamily = "sans-serif", iterations = 0)
sn
当我运行代码图出来的时候很好enter image description here,但是当我编织它的时候,它不显示,只是留下降价-页面空白。
感谢任何帮助。谢谢!
我让它工作了。这是头条新闻-tabset,这就是问题所在。我编辑了它们并修复了它