remit_data <- data.frame(
year = c(2010, 2012, 2014, 2016, 2018, 2019, 2020, 2021, 2022, 2023, 2024),
india = c( 53, 69, 70, 63, 79, 83, 83, 89, 100, 112, 120),
china = c( 53, 58, 64, 61, 67, 70, 60, 53, 51, 50, 48),
mexico = c( 22, 23, 24, 27, 36, 39, 41, 54, 61, 67, 66),
philippines = c( 21, 24, 28, 30, 33, 35, 34, 37, 38, 40, 40)
)
remit_long <- tidyr::pivot_longer(remit_data, -year,
names_to = "country",
values_to = "remit")
remit_long$country <- factor(
remit_long$country,
levels = c("india", "china", "mexico", "philippines"),
labels = c("India", "China", "Mexico", "Philippines")
)
ggplot(remit_long, aes(x = year, y = remit, colour = country, linewidth = country)) +
geom_line() +
geom_point(data = subset(remit_long, country == "India"), size = 3) +
scale_colour_manual(
values = c("India" = "#012169", "China" = "#B9975B",
"Mexico" = "grey50", "Philippines" = "grey70")) +
scale_linewidth_manual(values = c("India" = 2, "China" = 1,
"Mexico" = 1, "Philippines" = 1)) +
scale_x_continuous(breaks = seq(2010, 2024, 2)) +
labs(title = "India: World's Largest Remittance Recipient ($120B in FY2024)",
subtitle = "Remittances = largest single positive item in India's Current Account",
x = NULL, y = "USD Billion",
colour = NULL, linewidth = NULL) +
theme(legend.position = "bottom")