-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathComparison Visualisation.R
More file actions
149 lines (124 loc) · 6.68 KB
/
Copy pathComparison Visualisation.R
File metadata and controls
149 lines (124 loc) · 6.68 KB
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
library(tidyverse)
library(dplyr)
library(ggplot2)
## Brazil & Latin America Top 1 % Income
BrazilandLatinAmerica_Income_Top1_Graph <- ggplot() +
geom_line(data = Brazil_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Brazil")) +
geom_point(data = Brazil_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Brazil"), shape = 15, size = 2) +
geom_line(data = LatinAmerica_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Latin America")) +
geom_point(data = LatinAmerica_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Latin America"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.15, 0.3)) +
labs(
title = "Pre-Tax Income Top 1% Share: Brazil vs Latin America",
x = "Year",
y = "Share of Top 1% in Pre-Tax Income",
color = "Region"
) +
theme_minimal()
BrazilandLatinAmerica_Income_Top1_Graph
## Brazil & Latin America Top 10 % Income
BrazilandLatinAmerica_Income_Top10_Graph <- ggplot() +
geom_line(data = Brazil_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Brazil")) +
geom_point(data = Brazil_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Brazil"), shape = 15, size = 2) +
geom_line(data = LatinAmerica_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Latin America")) +
geom_point(data = LatinAmerica_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Latin America"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.5, 0.65)) +
labs(
title = "Pre-Tax Income Top 10% Share: Brazil vs Latin America",
x = "Year",
y = "Share of Top 10% in Pre-Tax Income",
color = "Region"
) +
theme_minimal()
BrazilandLatinAmerica_Income_Top10_Graph
## Brazil & Latin America Top 1 % Wealth
BrazilandLatinAmerica_Wealth_Top1_Graph <- ggplot() +
geom_line(data = Brazil_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Brazil")) +
geom_point(data = Brazil_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Brazil"), shape = 15, size = 2) +
geom_line(data = LatinAmerica_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Latin America")) +
geom_point(data = LatinAmerica_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Latin America"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.2, 0.45)) +
labs(
title = "Net Personal Wealth Top 1% Share: Brazil vs Latin America",
x = "Year",
y = "Share of Top 1% in Net Personal Wealth",
color = "Region"
) +
theme_minimal()
BrazilandLatinAmerica_Wealth_Top1_Graph
## Brazil & Latin America Top 10 % Wealth
BrazilandLatinAmerica_Wealth_Top10_Graph <- ggplot() +
geom_line(data = Brazil_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Brazil")) +
geom_point(data = Brazil_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Brazil"), shape = 15, size = 2) +
geom_line(data = LatinAmerica_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Latin America")) +
geom_point(data = LatinAmerica_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Latin America"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.55, 0.75)) +
labs(
title = "Net Personal Wealth Top 10% Share: Brazil vs Latin America",
x = "Year",
y = "Share of Top 10% in Net Personal Wealth",
color = "Region"
) +
theme_minimal()
BrazilandLatinAmerica_Wealth_Top10_Graph
###### EUROPE
## Spain & Europe Top 1 % Income
SpainandEurope_Income_Top1_Graph <- ggplot() +
geom_line(data = Spain_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Spain")) +
geom_point(data = Spain_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Spain"), shape = 15, size = 2) +
geom_line(data = Europe_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Europe")) +
geom_point(data = Europe_PreTaxIncome_Top1Percent, aes(x = Year, y = `% of Total`, color = "Europe"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0, 0.15)) +
labs(
title = "Pre-Tax Income Top 1% Share: Spain vs Europe",
x = "Year",
y = "Share of Top 1% in Pre-Tax Income",
color = "Region"
) +
theme_minimal()
SpainandEurope_Income_Top1_Graph
## Spain & Europe Top 10 % Income
SpainandEurope_Income_Top10_Graph <- ggplot() +
geom_line(data = Spain_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Spain")) +
geom_point(data = Spain_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Spain"), shape = 15, size = 2) +
geom_line(data = Europe_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Europe")) +
geom_point(data = Europe_PreTaxIncome_Top10Percent, aes(x = Year, y = `% of Total`, color = "Europe"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.25, 0.4)) +
labs(
title = "Pre-Tax Income Top 10% Share: Spain vs Europe",
x = "Year",
y = "Share of Top 10% in Pre-Tax Income",
color = "Region"
) +
theme_minimal()
SpainandEurope_Income_Top10_Graph
## Spain & Europe Top 1 % Wealth
SpainandEurope_Wealth_Top1_Graph <- ggplot() +
geom_line(data = Spain_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Spain")) +
geom_point(data = Spain_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Spain"), shape = 15, size = 2) +
geom_line(data = Europe_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Europe")) +
geom_point(data = Europe_NetPersonalWealth_Top1Percent, aes(x = Year, y = `% of Total`, color = "Europe"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.15, 0.3)) +
labs(
title = "Net Personal Wealth Top 1% Share: Spain vs Europe",
x = "Year",
y = "Share of Top 1% in Net Personal Wealth",
color = "Region"
) +
theme_minimal()
SpainandEurope_Wealth_Top1_Graph
## Spain & Europe Top 10 % Wealth
SpainandEurope_Wealth_Top10_Graph <- ggplot() +
geom_line(data = Spain_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Spain")) +
geom_point(data = Spain_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Spain"), shape = 15, size = 2) +
geom_line(data = Europe_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Europe")) +
geom_point(data = Europe_NetPersonalWealth_Top10Percent, aes(x = Year, y = `% of Total`, color = "Europe"), shape = 15, size = 2) +
scale_y_continuous(limits = c(0.5, 0.7)) +
labs(
title = "Net Personal Wealth Top 10% Share: Spain vs Europe",
x = "Year",
y = "Share of Top 10% in Net Personal Wealth",
color = "Region"
) +
theme_minimal()
SpainandEurope_Wealth_Top10_Graph