Big-Issue-Project/Combine.R at main · GeniusTrader-Harry/Big-Issue-Project · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

library(patchwork)

BRAZILANDSPAIN <- (
  (BrazilandSpain_Income_Top1_Graph | BrazilandSpain_Income_Top10_Graph) /
    (BrazilandSpain_Wealth_Top1_Graph | BrazilandSpain_Wealth_Top10_Graph)
) +
  plot_layout(guides = "collect") &           # collect a single legend
  theme(legend.position = "bottom")           # put the legend at bottom

BRAZILANDSPAIN


WIDERREGIONCOMBINED <- (
  (BrazilandLatinAmerica_Income_Top10_Graph | BrazilandLatinAmerica_Wealth_Top10_Graph) /
    (SpainandEurope_Income_Top10_Graph      | SpainandEurope_Wealth_Top10_Graph)
) +
  plot_layout(guides = "collect") &     # collect a single legend
  theme(legend.position = "bottom")     # put the legend at bottom

WIDERREGIONCOMBINED