• ให้แต่ละกลุ่มประชากรใช้แกน y ร่วมกัน
• เปรียบเทียบได้ง่ายขึ้นจากตำแหน่ง/ขนาดในแนวตั้ง

who_disease %>% 
  filter(region == 'SEAR') %>% 
  ggplot(aes(x = countryCode, y = cases, fill = disease)) +
    geom_col(position = 'fill')