Draft 1
> top_101 |>
+ ggplot(mapping = aes(x = F2021, y = Use_of_Proceed))+
+ geom_bar(stat = "identity") +
+ labs(title = "The key priorities in financing sustainable projects", subtitle = str_wrap("Total green bonds financing", width = 70),
+ x = "USD, bln",
+ y = "",
+ caption = "Source: Green Bonds, Climate Change Indicators Dashboard, IMF | Latest Data: 2021 | Calculations by Olga")
> ggplot(gb3, aes(x = Year, y = Value, color = Country)) +
+ geom_line() +
+ labs(title = "Total amount of green bonds issued in developed countries in 2017-2021",
+ subtitle = "Source: Green Bonds, Climate Change Indicators Dashboard, IMF | Latest Data: 2021 | Calculations by Olga")
> ggplot(gb1, aes(x = Year, y = Value, fill = Country)) +
+ geom_bar(stat = "identity", position = "dodge") +
+ xlab("Year") + ylab("USD, bln") +
+ ggtitle("Total amount of green bonds issued in developing countries in 2017-2021") +
+ scale_fill_manual(values = c("red", "blue", "green", "orange", "purple", "yellow", "brown"))