Подскажите, еще, пжл, как менять местами бары в внутри группы?

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)

df_total <- df %>%
group_by(loan_date) %>%
summarise(total_sum = sum(total_sum))

df_total$type <- 'Общая сумма выдач'
df <- rbind(df, df_total)

ggplot(data = df) +
geom_bar(
aes(x = loan_date, y = total_sum, fill = type),
stat = 'identity',
position = position_dodge(width = 0.7),
width = 0.8
) +
scale_fill_brewer(palette = "Set2") +
scale_x_date(
date_labels = '%d.%m.%Y',
date_breaks = '1 day') +
ylab(label = NULL) +
xlab(label = NULL) +
theme(
legend.position = "top",
legend.title = element_blank())