ggplot(df_data_Aluv,
aes(x = month,
stratum = Job,
alluvium = Employee,
y = freq,
fill = Job,
label = Job)) +
scale_x_discrete(expand = c(.1, .1)) +
geom_flow(stat = "alluvium",
lode.guidance = "frontback",
color = "darkgray") +
geom_stratum(alpha = .5) +
geom_text(stat = "stratum", size = 3) +
theme(legend.position = "bottom") +
ggtitle("Project month responses at three points in time")