Diverging Bar
library(tidyverse) # untuk manupulasi, merapikan, & visualisasi data
library(gapminder) # untuk mengakses gapminder dataset
library(geomtextpath) # untuk membuat Line Text
diverging_bar_df <- gapminder %>%
filter(continent == 'Asia',
year == 2007) %>%
mutate(median_lifeExp = median(lifeExp),
lifeExp_gap = lifeExp - median_lifeExp) %>%
filter(between(lifeExp_gap, -12, 12))
diverging_bar <- diverging_bar_df %>%
ggplot(aes(x = lifeExp_gap,
y = reorder(country, lifeExp_gap),
fill = lifeExp_gap)) +
geom_col(fill = if_else(diverging_bar_df$lifeExp_gap > 0,
'#094568',
'#edce79')) +
geom_textvline(xintercept = 0,
label = 'Reference Line',
vjust = -0.5,
hjust = .5,
linewidth = 1,
linecolor = '#4682B4',
linetype = 2,
color = '#4682B4') +
theme_minimal() +
theme(
axis.title = element_blank(),
axis.text = element_blank(),
axis.line = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_rect(fill = '#FFFFFF',
color = NA),
plot.background = element_rect(fill = '#FFFFFF',
color = '#FFFFFF')
)
![](images/diverging%20bar-1.png)