写一段R语言做桑基图的代码

Sure, here's an example code for creating a Sankey diagram in R:

library(networkD3)
library(tidyverse)

# Create a sample data frame
data <- data.frame(
from = c("A", "A", "B", "B", "C", "C"),
to = c("B", "C", "D", "E", "D", "E"),
value = c(10, 20, 30, 40, 50, 60)
)

# Create a networkD3 Sankey diagram
sankeyNetwork(
Links = data,
Source = "from",
Target = "to",
Value = "value",
NodeID = unique(c(data$from, data$to)),
sinksRight = FALSE,
fontSize = 16,
nodeWidth = 30
)

This code uses the networkD3 and tidyverse packages to create a Sankey diagram from a sample data frame. The resulting diagram shows the flow of values from the "from" nodes to the "to" nodes.

相关问题

怎么用R语言ggsankey画桑基图

使用R语言中的ggplot2包和ggsankey包可以绘制桑基图。下面是一个简单的示例代码：

# 安装必要的包
install.packages("ggplot2")
install.packages("ggsankey")

# 载入必要的包
library(ggplot2)
library(ggsankey)

# 创建桑基图数据
data <- data.frame(
  from = c("A", "A", "B", "B", "C"),
  to = c("B", "C", "D", "E", "E"),
  value = c(10, 15, 20, 5, 8)
)

# 绘制桑基图
ggplot(data, aes(fill = to, label = to)) +
 geom_sfn_sankey(aes(alluvium = from, flow = value)) +
  geom_sfn_alluvium() +
  geom_sfn_stratum() +
  geom_sfn_label(nudge_x = -0.5, nudge_y = 0.5) +
  theme(legend.position = "bottom") +
  labs(fill = "To")

这段代码首先通过安装`ggplot2`和`ggsankey`包，然后加载这两个包。接下来，创建了一个数据框`data`，其中包含了桑基图的连接和权值信息。最后，使用`ggplot`函数和`geom_sfn_sankey`、`geom_sfn_alluvium`、`geom_sfn_stratum`、`geom_sfn_label`等函数绘制桑基图，并设置相关的主题和标签。

你可以根据自己的数据和需求修改示例代码中的数据和参数，以得到符合你需求的桑基图。