如何将整洁的数据集转换为对冲积层友好的格式？(冲积层)

Question

我在以合适的格式获取数据时遇到了问题，无法用g冲积层制作冲积图(每冲积层一行)。我想绘制2018年至2019年不同类别之间的流动图。

这有可能是用某种dplyr魔法吗？:)

library(tidyverse)
library(ggalluvial)

id <- as.character(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10))

year <- as.character(c(2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 2019))

class <- c("A", "A", "B", "C", "B", "A", "A", "C", "B", "A", "B", "A", "B", "C", "B", "B", "C", "C", "B", "A")

df <- data.frame(id, year, class)

Answer 1

您似乎不需要使用您的数据，因为：

library(ggplot2)
library(ggalluvial)
df$class <- as.factor(df$class) # only put this as factor
ggplot(df,aes(x = year, stratum = class, alluvium = id, fill = class, label = class)) +
       scale_fill_brewer(type = "qual", palette = "Set2") +
       geom_flow(stat = "alluvium", lode.guidance = "rightleft",color = "darkgray") +
       geom_stratum() + 
       theme_light()

​

​