Санки в R с панельными данными с использованием%

Я пытаюсь создать график Сэнки в R, используя типичные данные панели - с процентами по оси Y вместо частот.

Пример из здесь:

rm (список = 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")

который создает этот красивый сюжет

Данные примера соответствуют той же структуре панелей, что и данные, которые я использую. Проблема в том, что по оси Y здесь используются частоты. Но я бы хотел изобразить проценты.

Тем не менее, я не понимаю, как я могу изменить ось Y на проценты, а не на частоты. Я попробовал несколько решений, все из которых привели к потере информации о переходе, предоставляемой панелью.

Есть идеи, как это решить? Заранее спасибо.