Как изменить функцию DataExplorer :: create_report для создания линейки с процентами?

Question

У меня есть этот набор данных (это пример). С моим реальным набором данных у меня есть 100 категориальных переменных:

library(DataExplorer)

df <- data.frame(Sex = c("Male","Female","Male","Female","Male"))

create_report(df)

И я делаю отчет через DataExport, но он создает гистограмму следующим образом:

Но мой желаемый сюжет:

Как мне настроить этот сюжет?