И последний вопрос :)) Как правильно сделать нормированную гистограмму, если

Question

И последний вопрос :)) Как правильно сделать нормированную гистограмму, если

надо не не кол-во считать, а сумму. Беря пример выше

library(dplyr)
library(ggplot2)
library(lubridate)
library(scales)
total_sum <- rnorm(mean = 50000, sd = 5000, n = 20)
loan_date <- seq(ymd('2021-10-01'), ymd('2021-10-10'), by ='days') %>% rep(each = 2) %>% ymd()
type <- rep(c('Сумм выдач новым клиентам', 'Сумма выдач повторным клиентам'), times = 10)
df <- data.frame(loan_date, total_sum, type)

Я могу либо так сделать, но здесь не будет нормирования

ggplot(data = filter(df, type != 'Общая сумма выдач')) +
geom_bar(
aes(x = loan_date, y = total_sum, fill = type),
stat = 'identity',
)

Либо убрать stat = 'identity' , и шкалу y, но тогда номировка произойдет по кол-ву, а надо то по сумме, которая и была по оси y.

ggplot(data = filter(df, type != 'Общая сумма выдач')) +
geom_bar(
aes(x = loan_date, fill = type)
)

Либо это только руками сначала таблицу собрать и подавать в ggplot готовую?