-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathgrafico_ranking.R
229 lines (217 loc) · 13.9 KB
/
grafico_ranking.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
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
library(tibble)
library(ggplot2)
library(dplyr)
library(magrittr)
df <- tibble::tibble(País = c("Alemanha","Alemanha",
"Alemanha","Alemanha","Alemanha","Alemanha","Alemanha",
"Alemanha","Alemanha","Alemanha","Alemanha","Alemanha",
"Alemanha","Alemanha","Alemanha","Alemanha","Alemanha",
"Alemanha","Alemanha","Austrália","Austrália",
"Austrália","Austrália","Austrália","Austrália",
"Austrália","Austrália","Austrália","Austrália","Austrália",
"Austrália","Austrália","Austrália","Austrália",
"Austrália","Austrália","Austrália","Austrália","Brasil",
"Brasil","Brasil","Brasil","Brasil","Brasil","Brasil",
"Brasil","Brasil","Brasil","Brasil","Brasil",
"Brasil","Brasil","Brasil","Brasil","Brasil","Brasil",
"Brasil","Canadá","Canadá","Canadá","Canadá","Canadá",
"Canadá","Canadá","Canadá","Canadá","Canadá",
"Canadá","Canadá","Canadá","Canadá","Canadá","Canadá",
"Canadá","Canadá","Canadá","China","China","China",
"China","China","China","China","China","China","China",
"China","China","China","China","China","China",
"China","China","China","Coreia do Sul",
"Coreia do Sul","Coreia do Sul","Coreia do Sul","Coreia do Sul",
"Coreia do Sul","Coreia do Sul","Coreia do Sul",
"Coreia do Sul","Coreia do Sul","Coreia do Sul","Coreia do Sul",
"Coreia do Sul","Coreia do Sul","Coreia do Sul",
"Coreia do Sul","Coreia do Sul","Coreia do Sul",
"Coreia do Sul","Espanha","Espanha","Espanha","Espanha",
"Espanha","Espanha","Espanha","Espanha","Espanha",
"Espanha","Espanha","Espanha","Espanha","Espanha","Espanha",
"Espanha","Espanha","Espanha","Espanha","EUA","EUA",
"EUA","EUA","EUA","EUA","EUA","EUA","EUA","EUA",
"EUA","EUA","EUA","EUA","EUA","EUA","EUA","EUA",
"EUA","França","França","França","França","França",
"França","França","França","França","França",
"França","França","França","França","França","França",
"França","França","França","Holanda","Holanda","Holanda",
"Holanda","Holanda","Holanda","Holanda","Holanda",
"Holanda","Holanda","Holanda","Holanda","Holanda",
"Holanda","Holanda","Holanda","Holanda","Holanda",
"Holanda","Indonésia","Indonésia","Indonésia","Indonésia",
"Indonésia","Indonésia","Indonésia","Indonésia",
"Indonésia","Indonésia","Indonésia","Indonésia",
"Indonésia","Indonésia","Indonésia","Indonésia","Indonésia",
"Indonésia","Indonésia","Irã","Irã","Irã","Irã",
"Irã","Irã","Irã","Irã","Irã","Irã","Irã","Irã",
"Irã","Irã","Irã","Irã","Irã","Irã","Irã","Itália",
"Itália","Itália","Itália","Itália","Itália","Itália",
"Itália","Itália","Itália","Itália","Itália",
"Itália","Itália","Itália","Itália","Itália","Itália",
"Itália","Japão","Japão","Japão","Japão","Japão",
"Japão","Japão","Japão","Japão","Japão","Japão","Japão",
"Japão","Japão","Japão","Japão","Japão","Japão",
"Japão","Polônia","Polônia","Polônia","Polônia",
"Polônia","Polônia","Polônia","Polônia","Polônia",
"Polônia","Polônia","Polônia","Polônia","Polônia","Polônia",
"Polônia","Polônia","Polônia","Polônia","Rússia",
"Rússia","Rússia","Rússia","Rússia","Rússia","Rússia",
"Rússia","Rússia","Rússia","Rússia","Rússia",
"Rússia","Rússia","Rússia","Rússia","Rússia","Rússia",
"Rússia","Taiwan","Taiwan","Taiwan","Taiwan","Taiwan",
"Taiwan","Taiwan","Taiwan","Taiwan","Taiwan",
"Taiwan","Taiwan","Taiwan","Taiwan","Taiwan","Taiwan",
"Taiwan","Taiwan","Taiwan","Turquia","Turquia","Turquia",
"Turquia","Turquia","Turquia","Turquia","Turquia",
"Turquia","Turquia","Turquia","Turquia","Turquia",
"Turquia","Turquia","Turquia","Turquia","Turquia",
"Turquia","UK","UK","UK","UK","UK","UK","UK","UK",
"UK","UK","UK","UK","UK","UK","UK","UK","UK","UK",
"UK","Índia","Índia","Índia","Índia","Índia",
"Índia","Índia","Índia","Índia","Índia","Índia","Índia",
"Índia","Índia","Índia","Índia","Índia","Índia",
"Índia"),
Ano = c(2014L,2015L,2000L,2001L,
2008L,2009L,2010L,2011L,2012L,2013L,2016L,2017L,
2018L,2002L,2003L,2004L,2005L,2006L,2007L,2000L,2001L,
2002L,2003L,2006L,2007L,2008L,2009L,2010L,2011L,
2014L,2004L,2005L,2012L,2013L,2015L,2016L,2017L,
2018L,2018L,2012L,2013L,2015L,2017L,2007L,2008L,
2009L,2010L,2011L,2014L,2016L,2006L,2002L,2003L,
2004L,2005L,2000L,2001L,2000L,2002L,2003L,2004L,
2005L,2006L,2007L,2008L,2009L,2001L,2010L,2011L,
2012L,2013L,2014L,2015L,2016L,2017L,2018L,2016L,2017L,
2018L,2004L,2005L,2006L,2007L,2008L,2009L,2010L,
2011L,2012L,2013L,2014L,2015L,2003L,2002L,2000L,
2001L,2015L,2016L,2018L,2010L,2011L,2012L,2013L,
2014L,2017L,2006L,2007L,2008L,2009L,2004L,2005L,
2002L,2003L,2000L,2001L,2005L,2006L,2000L,2001L,
2002L,2003L,2004L,2007L,2008L,2009L,2010L,2011L,
2012L,2013L,2014L,2015L,2016L,2017L,2018L,2000L,2001L,
2002L,2003L,2004L,2005L,2006L,2007L,2008L,2009L,
2010L,2011L,2012L,2013L,2014L,2015L,2016L,2017L,
2018L,2000L,2001L,2002L,2003L,2004L,2005L,2006L,
2007L,2008L,2009L,2010L,2011L,2012L,2013L,2014L,
2015L,2016L,2017L,2018L,2000L,2001L,2002L,2003L,
2004L,2005L,2006L,2007L,2008L,2009L,2010L,2011L,
2012L,2013L,2014L,2015L,2016L,2017L,2018L,2018L,2000L,
2001L,2002L,2003L,2004L,2005L,2006L,2007L,2008L,
2009L,2010L,2011L,2012L,2013L,2014L,2015L,2016L,
2017L,2014L,2015L,2016L,2017L,2018L,2011L,2012L,
2013L,2010L,2009L,2008L,2000L,2001L,2002L,2003L,
2004L,2005L,2006L,2007L,2000L,2001L,2002L,2003L,
2004L,2005L,2006L,2007L,2008L,2009L,2017L,2010L,
2011L,2012L,2013L,2014L,2015L,2016L,2018L,2000L,2001L,
2002L,2003L,2004L,2005L,2006L,2007L,2008L,2009L,
2010L,2011L,2012L,2013L,2014L,2015L,2016L,2017L,
2018L,2000L,2001L,2002L,2003L,2017L,2018L,2004L,
2005L,2006L,2007L,2008L,2015L,2016L,2009L,2014L,
2010L,2011L,2012L,2013L,2018L,2001L,2017L,2000L,
2002L,2003L,2004L,2016L,2005L,2006L,2007L,2008L,
2009L,2010L,2011L,2012L,2013L,2014L,2015L,2005L,2006L,
2007L,2008L,2009L,2010L,2011L,2012L,2013L,2004L,
2014L,2002L,2003L,2000L,2001L,2015L,2016L,2017L,
2018L,2015L,2016L,2009L,2010L,2017L,2018L,2004L,
2005L,2006L,2007L,2008L,2011L,2012L,2013L,2003L,
2014L,2002L,2000L,2001L,2000L,2001L,2002L,2003L,
2004L,2005L,2006L,2007L,2008L,2009L,2010L,2011L,
2012L,2013L,2014L,2015L,2016L,2017L,2018L,2016L,2017L,
2018L,2015L,2011L,2012L,2013L,2014L,2010L,2007L,
2008L,2009L,2005L,2006L,2002L,2003L,2004L,2000L,
2001L),
Posição = c("3º","3º","4º","4º","4º",
"4º","4º","4º","4º","4º","4º","4º","4º","5º","5º",
"5º","5º","5º","5º","11º","11º","12º","12º",
"12º","12º","12º","12º","12º","12º","12º","13º",
"13º","13º","13º","13º","14º","14º","14º","11º","12º",
"12º","12º","12º","13º","13º","13º","13º","13º",
"13º","13º","14º","15º","15º","15º","16º","17º",
"17º","8º","8º","8º","8º","8º","8º","8º","8º",
"8º","9º","9º","9º","9º","9º","9º","10º","11º",
"11º","12º","1º","1º","1º","2º","2º","2º","2º","2º",
"2º","2º","2º","2º","2º","2º","2º","3º","4º",
"5º","5º","9º","9º","9º","10º","10º","10º","10º",
"10º","10º","11º","11º","11º","11º","12º","12º",
"13º","13º","14º","14º","9º","9º","10º","10º",
"10º","10º","10º","10º","10º","10º","11º","11º","11º",
"11º","11º","11º","12º","13º","13º","1º","1º",
"1º","1º","1º","1º","1º","1º","1º","1º","1º","1º",
"1º","1º","1º","1º","2º","2º","2º","6º","6º",
"6º","6º","6º","6º","6º","6º","6º","6º","6º","7º",
"7º","7º","7º","7º","7º","9º","10º","13º","13º",
"14º","14º","14º","14º","16º","16º","16º","16º",
"16º","17º","17º","17º","17º","18º","18º","18º",
"18º","19º",NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,
NA,NA,NA,NA,NA,NA,"21º","15º","15º","15º",
"15º","15º","16º","16º","16º","18º","19º","20º",NA,
NA,NA,NA,NA,NA,NA,NA,"7º","7º","7º","7º","7º",
"7º","7º","7º","7º","7º","7º","8º","8º","8º",
"8º","8º","8º","8º","8º","2º","2º","2º","2º","3º",
"3º","3º","3º","3º","3º","3º","3º","3º","3º",
"4º","5º","5º","5º","5º","16º","16º","16º","16º",
"16º","16º","17º","17º","17º","17º","17º","17º",
"17º","18º","18º","19º","19º","19º","19º","7º","8º",
"8º","9º","9º","9º","9º","10º","11º","13º","14º",
"14º","14º","14º","14º","14º","14º","14º","14º",
"15º","15º","15º","15º","15º","15º","15º","15º",
"15º","16º","16º","17º","17º","18º","18º","19º",
"19º","19º","20º","16º","16º","17º","17º","17º",
"17º","18º","18º","18º","18º","18º","18º","18º",
"18º","19º","19º","20º",NA,NA,"3º","3º","3º","4º",
"4º","4º","4º","4º","5º","5º","5º","5º","5º",
"5º","5º","6º","6º","6º","6º","3º","3º","3º","4º",
"6º","6º","6º","6º","7º","9º","9º","9º","10º",
"10º","11º","11º","11º","12º","12º")
)
cores <- c("#C16B44","#1B6097","#E3B754","#96C66F","#CC3075","#852A6D",
"#C71E59","#218055","#E58997","#236886","#41A34F","#EEC1B3",
"#770F1A","#125577","#AC7DA9","#E08E9F","#D4D056","#E59646",
"#85C09D","#5F5881")
rotulo <- c("China","EUA","Índia","Alemanha","Japão","UK","Rússia","Itália",
"Coreia do Sul", "França","Brasil","Canadá","Espanha","Austrália",
"Irã","Polônia","Turquia","Holanda","Indonésia","Taiwan")
posicao <- c("1º","2º","3º","4º","5º","6º","7º","8º","9º","10º",
"11º","12º","13º","14º","15º","16º","17º","18º","19º","20º")
df <- df |>
dplyr::mutate(Posição = factor(Posição, levels = posicao),
País = factor(País, levels = rotulo)) |>
dplyr::filter(!is.na(Posição))
ggplot2::ggplot(data = df, ggplot2::aes(
x = Ano,
y = forcats::fct_rev(Posição),
group = País,
colour = País
)) +
ggplot2::geom_line(size = 1.5, show.legend = F) +
ggplot2::geom_text(
data = dplyr::filter(df, Ano == 2018),
ggplot2::aes(label = País, color = País),
hjust = 0,
nudge_x = 0.05,
fontface = "bold",
size = 5,
show.legend = F
) +
ggplot2::scale_x_continuous(breaks = seq(2000, 2018, 1), expand = c(0, 0)) +
ggplot2::scale_colour_manual(values = cores) +
ggplot2::labs(
x = "",
y = "",
title = " 1. POSIÇÃO (NÚMERO DE PUBLICAÇÕES - CONTAGEM FRACIONÁRIA) ",
caption = "Visualização: Denis de Oliveira Rodrigues\nGithub: denis-or"
) + expand_limits(x = 2020) +
ggplot2::theme_minimal() +
ggplot2::theme(
plot.title = element_text(
size = 18,
face = "bold",
color = "#22568B",
family = "Arial Narrow"
),
plot.title.position = "plot",
panel.grid.minor.x = ggplot2::element_blank(),
panel.grid.minor.y = ggplot2::element_blank(),
panel.grid.major.x = ggplot2::element_line(),
axis.text = ggplot2::element_text(size = 12, face = "bold")
)