R GGS中的其他颜色透明度类别
我试图重现一个迁移率流程图,但并不知道如何在基于axis2类别的填充参数中添加额外的颜色透明度。或者这是否是解决这个问题的方法 如有任何建议,将不胜感激,谢谢 我正在努力实现的目标: 我所拥有的: 我的移动流程图示例代码:R GGS中的其他颜色透明度类别,r,ggplot2,sankey-diagram,ggalluvial,R,Ggplot2,Sankey Diagram,Ggalluvial,我试图重现一个迁移率流程图,但并不知道如何在基于axis2类别的填充参数中添加额外的颜色透明度。或者这是否是解决这个问题的方法 如有任何建议,将不胜感激,谢谢 我正在努力实现的目标: 我所拥有的: 我的移动流程图示例代码: library(ggplot2) library(ggalluvial) oclass <- c("1st", "1st", "1st", "2nd", "2nd"
library(ggplot2)
library(ggalluvial)
oclass <- c("1st", "1st", "1st", "2nd", "2nd", "2nd", "3rd", "3rd", "3rd")
dclass <- c("1st", "2nd", "3rd", "1st", "2nd", "3rd", "1st", "2nd", "3rd")
Freq <- c(700, 200, 100, 200, 600, 200, 50, 250, 700)
odclass <- data.frame(oclass, dclass, Freq)
ggplot(odclass, aes(y = Freq, axis1 = oclass, axis2 = dclass)) +
geom_alluvium(aes(fill = oclass), width = 1/6, reverse = TRUE) +
geom_stratum(width = 1/6, alpha = 0, reverse = TRUE, color = "black") +
geom_text(aes(label = after_stat(stratum)), stat = "stratum", reverse = TRUE, size=5) +
scale_fill_manual(values = c("darkcyan", "darkgoldenrod2", "mediumorchid")) +
theme_minimal() +
theme(axis.title.y = element_blank(), axis.text.y= element_blank(), legend.position = "none",
plot.title = element_text(hjust=0.5, size=18), axis.text.x = element_blank())
库(ggplot2)
图书馆(GG)
oclass很容易添加您想要的内容。只需将alpha
映射到dclass
,然后使用scale\u alpha\u manual()
设置所需的值
库(tidyverse)
图书馆(GG)
#>警告:包“GGR”是在R版本4.0.4下生成的
oclass params$discrete):一些地层出现在多个轴上。
#>警告显示在表格中(数据=数据,轴=轴索引,识别=
#>params$discrete):一些地层出现在多个轴上。
创建于2021-03-29,由(v1.0.0)根据您想要强调的内容,我认为这是一种表示数据的好方法,但这是另一个论坛的问题。在统计和数据方面,StackOverflow更多的是“如何”而不是“如果/为什么”。下面是“如何”的答案。太棒了,谢谢!我没想到,但现在我知道了。