R中的Sankey使用％使用面板数据

问题描述

我正在尝试使用典型的面板数据在R中创建一个sankey图-在y轴上使用百分比而不是频率。

here中的示例：

rm（list = ls（））

library(ggplot2)
library(ggalluvial)
library(haven)
library(dplyr)

data(majors)
majors$curriculum <- as.factor(majors$curriculum)
ggplot(majors,aes(x = semester,stratum = curriculum,alluvium = student,fill = curriculum,label = curriculum)) +
  scale_fill_brewer(type = "qual",palette = "Set2") +
  geom_flow(stat = "alluvium",lode.guidance = "frontback",color = "darkgray") +
  geom_stratum() +
  theme(legend.position = "bottom") +
  ggtitle("student curricula across several semesters")

which produces this beautiful plot

示例数据遵循我正在使用的数据的相同面板结构。问题是这里的y轴使用频率。但是我想绘制百分比。

但是，我迷失了如何将y轴更改为百分比而不是频率。我尝试了几种解决方案，这些解决方案均导致面板提供的转换信息丢失。

关于如何解决它的任何想法？预先感谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）