-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathChina_SA_image_chart_list.R
161 lines (68 loc) · 3.44 KB
/
China_SA_image_chart_list.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
## Images List
library(tidyverse)
library(patchwork)
load("~/R_STUDIO/China_Global/data/tidy_data/dashboard_mess.RData")
# Map data ----------------------------------------------------------------
big_picture_country
big_picture_country_numbers %>%
knitr::kable(caption = "Chinese Investment in Millions USD ($) for Years 2005-2021")
# Yearly graphs -----------------------------------------------------------
## Gross by Year
yearly_china_plot
yearly_china_table %>%
knitr::kable(caption = " Annual Total of Chinese Investment in South America: USD ($) Millions")
## Year breakdown into sector
sector_yearly_plot
## Combo plot
combined + plot_annotation(
title = 'Chinese Investment in South America (USD Millions): Annual Gross & Sectors Breakdown',
subtitle = 'Data source @ aei.org/china-global-investment-tracker',
caption = 'Data Humanist, CC0 (Public Domain)'
)
# Sectors -----------------------------------------------------------------
sector_all_plot +
guides(fill = "none") +
coord_flip() +
geom_text( aes( label = Total_Invest), size = 2.5,
color= "red", hjust = -0.1)
# Nation by Sector --------------------------------------------------------
## PERU
peru_invest
peru_invest + labs(title = "Peru: Chinese Investment by Sector (Years 2005-2021)")
Peru_sector_chart %>%
knitr::kable(caption = "Peru: Chinese Investment (USD Millions) by Sector")
## Argentian
argentina_invest +
labs(title = "Argentina: Chinese Investment by Sector (Years 2005-2021)")
Argentina_sector_chart %>%
knitr::kable(caption = "Argentina: Chinese Investment (USD Millions) by Sector")
# Brazil ------------------------------------------------------------------
brazil_invest +
labs(title = "Brazil: Chinese Investment by Sector (Years 2005-2021)")
Brazil_sector_chart%>%
knitr::kable(caption = "Brazil: Chinese Investment (USD Millions) by Sector")
## Chile
chile_invest
Chile_sector_chart %>%
knitr::kable(caption = "Chile: Chinese Investment (USD Millions) by Sector")
## Colombia, Ecuador, Guyana, Venezuela
small_four_plot +
theme(strip.text.x = element_text(size = 12))
small_four_chart %>%
knitr::kable(caption = "Colombia, Ecuador, Guyana, Venezuela : Chinese Investment (USD Millions) by Sector")
# Energy & Metals ---------------------------------------------------------
energy_metals_plot +
labs(title = "Energy & Metals Sectors: Chinese Investment Annually in South America (Millions USD)")
energy_metals_chart %>%
knitr::kable(caption = "Energy & Metals Sectors: Chinese Investment (USD Millions) for South America")
# Energy ------------------------------------------------------------------
energy_plot +
labs(title = "Energy Subsectors: Chinese Investment Annually in South America (Millions USD)")
energy_stats_wide %>%
knitr::kable(caption = "Energy Sector: Chinese Investment (USD Millions) in South America")
# Metals ------------------------------------------------------------------
metals_plot +
labs(title = "Metal Subsectors: Chinese Investment Annually in South America (Millions USD)")
metals_stats_wide %>%
knitr::kable(caption = "Metals Sector: Chinese Investment (USD Millions) in South America")
# breathing room ----------------------------------------------------------