Pareto chart: Doanh số giải ngân theo sản phẩm

library(dplyr)
library(ggplot2)
library(readxl)
library(dplyr)
library(reshape2)
library(extrafont)
my_font <- "OfficinaSansITC"

# https://dav1d00.wordpress.com/2014/11/16/enjoy-r-how-to-make-a-pareto-chart-using-ggplot2-and-dplyr/


df <- 
  mtcars %>% 
  mutate(region = ifelse(carb %in% c(1,2,3,4),paste('product',carb), 'product 5'))

df <- 
  df %>% 
  group_by(region) %>% 
  summarise(mpg_sum = sum(mpg)) %>% 
  ungroup() %>% 
  arrange(mpg_sum)  %>% 
  as.data.frame() %>% 
  mutate(mpg_cumsum = cumsum(mpg_sum),
         mpg_total = sum(mpg_sum)) %>% 
  mutate(mpg_percent = mpg_cumsum/mpg_total) %>% 
  mutate(mpg_int = seq(1:NROW(.)))

# Define Product
df <- 
  df %>% 
  mutate(region = case_when(region == 'product 1' ~ 'Auto loan',
                             region == 'product 2' ~ 'Car loan',
                             region == 'product 3' ~ 'Business loan',
                             region == 'product 4' ~ 'Home loan',
                             region == 'product 5' ~ 'WC loan'))

# Chart
nr <- nrow(df)
N <- sum(df$mpg_sum)

df_ticks <- data.frame(xtick0 = rep(nr +.55, 11), xtick1 = rep(nr +.59, 11),
                       ytick = seq(0, N, N/10))
y2 <- paste0(seq(0, 100, 10), '%')

ggplot(df, aes(x = reorder(region,mpg_cumsum), y = mpg_sum)) +
  geom_bar(stat="identity", fill = "#23576E", width = 0.5) +
  geom_line(aes(x = mpg_int, y = mpg_cumsum), color = "#8C3F4D") +
  geom_point(aes(x = reorder(region,mpg_cumsum), y = mpg_cumsum), color = "#8C3F4D", pch = 19) +
  scale_y_continuous(breaks=seq(0, N, N/10), limits=c(-.02 * N, N * 1.02)) +
  scale_x_discrete(breaks = df$region) +
  guides(fill = FALSE, color = FALSE) +
  annotate("rect", xmin = nr + .55, xmax = nr + 1, ymin = -.02 * N, ymax = N * 1.02,
           fill = "#EFF2F4") +
  annotate("text", x = nr + .8, y = seq(0, N, N/10), label = y2, size = 3, family="serif") +
  # geom_segment(x = nr + .55, xend = nr + .55, y = -.02 * N, yend = N * 1.02, color = "grey50") +
  # geom_segment(data = df_ticks, aes(x = xtick0, y = ytick, xend = xtick1, yend = ytick)) +
  labs(title = paste0("DOANH S\u00D4\u0301 GIA\u0309I NG\u00C2N THEO SA\u0309N PH\u00C2\u0309M\n (TY\u0309 \u0110\u00D4\u0300NG)"), 
       y = "", 
       x = "",
       subtitle = "Tha\u0301ng ba\u0301o ca\u0301o: 31-12-2018") +
  theme_bw() +
  theme(text = element_text(family = 'serif')) +
  # theme(axis.title = element_text(family = my_font,size = 12)) +
  theme(panel.background = element_blank(), 
        panel.grid = element_blank(),
        axis.ticks = element_blank(),
        # axis.text.x = element_blank(),
        axis.text.x = element_text(size = 12, face = 'bold',angle = 90),
        panel.border = element_blank(),
        plot.margin = unit(c(1,4,1,4), "cm"),
        axis.title = element_text(family = my_font,size = 12),
        text = element_text(family = 'serif')) +
  theme(title = element_text(size = 14),
        plot.subtitle=element_text(size = 12, hjust=1.2, face = 'italic', color="black")) +
  theme(plot.title = element_text(hjust = 0.5,face = 'bold')) +
  theme(plot.background = element_rect(fill = "#EFF2F4", color = NA)) + 
  theme(panel.background = element_rect(fill = "#EFF2F4", color = NA)) +
  theme(legend.background = element_rect(fill = "#EFF2F4", color = NA))