Data Tidying

library(countrycode)
library(tidyverse) 
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.3     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.0
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(janitor)

Attaching package: 'janitor'

The following objects are masked from 'package:stats':

    chisq.test, fisher.test
library(dplyr)
library(ggplot2)
imf_climate_dashboards_green_debt_url <- "https://opendata.arcgis.com/datasets/8e2772e0b65f4e33a80183ce9583d062_0.csv"

green_bond <- read.csv(imf_climate_dashboards_green_debt_url)
#1
indicators_we_want <- c("Green Bond Issuances by Country", "Sovereign Green Bond Issuances")
green_bond_subset <- green_bond |> 
  clean_names() |> 
  filter(indicator %in% indicators_we_want) |> 
  select(country, iso3, indicator, matches("f\\d{4}")) 
green_bond_subset 
                          country iso3                       indicator f1985
1                       Argentina  ARG Green Bond Issuances by Country    NA
2                       Australia  AUS Green Bond Issuances by Country    NA
3                         Austria  AUT Green Bond Issuances by Country    NA
4                         Austria  AUT  Sovereign Green Bond Issuances    NA
5                      Bangladesh  BGD Green Bond Issuances by Country    NA
6                Belarus, Rep. of  BLR Green Bond Issuances by Country    NA
7                Belarus, Rep. of  BLR  Sovereign Green Bond Issuances    NA
8                         Belgium  BEL Green Bond Issuances by Country    NA
9                         Belgium  BEL  Sovereign Green Bond Issuances    NA
10                        Bermuda  BMU Green Bond Issuances by Country    NA
11                         Brazil  BRA Green Bond Issuances by Country    NA
12         British Virgin Islands  VGB Green Bond Issuances by Country    NA
13                         Canada  CAN Green Bond Issuances by Country    NA
14                         Canada  CAN  Sovereign Green Bond Issuances    NA
15                 Cayman Islands  CYM Green Bond Issuances by Country    NA
16                          Chile  CHL Green Bond Issuances by Country    NA
17                          Chile  CHL  Sovereign Green Bond Issuances    NA
18         China, P.R.: Hong Kong  HKG Green Bond Issuances by Country    NA
19         China, P.R.: Hong Kong  HKG  Sovereign Green Bond Issuances    NA
20             China, P.R.: Macao  MAC Green Bond Issuances by Country    NA
21          China, P.R.: Mainland  CHN Green Bond Issuances by Country    NA
22                       Colombia  COL Green Bond Issuances by Country    NA
23                       Colombia  COL  Sovereign Green Bond Issuances    NA
24                     Costa Rica  CRI Green Bond Issuances by Country    NA
25                         Cyprus  CYP Green Bond Issuances by Country    NA
26                     Czech Rep.  CZE Green Bond Issuances by Country    NA
27                        Denmark  DNK Green Bond Issuances by Country    NA
28                        Denmark  DNK  Sovereign Green Bond Issuances    NA
29            Egypt, Arab Rep. of  EGY Green Bond Issuances by Country    NA
30            Egypt, Arab Rep. of  EGY  Sovereign Green Bond Issuances    NA
31               Estonia, Rep. of  EST Green Bond Issuances by Country    NA
32                  Fiji, Rep. of  FJI Green Bond Issuances by Country    NA
33                  Fiji, Rep. of  FJI  Sovereign Green Bond Issuances    NA
34                        Finland  FIN Green Bond Issuances by Country    NA
35                         France  FRA Green Bond Issuances by Country    NA
36                         France  FRA  Sovereign Green Bond Issuances    NA
37                        Georgia  GEO Green Bond Issuances by Country    NA
38                        Germany  DEU Green Bond Issuances by Country    NA
39                        Germany  DEU  Sovereign Green Bond Issuances    NA
40                         Greece  GRC Green Bond Issuances by Country    NA
41                       Guernsey  GGY Green Bond Issuances by Country    NA
42                        Hungary  HUN Green Bond Issuances by Country    NA
43                        Hungary  HUN  Sovereign Green Bond Issuances    NA
44                        Iceland  ISL Green Bond Issuances by Country    NA
45                          India  IND Green Bond Issuances by Country    NA
46                      Indonesia  IDN Green Bond Issuances by Country    NA
47                        Ireland  IRL Green Bond Issuances by Country    NA
48                        Ireland  IRL  Sovereign Green Bond Issuances    NA
49                         Israel  ISR Green Bond Issuances by Country    NA
50                          Italy  ITA Green Bond Issuances by Country    NA
51                          Italy  ITA  Sovereign Green Bond Issuances    NA
52                          Japan  JPN Green Bond Issuances by Country    NA
53                         Jersey  JEY Green Bond Issuances by Country    NA
54                 Korea, Rep. of  KOR Green Bond Issuances by Country    NA
55                 Korea, Rep. of  KOR  Sovereign Green Bond Issuances    NA
56         Lao People's Dem. Rep.  LAO Green Bond Issuances by Country    NA
57                         Latvia  LVA Green Bond Issuances by Country    NA
58                  Liechtenstein  LIE Green Bond Issuances by Country    NA
59                      Lithuania  LTU Green Bond Issuances by Country    NA
60                      Lithuania  LTU  Sovereign Green Bond Issuances    NA
61                     Luxembourg  LUX Green Bond Issuances by Country    NA
62                       Malaysia  MYS Green Bond Issuances by Country    NA
63  Marshall Islands, Rep. of the  MHL Green Bond Issuances by Country    NA
64                      Mauritius  MUS Green Bond Issuances by Country    NA
65                         Mexico  MEX Green Bond Issuances by Country    NA
66                        Morocco  MAR Green Bond Issuances by Country    NA
67                        Namibia  NAM Green Bond Issuances by Country    NA
68               Netherlands, The  NLD Green Bond Issuances by Country    NA
69               Netherlands, The  NLD  Sovereign Green Bond Issuances    NA
70                    New Zealand  NZL Green Bond Issuances by Country    NA
71                    New Zealand  NZL  Sovereign Green Bond Issuances    NA
72                        Nigeria  NGA Green Bond Issuances by Country    NA
73                        Nigeria  NGA  Sovereign Green Bond Issuances    NA
74                         Norway  NOR Green Bond Issuances by Country 0.030
75                       Pakistan  PAK Green Bond Issuances by Country    NA
76                         Panama  PAN Green Bond Issuances by Country    NA
77                           Peru  PER Green Bond Issuances by Country    NA
78                    Philippines  PHL Green Bond Issuances by Country    NA
79                Poland, Rep. of  POL Green Bond Issuances by Country    NA
80                Poland, Rep. of  POL  Sovereign Green Bond Issuances    NA
81                       Portugal  PRT Green Bond Issuances by Country    NA
82                        Romania  ROU Green Bond Issuances by Country    NA
83             Russian Federation  RUS Green Bond Issuances by Country    NA
84                Serbia, Rep. of  SRB Green Bond Issuances by Country    NA
85                Serbia, Rep. of  SRB  Sovereign Green Bond Issuances    NA
86                     Seychelles  SYC Green Bond Issuances by Country    NA
87                     Seychelles  SYC  Sovereign Green Bond Issuances    NA
88                      Singapore  SGP Green Bond Issuances by Country    NA
89                      Singapore  SGP  Sovereign Green Bond Issuances    NA
90                    Slovak Rep.  SVK Green Bond Issuances by Country    NA
91              Slovenia, Rep. of  SVN Green Bond Issuances by Country    NA
92                   South Africa  ZAF Green Bond Issuances by Country    NA
93                          Spain  ESP Green Bond Issuances by Country    NA
94                          Spain  ESP  Sovereign Green Bond Issuances    NA
95                         Sweden  SWE Green Bond Issuances by Country    NA
96                         Sweden  SWE  Sovereign Green Bond Issuances    NA
97                    Switzerland  CHE Green Bond Issuances by Country    NA
98                    Switzerland  CHE  Sovereign Green Bond Issuances    NA
99       Taiwan Province of China  TWN Green Bond Issuances by Country    NA
100                      Thailand  THA Green Bond Issuances by Country    NA
101              Türkiye, Rep. of  TUR Green Bond Issuances by Country    NA
102                       Ukraine  UKR Green Bond Issuances by Country    NA
103          United Arab Emirates  ARE Green Bond Issuances by Country    NA
104                United Kingdom  GBR Green Bond Issuances by Country    NA
105                United Kingdom  GBR  Sovereign Green Bond Issuances    NA
106                 United States  USA Green Bond Issuances by Country 0.025
107                       Vietnam  VNM Green Bond Issuances by Country    NA
    f1986     f1987 f1990     f1991     f1992     f1993     f1994     f1999
1      NA        NA    NA        NA        NA        NA        NA        NA
2      NA        NA    NA        NA        NA        NA        NA        NA
3      NA        NA    NA        NA        NA        NA        NA        NA
4      NA        NA    NA        NA        NA        NA        NA        NA
5      NA        NA    NA        NA        NA        NA        NA        NA
6      NA        NA    NA        NA        NA        NA        NA        NA
7      NA        NA    NA        NA        NA        NA        NA        NA
8      NA        NA    NA        NA        NA        NA        NA        NA
9      NA        NA    NA        NA        NA        NA        NA        NA
10     NA        NA    NA        NA        NA        NA        NA        NA
11     NA        NA    NA        NA        NA        NA        NA        NA
12     NA        NA    NA        NA        NA        NA        NA        NA
13     NA        NA    NA        NA        NA        NA        NA        NA
14     NA        NA    NA        NA        NA        NA        NA        NA
15     NA        NA    NA        NA        NA        NA        NA        NA
16     NA        NA    NA        NA        NA        NA        NA        NA
17     NA        NA    NA        NA        NA        NA        NA        NA
18     NA        NA    NA        NA        NA        NA        NA        NA
19     NA        NA    NA        NA        NA        NA        NA        NA
20     NA        NA    NA        NA        NA        NA        NA        NA
21     NA        NA    NA        NA        NA        NA        NA        NA
22     NA        NA    NA        NA        NA        NA        NA        NA
23     NA        NA    NA        NA        NA        NA        NA        NA
24     NA        NA    NA        NA        NA        NA        NA        NA
25     NA        NA    NA        NA        NA        NA        NA        NA
26     NA        NA    NA        NA        NA        NA        NA        NA
27     NA        NA    NA        NA        NA        NA        NA        NA
28     NA        NA    NA        NA        NA        NA        NA        NA
29     NA        NA    NA        NA        NA        NA        NA        NA
30     NA        NA    NA        NA        NA        NA        NA        NA
31     NA        NA    NA        NA        NA        NA        NA        NA
32     NA        NA    NA        NA        NA        NA        NA        NA
33     NA        NA    NA        NA        NA        NA        NA        NA
34     NA        NA    NA        NA        NA        NA        NA        NA
35    0.3        NA     0        NA        NA        NA        NA        NA
36     NA        NA    NA        NA        NA        NA        NA        NA
37     NA        NA    NA        NA        NA        NA        NA        NA
38     NA        NA    NA 0.0291793 0.0350152 0.0175076        NA        NA
39     NA        NA    NA        NA        NA        NA        NA        NA
40     NA        NA    NA        NA        NA        NA        NA        NA
41     NA        NA    NA        NA        NA        NA        NA        NA
42     NA        NA    NA        NA        NA        NA        NA        NA
43     NA        NA    NA        NA        NA        NA        NA        NA
44     NA        NA    NA        NA        NA        NA        NA        NA
45     NA        NA    NA        NA        NA        NA        NA        NA
46     NA        NA    NA        NA        NA        NA        NA        NA
47     NA        NA    NA        NA        NA        NA        NA        NA
48     NA        NA    NA        NA        NA        NA        NA        NA
49     NA        NA    NA        NA        NA        NA        NA        NA
50     NA        NA    NA        NA        NA        NA        NA 0.0481737
51     NA        NA    NA        NA        NA        NA        NA        NA
52     NA        NA    NA        NA        NA        NA        NA        NA
53     NA        NA    NA        NA        NA        NA        NA        NA
54     NA        NA    NA        NA        NA        NA        NA        NA
55     NA        NA    NA        NA        NA        NA        NA        NA
56     NA        NA    NA        NA        NA        NA        NA        NA
57     NA        NA    NA        NA        NA        NA        NA        NA
58     NA        NA    NA        NA        NA        NA        NA        NA
59     NA        NA    NA        NA        NA        NA        NA        NA
60     NA        NA    NA        NA        NA        NA        NA        NA
61     NA        NA    NA        NA        NA        NA        NA        NA
62     NA        NA    NA        NA        NA        NA        NA        NA
63     NA        NA    NA        NA        NA        NA        NA        NA
64     NA        NA    NA        NA        NA        NA        NA        NA
65     NA        NA    NA        NA        NA        NA        NA        NA
66     NA        NA    NA        NA        NA        NA        NA        NA
67     NA        NA    NA        NA        NA        NA        NA        NA
68     NA 0.0751202    NA        NA        NA        NA        NA        NA
69     NA        NA    NA        NA        NA        NA        NA        NA
70     NA        NA    NA        NA        NA        NA        NA        NA
71     NA        NA    NA        NA        NA        NA        NA        NA
72     NA        NA    NA        NA        NA        NA        NA        NA
73     NA        NA    NA        NA        NA        NA        NA        NA
74     NA        NA    NA        NA        NA        NA        NA        NA
75     NA        NA    NA        NA        NA        NA        NA        NA
76     NA        NA    NA        NA        NA        NA        NA        NA
77     NA        NA    NA        NA        NA        NA        NA        NA
78     NA        NA    NA        NA        NA        NA        NA        NA
79     NA        NA    NA        NA        NA        NA        NA        NA
80     NA        NA    NA        NA        NA        NA        NA        NA
81     NA        NA    NA        NA        NA        NA        NA        NA
82     NA        NA    NA        NA        NA        NA        NA        NA
83     NA        NA    NA        NA        NA        NA        NA        NA
84     NA        NA    NA        NA        NA        NA        NA        NA
85     NA        NA    NA        NA        NA        NA        NA        NA
86     NA        NA    NA        NA        NA        NA        NA        NA
87     NA        NA    NA        NA        NA        NA        NA        NA
88     NA        NA    NA        NA        NA        NA        NA        NA
89     NA        NA    NA        NA        NA        NA        NA        NA
90     NA        NA    NA        NA        NA        NA        NA        NA
91     NA        NA    NA        NA        NA        NA        NA        NA
92     NA        NA    NA        NA        NA        NA        NA        NA
93     NA        NA    NA        NA        NA        NA        NA        NA
94     NA        NA    NA        NA        NA        NA        NA        NA
95     NA        NA    NA        NA        NA        NA        NA        NA
96     NA        NA    NA        NA        NA        NA        NA        NA
97     NA        NA    NA        NA 0.1085305 0.1681426 0.1097454        NA
98     NA        NA    NA        NA        NA        NA        NA        NA
99     NA        NA    NA        NA        NA        NA        NA        NA
100    NA        NA    NA        NA        NA        NA        NA        NA
101    NA        NA    NA        NA        NA        NA        NA        NA
102    NA        NA    NA        NA        NA        NA        NA        NA
103    NA        NA    NA        NA        NA        NA        NA        NA
104    NA        NA    NA        NA        NA        NA        NA        NA
105    NA        NA    NA        NA        NA        NA        NA        NA
106    NA        NA    NA        NA        NA        NA        NA        NA
107    NA        NA    NA        NA        NA        NA        NA        NA
        f2000     f2002     f2003     f2004 f2007     f2008 f2009     f2010
1          NA        NA        NA        NA    NA        NA    NA        NA
2          NA        NA        NA        NA    NA        NA    NA        NA
3          NA        NA        NA        NA    NA        NA    NA        NA
4          NA        NA        NA        NA    NA        NA    NA        NA
5          NA        NA        NA        NA    NA        NA    NA        NA
6          NA        NA        NA        NA    NA        NA    NA        NA
7          NA        NA        NA        NA    NA        NA    NA        NA
8          NA        NA 0.0299397        NA    NA        NA    NA        NA
9          NA        NA        NA        NA    NA        NA    NA        NA
10         NA        NA        NA        NA    NA        NA    NA        NA
11         NA        NA        NA        NA    NA        NA    NA        NA
12         NA        NA        NA        NA    NA        NA    NA        NA
13         NA        NA        NA        NA    NA        NA    NA        NA
14         NA        NA        NA        NA    NA        NA    NA        NA
15         NA        NA        NA        NA    NA        NA    NA        NA
16         NA        NA        NA        NA    NA        NA    NA        NA
17         NA        NA        NA        NA    NA        NA    NA        NA
18         NA        NA        NA        NA    NA        NA    NA        NA
19         NA        NA        NA        NA    NA        NA    NA        NA
20         NA        NA        NA        NA    NA        NA    NA        NA
21         NA        NA        NA        NA    NA        NA    NA        NA
22         NA        NA        NA        NA    NA        NA    NA        NA
23         NA        NA        NA        NA    NA        NA    NA        NA
24         NA        NA        NA        NA    NA        NA    NA        NA
25         NA        NA        NA        NA    NA        NA    NA        NA
26         NA        NA        NA        NA    NA        NA    NA        NA
27         NA        NA        NA        NA    NA        NA    NA        NA
28         NA        NA        NA        NA    NA        NA    NA        NA
29         NA        NA        NA        NA    NA        NA    NA        NA
30         NA        NA        NA        NA    NA        NA    NA        NA
31         NA        NA        NA        NA    NA        NA    NA        NA
32         NA        NA        NA        NA    NA        NA    NA        NA
33         NA        NA        NA        NA    NA        NA    NA        NA
34         NA        NA        NA        NA    NA        NA    NA        NA
35         NA        NA        NA        NA    NA        NA    NA        NA
36         NA        NA        NA        NA    NA        NA    NA        NA
37         NA        NA        NA        NA    NA        NA    NA        NA
38  0.0272179        NA 0.3497523        NA    NA 0.1060704    NA        NA
39         NA        NA        NA        NA    NA        NA    NA        NA
40         NA        NA        NA        NA    NA        NA    NA        NA
41         NA        NA        NA        NA    NA        NA    NA        NA
42         NA        NA        NA        NA    NA        NA    NA        NA
43         NA        NA        NA        NA    NA        NA    NA        NA
44         NA        NA        NA        NA    NA        NA    NA        NA
45         NA        NA        NA        NA    NA        NA    NA        NA
46         NA        NA        NA        NA    NA        NA    NA        NA
47         NA        NA        NA 0.1085305    NA        NA    NA        NA
48         NA        NA        NA        NA    NA        NA    NA        NA
49         NA        NA        NA        NA    NA        NA    NA        NA
50  0.0261028        NA        NA        NA    NA        NA    NA        NA
51         NA        NA        NA        NA    NA        NA    NA        NA
52         NA        NA        NA        NA    NA        NA    NA        NA
53         NA        NA        NA        NA    NA        NA    NA        NA
54         NA        NA        NA        NA    NA        NA    NA        NA
55         NA        NA        NA        NA    NA        NA    NA        NA
56         NA        NA        NA        NA    NA        NA    NA        NA
57         NA        NA        NA        NA    NA        NA    NA        NA
58         NA        NA        NA        NA    NA        NA    NA        NA
59         NA        NA        NA        NA    NA        NA    NA        NA
60         NA        NA        NA        NA    NA        NA    NA        NA
61         NA        NA 0.0113590        NA    NA        NA    NA        NA
62         NA        NA        NA        NA    NA        NA    NA        NA
63         NA        NA        NA        NA    NA        NA    NA        NA
64         NA        NA        NA        NA    NA        NA    NA        NA
65         NA        NA        NA        NA    NA        NA    NA        NA
66         NA        NA        NA        NA    NA        NA    NA        NA
67         NA        NA        NA        NA    NA        NA    NA        NA
68         NA        NA        NA        NA    NA        NA    NA        NA
69         NA        NA        NA        NA    NA        NA    NA        NA
70         NA        NA        NA        NA    NA        NA    NA        NA
71         NA        NA        NA        NA    NA        NA    NA        NA
72         NA        NA        NA        NA    NA        NA    NA        NA
73         NA        NA        NA        NA    NA        NA    NA        NA
74         NA 0.0396237        NA        NA    NA        NA    NA 0.1077903
75         NA        NA        NA        NA    NA        NA    NA        NA
76         NA        NA        NA        NA    NA        NA    NA        NA
77         NA        NA        NA        NA    NA        NA    NA        NA
78         NA        NA        NA        NA    NA        NA    NA        NA
79         NA        NA        NA        NA    NA        NA    NA        NA
80         NA        NA        NA        NA    NA        NA    NA        NA
81         NA        NA        NA        NA    NA        NA    NA        NA
82         NA        NA        NA        NA    NA        NA    NA        NA
83         NA        NA        NA        NA    NA        NA    NA        NA
84         NA        NA        NA        NA    NA        NA    NA        NA
85         NA        NA        NA        NA    NA        NA    NA        NA
86         NA        NA        NA        NA    NA        NA    NA        NA
87         NA        NA        NA        NA    NA        NA    NA        NA
88         NA        NA        NA        NA    NA        NA    NA        NA
89         NA        NA        NA        NA    NA        NA    NA        NA
90         NA        NA        NA        NA    NA        NA    NA        NA
91         NA        NA        NA        NA    NA        NA    NA        NA
92         NA        NA        NA        NA    NA        NA    NA        NA
93         NA        NA        NA        NA    NA        NA    NA        NA
94         NA        NA        NA        NA    NA        NA    NA        NA
95         NA        NA        NA        NA    NA        NA    NA        NA
96         NA        NA        NA        NA    NA        NA    NA        NA
97         NA 0.1080614        NA        NA    NA        NA    NA        NA
98         NA        NA        NA        NA    NA        NA    NA        NA
99         NA        NA        NA        NA    NA        NA    NA        NA
100        NA        NA        NA        NA    NA        NA    NA        NA
101        NA        NA        NA        NA    NA        NA    NA        NA
102        NA        NA        NA        NA    NA        NA    NA        NA
103        NA        NA        NA        NA    NA        NA    NA        NA
104        NA        NA        NA        NA    NA        NA    NA        NA
105        NA        NA        NA        NA    NA        NA    NA        NA
106        NA        NA 0.0136090        NA    NA        NA    NA        NA
107        NA        NA        NA        NA    NA        NA    NA        NA
        f2011     f2012     f2013     f2014     f2015      f2016      f2017
1          NA        NA        NA        NA        NA         NA  0.9739174
2          NA        NA        NA 0.5255386 0.4125611  0.5306805  2.5333220
3          NA        NA        NA 0.5303521        NA  1.4000000  0.5195428
4          NA        NA        NA        NA        NA         NA         NA
5          NA        NA        NA        NA        NA         NA         NA
6          NA        NA        NA        NA        NA         NA         NA
7          NA        NA        NA        NA        NA         NA         NA
8          NA        NA        NA        NA        NA  0.0583387         NA
9          NA        NA        NA        NA        NA         NA         NA
10         NA        NA        NA        NA        NA  0.0977080  0.1175261
11         NA        NA        NA        NA 1.0737500  0.0385186  2.0854080
12         NA 0.2948765        NA        NA        NA  0.4000000  0.5000000
13         NA        NA        NA 1.2113560 0.4657459  1.1523310  2.8371850
14         NA        NA        NA        NA        NA         NA         NA
15         NA        NA        NA 0.3000000        NA  1.6000000  1.7668120
16         NA        NA        NA        NA        NA         NA  1.0000000
17         NA        NA        NA        NA        NA         NA         NA
18         NA        NA 0.3000000        NA 0.3000000         NA  0.9646181
19         NA        NA        NA        NA        NA         NA         NA
20         NA        NA        NA        NA        NA         NA         NA
21         NA        NA        NA 0.1455604 0.9879572 29.1512100 29.0982200
22         NA        NA        NA        NA        NA         NA  0.0435730
23         NA        NA        NA        NA        NA         NA         NA
24         NA        NA        NA        NA        NA  1.0000000         NA
25         NA        NA        NA        NA        NA         NA         NA
26         NA        NA        NA        NA        NA         NA         NA
27         NA        NA        NA        NA 0.6114811         NA  1.8562320
28         NA        NA        NA        NA        NA         NA         NA
29         NA        NA        NA        NA        NA         NA         NA
30         NA        NA        NA        NA        NA         NA         NA
31         NA        NA        NA        NA 0.0680448         NA         NA
32         NA        NA        NA        NA        NA         NA  0.0445000
33         NA        NA        NA        NA        NA         NA  0.0445000
34         NA        NA        NA        NA        NA  1.0000000  1.2097400
35         NA 0.6093745 2.0653940 5.8868170 8.6543250  5.9381980 24.6771700
36         NA        NA        NA        NA        NA         NA 11.6255100
37         NA        NA        NA        NA        NA         NA         NA
38         NA        NA 0.3237888 3.6652060 6.7636690  4.2559700  8.0283370
39         NA        NA        NA        NA        NA         NA         NA
40         NA        NA        NA        NA        NA         NA         NA
41         NA        NA        NA        NA        NA         NA         NA
42         NA        NA        NA        NA        NA         NA         NA
43         NA        NA        NA        NA        NA         NA         NA
44         NA        NA        NA        NA        NA         NA         NA
45         NA        NA        NA        NA 0.7316662  0.5884005  1.9524230
46         NA        NA        NA        NA        NA         NA         NA
47         NA        NA        NA        NA        NA         NA         NA
48         NA        NA        NA        NA        NA         NA         NA
49         NA        NA        NA        NA        NA         NA         NA
50         NA        NA        NA 0.5453959        NA  0.3977640  1.7845170
51         NA        NA        NA        NA        NA         NA         NA
52         NA        NA        NA 0.2698240 0.8237888  1.0734210  1.3542580
53         NA        NA        NA        NA        NA         NA         NA
54         NA        NA 0.5000000        NA        NA  1.4000000  0.3778532
55         NA        NA        NA        NA        NA         NA         NA
56         NA        NA        NA        NA        NA         NA         NA
57         NA        NA        NA        NA 0.1054596  0.0263649  0.0212141
58         NA        NA        NA        NA        NA         NA         NA
59         NA        NA        NA        NA        NA         NA  0.3182112
60         NA        NA        NA        NA        NA         NA         NA
61         NA        NA        NA        NA        NA  2.7896480  3.0372250
62         NA        NA        NA        NA        NA         NA  0.4436854
63         NA        NA        NA        NA        NA         NA         NA
64         NA        NA        NA        NA        NA  1.0000000  1.9500000
65         NA        NA        NA        NA 1.0000000  4.1859770  8.6264320
66         NA        NA        NA        NA        NA         NA  0.0133439
67         NA        NA        NA        NA        NA         NA         NA
68         NA        NA        NA 1.3380980 4.8669540  7.3167600 10.9189000
69         NA        NA        NA        NA        NA         NA         NA
70         NA 0.0310600 0.0314450 0.1396156 0.0943349  0.0924898  0.1554899
71         NA        NA        NA        NA        NA         NA         NA
72         NA        NA        NA        NA        NA         NA  0.0232422
73         NA        NA        NA        NA        NA         NA  0.0232422
74  0.0155407        NA 1.0000000 0.3578327 2.2931510  1.1160780  0.5835931
75         NA        NA        NA        NA        NA         NA         NA
76         NA 0.0370000        NA        NA        NA         NA         NA
77         NA        NA        NA 0.4080000        NA         NA         NA
78         NA        NA        NA        NA        NA         NA         NA
79         NA        NA        NA        NA        NA  0.7909473         NA
80         NA        NA        NA        NA        NA  0.7909473         NA
81         NA        NA        NA        NA        NA         NA         NA
82         NA        NA        NA        NA        NA         NA         NA
83         NA        NA        NA        NA        NA         NA         NA
84         NA        NA        NA        NA        NA         NA         NA
85         NA        NA        NA        NA        NA         NA         NA
86         NA        NA        NA        NA        NA         NA         NA
87         NA        NA        NA        NA        NA         NA         NA
88         NA        NA        NA        NA        NA         NA  1.0727430
89         NA        NA        NA        NA        NA         NA         NA
90         NA        NA        NA        NA        NA         NA         NA
91         NA        NA        NA        NA        NA         NA         NA
92         NA        NA        NA 0.0792241        NA         NA  0.0543375
93         NA        NA        NA 1.1589360        NA  3.2770450  4.7581060
94         NA        NA        NA        NA        NA         NA         NA
95         NA        NA 0.1713080 1.2510380 1.5107630  3.4135220  4.3701830
96         NA        NA        NA        NA        NA         NA         NA
97         NA        NA        NA        NA 0.1603249  0.8550663  0.7436262
98         NA        NA        NA        NA        NA         NA         NA
99         NA        NA        NA        NA        NA         NA  0.5328262
100        NA        NA        NA        NA        NA         NA         NA
101        NA        NA        NA        NA        NA         NA         NA
102        NA        NA        NA        NA        NA         NA         NA
103        NA        NA        NA        NA 0.3500000  1.0000000  0.5870000
104        NA        NA 0.3680598 0.3015499 0.7876346  0.8015500  2.1015790
105        NA        NA        NA        NA        NA         NA         NA
106        NA        NA 0.5000000 2.1438000 8.2629940  5.9895110  5.4637600
107        NA        NA        NA        NA        NA  0.1496367         NA
         f2018      f2019      f2020      f2021      f2022
1           NA         NA  0.0500487  0.9158416  0.2074699
2    2.2211390  1.9821640  2.8619530  4.7647450  4.2726560
3    0.5354638  2.2198480  1.6572310  2.7038380  7.4863590
4           NA         NA         NA         NA  5.2974130
5           NA         NA         NA  0.3870968         NA
6           NA         NA         NA         NA  0.0667374
7           NA         NA         NA         NA  0.0667374
8   11.8067000         NA  1.3974780  3.1576270  7.2390310
9   11.2763500         NA         NA         NA  4.7731690
10   0.9576120  0.4500000  2.9600000  1.9500000         NA
11   0.1538880  1.0253930  0.5711668  1.0795340  0.4528748
12   2.4514110  1.4575470  1.4289500  5.0934220  2.9800000
13   6.2688770  6.4059150  9.8198040 16.1171600 12.8207200
14          NA         NA         NA         NA  3.6832410
15   1.2581600  3.2931320  6.2666270 10.1580500  6.3456720
16   0.0643395  6.0092500  2.8460520  5.8718000  1.0439450
17          NA  4.3916990  2.8460520         NA         NA
18   3.1265720  7.7124710  4.4364860 17.1813200 11.3786200
19          NA  2.0000000         NA  8.5763820  2.5497200
20          NA  0.9605008  0.4366812  1.0153630  1.0000000
21  29.6185700 37.8758600 27.4494100 71.3506500 99.4288700
22   0.1068708         NA  0.0627189  0.5756093         NA
23          NA         NA         NA  0.4502116         NA
24          NA         NA         NA         NA         NA
25          NA         NA         NA  0.3182112         NA
26          NA         NA         NA  0.9015985  0.5303521
27   0.7955281 11.4199400  1.6921710  9.8089580 13.8547600
28          NA         NA         NA         NA  2.3147750
29          NA         NA  1.5000000         NA         NA
30          NA         NA  1.5000000         NA         NA
31          NA         NA         NA         NA         NA
32          NA         NA         NA         NA         NA
33          NA         NA         NA         NA         NA
34   0.1054596  2.8311660  2.8970280  3.8375220  5.4095910
35  14.7090100 29.1377400 35.0805600 57.6001400 27.9665200
36   6.1094750         NA  7.0457970 28.4814200  5.3470100
37          NA         NA  0.5000000  1.0000000         NA
38   6.2978590 20.8232100 43.6173800 74.3857000 83.8401900
39          NA         NA 16.9712700 20.1533800  5.3035200
40          NA  0.1591056  0.5303521  1.5062000  0.2439619
41          NA  0.0237296  0.5361484  0.0506776         NA
42          NA         NA  2.0208200  0.9449615  3.3005550
43          NA         NA  1.7378990  0.5151408  2.3588860
44          NA         NA  0.6934966  0.9546337  0.3182112
45          NA  3.5379790  0.9358982  5.1676780  1.2414350
46   2.5325420  1.5943990  1.8505500  2.1275470  5.0262040
47   7.2645660  1.2728450  2.1687720  9.1505180  5.6832680
48   7.2637970         NA         NA         NA         NA
49          NA         NA         NA  1.0000000         NA
50   2.1271030  6.1531040  6.1711030 23.6191000 19.0381100
51          NA         NA         NA 14.3195100  8.4856330
52   3.8195050  7.2699150  8.0981980 16.0694500 22.9743400
53          NA  1.0607040  0.1150000  0.3712464         NA
54   3.7918310  7.9380340  3.7418880 25.5914200 16.3068700
55          NA  1.0000000         NA  0.7424929         NA
56          NA         NA         NA         NA  0.2461845
57          NA         NA         NA  0.1584948  0.1060704
58          NA  0.1062925  0.1062925  0.6364225         NA
59   0.3903391  0.0212141         NA  0.0372610         NA
60   0.0721279         NA         NA         NA         NA
61   1.1760700  1.9990480  4.5044280 10.1797700  6.6203160
62   0.1982857  0.4660403  0.1162894  0.2860070  0.2010724
63          NA  0.2000000         NA  1.5000000         NA
64          NA  2.7702020  0.6500000  6.0420000  2.3000000
65   0.4072435  0.1362323  1.6785970  0.1517439  0.5034902
66          NA         NA         NA         NA         NA
67   0.0038124         NA         NA         NA         NA
68  11.2670300 28.6694200 24.9159000 33.4003100 32.4704600
69          NA 16.6428400         NA         NA         NA
70   0.2466395  0.2774695  0.6628438  1.2970460  3.3142870
71          NA         NA         NA         NA  2.1272660
72          NA  0.0652252         NA  0.0022539  0.0500000
73          NA  0.0326122         NA         NA         NA
74   3.1021440  5.3682010  6.1836810 13.4614000 13.0865800
75          NA         NA         NA  0.5000000         NA
76          NA  0.0420000  0.5353280         NA         NA
77   0.0261855  1.2788890  0.2000000         NA  0.0300000
78          NA  0.6646443  0.5540443  0.0900739         NA
79   1.0607040  2.3234130  0.2251796  1.0944810  0.5303521
80   1.0607040  2.1214080         NA         NA         NA
81          NA  1.1770760  1.5910560  2.2274790  1.0067530
82          NA         NA         NA  0.4527997  0.1514041
83          NA  0.0040601  1.3347480  1.5886840  0.8606164
84          NA         NA         NA  2.1214080         NA
85          NA         NA         NA  2.1214080         NA
86   0.0150000         NA         NA         NA         NA
87   0.0150000         NA         NA         NA         NA
88   0.0499223  2.6469860  1.3683000  5.8550660  6.7213480
89          NA         NA         NA         NA  1.7821340
90          NA         NA         NA  0.4242816  0.9088930
91   0.0795528         NA         NA         NA         NA
92   0.0597712  0.1491384  0.2000000  0.0660200  0.6101584
93   4.0766450  7.2469180  9.7300410 22.3116400 13.1633200
94          NA         NA         NA  8.7053150         NA
95   6.4578360 12.5961300 14.0240600 16.9889900 15.7714700
96          NA         NA  3.8490780         NA         NA
97   0.7183650  2.6273110  1.1041040  2.1109450  2.8918720
98          NA         NA         NA         NA  1.1394290
99   0.7074085  0.8806769  1.3560760  0.8217786  2.0751020
100  0.0957143  0.6580137  0.6745148  0.8207527  0.7936478
101         NA  0.1000000  0.1000000  1.8842460  0.0132502
102         NA         NA         NA  1.6500000         NA
103         NA  0.0700000  0.0956145  0.5800425  3.6537790
104  7.7674680  3.9681810  4.8084410 55.1944700  7.8999040
105         NA         NA         NA 37.8095400         NA
106  8.8776550 25.2580000 30.5838500 56.5253600 28.5197200
107         NA         NA         NA  0.2000000         NA
green_bond_subset <- green_bond_subset |> 
  mutate(region = countrycode(iso3, "iso3c", "region")) |> 
  select(region, everything())

cumulative_issuance_by_region <- green_bond_subset |>
  group_by(region) |>
  summarize(cumulative_issuance = sum(rowSums(across(starts_with("f")), na.rm = TRUE), na.rm = TRUE)) |>
  ungroup()

ggplot(cumulative_issuance_by_region, aes(x = reorder(region, cumulative_issuance), y = cumulative_issuance, fill = region)) +
  geom_bar(stat = "identity", color = "black", fill = "skyblue") +  
  theme_minimal() +
  scale_y_continuous(labels = scales::label_dollar(suffix = " bn")) +
  labs(x = "Region", y = "Cumulative Issuance", title = "Cumulative Issuance of Green Bonds by Region") +
  coord_flip()

#2
green_bond_2 <- green_bond |> 
clean_names() |>
filter(type_of_issuer != "Not Applicable")
green_bond_2
  object_id country iso2 iso3                               indicator
1       347   World       WLD Green Bond Issuances by Type of Issuers
2       348   World       WLD Green Bond Issuances by Type of Issuers
3       349   World       WLD Green Bond Issuances by Type of Issuers
4       350   World       WLD Green Bond Issuances by Type of Issuers
5       351   World       WLD Green Bond Issuances by Type of Issuers
6       352   World       WLD Green Bond Issuances by Type of Issuers
7       353   World       WLD Green Bond Issuances by Type of Issuers
                unit
1 Billion US Dollars
2 Billion US Dollars
3 Billion US Dollars
4 Billion US Dollars
5 Billion US Dollars
6 Billion US Dollars
7 Billion US Dollars
                                                                           source
1 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
2 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
3 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
4 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
5 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
6 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
7 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
  cts_code              cts_name
1    ECFFI Green Bonds Issuances
2    ECFFI Green Bonds Issuances
3    ECFFI Green Bonds Issuances
4    ECFFI Green Bonds Issuances
5    ECFFI Green Bonds Issuances
6    ECFFI Green Bonds Issuances
7    ECFFI Green Bonds Issuances
                                                                                                      cts_full_descriptor
1 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
2 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
3 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
4 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
5 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
6 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
7 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
                type_of_issuer use_of_proceed principal_currency f1985 f1986
1                        Banks Not Applicable     Not Applicable 0.030   0.3
2   International Organization Not Applicable     Not Applicable    NA    NA
3   Local and state Government Not Applicable     Not Applicable    NA    NA
4    Nonfinancial corporations Not Applicable     Not Applicable 0.025    NA
5 Other financial corporations Not Applicable     Not Applicable    NA    NA
6                    Sovereign Not Applicable     Not Applicable    NA    NA
7         State owned entities Not Applicable     Not Applicable    NA    NA
      f1987 f1990     f1991     f1992     f1993     f1994     f1999     f2000
1 0.0751202     0        NA        NA        NA        NA 0.0481737 0.0533208
2        NA    NA        NA        NA        NA        NA        NA        NA
3        NA    NA 0.0291793 0.1435457 0.0175076 0.1097454        NA        NA
4        NA    NA        NA        NA 0.1681426        NA        NA 0.0000000
5        NA    NA        NA        NA        NA        NA        NA        NA
6        NA    NA        NA        NA        NA        NA        NA        NA
7        NA    NA        NA        NA        NA        NA        NA        NA
      f2002     f2003     f2004    f2007     f2008     f2009     f2010
1 0.1476851 0.0100000 0.1085305       NA        NA        NA        NA
2        NA        NA        NA 1.464115 0.3711452 0.8899977 2.5408110
3        NA        NA        NA       NA        NA        NA        NA
4        NA 0.1716472        NA       NA        NA        NA        NA
5        NA 0.1230128        NA       NA        NA        NA        NA
6        NA        NA        NA       NA        NA        NA        NA
7        NA 0.1000000        NA       NA 0.1060704        NA 0.1077903
      f2011     f2012     f2013     f2014     f2015      f2016     f2017
1        NA        NA 0.7570286  1.097335  7.825377 31.9583400 27.825590
2 0.7628296 1.4447600 7.1755400 10.512900  7.269178 16.6875900  9.661158
3        NA 0.6093745 0.0474572  1.580308  1.372506  2.5141790  2.953449
4        NA 0.0680600 2.0135100  8.315138 13.142920 21.3680600 35.106930
5        NA 0.2948765 0.6182112  3.356182  6.326837 11.7732600 26.273490
6        NA        NA        NA        NA        NA  0.7909473 11.693250
7 0.0155407        NA 1.8237890  5.909182 11.656970 14.4823500 25.647960
      f2018     f2019      f2020     f2021      f2022
1 45.453030 43.457350  37.728160  92.80257 153.883800
2 17.058890 19.778900  20.736030  35.59305  35.587750
3  4.401853  3.105994   6.361379  10.58099   5.467345
4 36.485790 82.836670 101.396900 201.34630 156.573700
5 17.535510 67.616080  56.910290 125.94510  90.920620
6 25.797450 26.188560  33.950090 121.87480  45.228930
7 17.123160 41.180080  45.350520  64.83916  53.257440
total_issuance_issuer <- green_bond_2 |>
  group_by(type_of_issuer) |>
  summarize(total_issuance = sum(rowSums(across(starts_with("f")), na.rm = TRUE))) |>
  arrange(desc(total_issuance))

library(ggplot2)

total_issuance_issuer <- total_issuance_issuer %>%
  mutate(percentage = total_issuance / sum(total_issuance) * 100)

ggplot(total_issuance_issuer, aes(x = "", y = percentage, fill = type_of_issuer)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar(theta = "y") +  
  theme_void() + 
  labs(fill = "Issuer Type", y = NULL, x = NULL, title = "Green Bond Issuance by Issuer Type", subtitle = "Percentage of Total Issuance") +
  scale_fill_brewer(palette = "Pastel1")  

#3
green_bond |> 
clean_names() |> 
filter(type_of_issuer !="Not Applicable")
  object_id country iso2 iso3                               indicator
1       347   World       WLD Green Bond Issuances by Type of Issuers
2       348   World       WLD Green Bond Issuances by Type of Issuers
3       349   World       WLD Green Bond Issuances by Type of Issuers
4       350   World       WLD Green Bond Issuances by Type of Issuers
5       351   World       WLD Green Bond Issuances by Type of Issuers
6       352   World       WLD Green Bond Issuances by Type of Issuers
7       353   World       WLD Green Bond Issuances by Type of Issuers
                unit
1 Billion US Dollars
2 Billion US Dollars
3 Billion US Dollars
4 Billion US Dollars
5 Billion US Dollars
6 Billion US Dollars
7 Billion US Dollars
                                                                           source
1 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
2 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
3 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
4 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
5 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
6 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
7 Refinitiv. Accessed on 2023-03-29; Country authorities; IMF staff calculations.
  cts_code              cts_name
1    ECFFI Green Bonds Issuances
2    ECFFI Green Bonds Issuances
3    ECFFI Green Bonds Issuances
4    ECFFI Green Bonds Issuances
5    ECFFI Green Bonds Issuances
6    ECFFI Green Bonds Issuances
7    ECFFI Green Bonds Issuances
                                                                                                      cts_full_descriptor
1 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
2 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
3 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
4 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
5 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
6 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
7 Environment, Climate Change, Financial and Physical and Transition Risk Indicators, Green Bonds, Green Bonds Issuances 
                type_of_issuer use_of_proceed principal_currency f1985 f1986
1                        Banks Not Applicable     Not Applicable 0.030   0.3
2   International Organization Not Applicable     Not Applicable    NA    NA
3   Local and state Government Not Applicable     Not Applicable    NA    NA
4    Nonfinancial corporations Not Applicable     Not Applicable 0.025    NA
5 Other financial corporations Not Applicable     Not Applicable    NA    NA
6                    Sovereign Not Applicable     Not Applicable    NA    NA
7         State owned entities Not Applicable     Not Applicable    NA    NA
      f1987 f1990     f1991     f1992     f1993     f1994     f1999     f2000
1 0.0751202     0        NA        NA        NA        NA 0.0481737 0.0533208
2        NA    NA        NA        NA        NA        NA        NA        NA
3        NA    NA 0.0291793 0.1435457 0.0175076 0.1097454        NA        NA
4        NA    NA        NA        NA 0.1681426        NA        NA 0.0000000
5        NA    NA        NA        NA        NA        NA        NA        NA
6        NA    NA        NA        NA        NA        NA        NA        NA
7        NA    NA        NA        NA        NA        NA        NA        NA
      f2002     f2003     f2004    f2007     f2008     f2009     f2010
1 0.1476851 0.0100000 0.1085305       NA        NA        NA        NA
2        NA        NA        NA 1.464115 0.3711452 0.8899977 2.5408110
3        NA        NA        NA       NA        NA        NA        NA
4        NA 0.1716472        NA       NA        NA        NA        NA
5        NA 0.1230128        NA       NA        NA        NA        NA
6        NA        NA        NA       NA        NA        NA        NA
7        NA 0.1000000        NA       NA 0.1060704        NA 0.1077903
      f2011     f2012     f2013     f2014     f2015      f2016     f2017
1        NA        NA 0.7570286  1.097335  7.825377 31.9583400 27.825590
2 0.7628296 1.4447600 7.1755400 10.512900  7.269178 16.6875900  9.661158
3        NA 0.6093745 0.0474572  1.580308  1.372506  2.5141790  2.953449
4        NA 0.0680600 2.0135100  8.315138 13.142920 21.3680600 35.106930
5        NA 0.2948765 0.6182112  3.356182  6.326837 11.7732600 26.273490
6        NA        NA        NA        NA        NA  0.7909473 11.693250
7 0.0155407        NA 1.8237890  5.909182 11.656970 14.4823500 25.647960
      f2018     f2019      f2020     f2021      f2022
1 45.453030 43.457350  37.728160  92.80257 153.883800
2 17.058890 19.778900  20.736030  35.59305  35.587750
3  4.401853  3.105994   6.361379  10.58099   5.467345
4 36.485790 82.836670 101.396900 201.34630 156.573700
5 17.535510 67.616080  56.910290 125.94510  90.920620
6 25.797450 26.188560  33.950090 121.87480  45.228930
7 17.123160 41.180080  45.350520  64.83916  53.257440
green_bond |>
  distinct(Use_of_Proceed)
                                                                       Use_of_Proceed
1                                                                      Not Applicable
2                                                        Access to Essential Services
3                                               Acquiring and distribution of vaccine
4                                                                         Acquisition
5                                                     Affordable Basic Infrastructure
6                                                                         Agriculture
7                                                                  Alternative Energy
8                                                   Aquatic Biodiversity Conservation
9                                                                 Capital expenditure
10                                             Capital expenditure/Financing expenses
11                   Carbon reduction through reforestation and avoided deforestation
12                                                           China Urban Construction
13 Circular Economy Adapted/Eco-efficient Products, Production Technologies/Processes
14                                                                    Clean Transport
15                                                          Climate Change Adaptation
16                                          E-education programs - Education Projects
17                                                               Economic Development
18                                                            Electric & Public Power
19                                                            Eligible Green Projects
20                                                      Employee stock ownership plan
21                                                                  Energy Efficiency
22                                                  Environmental Protection Projects
23                                               Environmentally Sustainable Products
24                                                     Equipment Upgrade/Construction
25                                                     Financing of Subordinated Loan
26                                   Funding new technologies to reduce GHS emissions
27                                                                                Gas
28                                                                    General Purpose
29                                                        General Purpose/Acquisition
30                                                          General Purpose/Refinance
31                                                    General Purpose/Working Capital
32                                                       Green Construction/Buildings
33                                                                   Higher Education
34                                                             Industrial Development
35                                                                     Infrastructure
36                                                                  Land Preservation
37                                                              Merger or Acquisition
38                                                                              Other
39                                                                    Other Education
40                                                                      Other Housing
41                                                               Other Public Service
42                                                               Other Transportation
43                                                                           Pandemic
44                                                                  Pollution Control
45                                                     Pollution Prevention & Control
46                                                      Production/Supply of Cannabis
47                                                                    Project Finance
48                                           Property Expendit (acquisit/development)
49                                                Redeem Existing Bonds or Securities
50                                                       Refinance/Financing expenses
51                                                          Renewable Energy Projects
52                                                Repay Bank Loan or Bridge Financing
53                                                            Repay Intercompany Debt
54                                                                       Ship finance
55                                                  Social Housing/Affordable Housing
56                                          Socioeconomic Advancement And Empowerment
57                                                                     Solar projects
58                                                   Sustainable Development Projects
59                                                        Sustainable Economic Growth
60                                                               Sustainable Forestry
61                                                 Sustainable Management of Land Use
62                                 Sustainable Management of Living Natural Resources
63                                                              Sustainable Transport
64                                         Sustainable Water or Wastewater management
65                                              Terrestrial Biodiversity Conservation
66                                                       The Belt and Road Initiative
67                                                                   Waste Management
68                                                                      Water & Sewer
69                                                                      Wind projects
70                                                                    Working capital
green_bond_P <- green_bond %>%
  clean_names() %>%
  filter(principal_currency != "Not Applicable") %>%
  pivot_longer(
    cols = starts_with("f"),
    names_to = "year",
    values_to = "issuance_bn_usd",
    names_transform = list(year = readr::parse_number)
  ) %>%
  arrange(principal_currency, year) %>%
  group_by(principal_currency, year) %>%
  mutate(cumulative_bn_usd = cumsum(issuance_bn_usd)) %>%
  filter(!is.na(cumulative_bn_usd))
top_10 <- green_bond_P %>%
  group_by(principal_currency) %>%
  summarize(cumulative_bn_usd = max(cumulative_bn_usd)) %>%
  arrange(desc(cumulative_bn_usd)) %>%
  slice_head(n = 10)
ggplot(top_10, aes(x = "", y = cumulative_bn_usd, fill = principal_currency)) +
  geom_bar(width = 1, stat = "identity", color = "white") +
  coord_polar(theta = "y") +  
  scale_fill_brewer(palette = "Spectral") +  
  labs(title = "Top 10 Principal Currencies in Green Bond Issuance",
       caption = "Data Source: ValeriaLee",
       x = NULL, 
       y = NULL,  
       fill = "Principal Currency") +  
  theme_void() +  
  theme(legend.title = element_text(size = 10), legend.text = element_text(size = 8))