Создайте столбчатую диаграмму с накоплением, где каждый стек масштабируется до суммы 100%

У меня есть вот такой data.frame:

df <- read.csv(text = "ONE,TWO,THREE
                       23,234,324
                       34,534,12
                       56,324,124
                       34,234,124
                       123,534,654")

Я хочу создать гистограмму в процентах, которая выглядит следующим образом (сделана в LibreOffice Calc):

Таким образом, столбцы должны быть стандартизированы, чтобы все стопки имели одинаковую высоту и в сумме составляли 100%. Пока все, что мне удалось получить, это гистограмма с накоплением (не в процентах), используя:

barplot(as.matrix(df))

Любая помощь?