-
Notifications
You must be signed in to change notification settings - Fork 1
/
premier-tour-bretagne.R
114 lines (99 loc) · 3.98 KB
/
premier-tour-bretagne.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
library(tidyverse)
source("/Users/colinfay/Downloads/data-bzh-tools-master/main.R")
dep_cand <- read_csv2("prs-2017-candidat-departement.csv")
dep_type <- read_csv2("prs-2017-type-departement.csv")
reg_cand <- read_csv2("prs-2017-candidat-region.csv")
reg_type <- read_csv2("prs-2017-type-region.csv")
# Région
reg_type <- reg_type %>%
mutate(ratio = Nombre / 2453682 * 100) %>%
mutate(Type = factor(Type, levels = c("Inscrits", "Abstentions",
"Votants","Blancs","Nuls",
"Exprimés"))) %>%
mutate(pourc = paste0(round(ratio, 2), " %"))
reg_type %>%
ggplot(aes(Type, ratio)) +
geom_bar(stat = "identity", fill = databzh$colour1) +
geom_label(aes(label = pourc),size = 5) +
#coord_flip(expand = F) +
labs(x = "",
y = "",
title = "Anatomie du premier tour des présidentielles 2017 en Bretagne",
subtitle = "Données via elections.interieur.gouv",
caption = "http://data-bzh.fr") +
databzhTheme()
reg_cand %>%
ggplot(aes(reorder(Candidats, Voix), Voix)) +
geom_bar(stat = "identity", fill = databzh$colour1) +
geom_label(aes(label = Voix), size = 5) +
coord_flip() +
labs(x = "",
y = "",
title = "Premier tour des présidentielles 2017 en Bretagne",
subtitle = "Données via elections.interieur.gouv",
caption = "http://data-bzh.fr") +
databzhTheme()
# Par département
dep_type$ratio <- NA
dep_type$pourc <- NA
dep_type[1:6,] <- dep_type[1:6,] %>%
mutate(ratio = Nombre / 455958 * 100) %>%
mutate(pourc = paste0(round(ratio, 2), " %"))
dep_type[7:12,] <- dep_type[7:12,] %>%
mutate(ratio = Nombre / 690570 * 100) %>%
mutate(pourc = paste0(round(ratio, 2), " %"))
dep_type[13:18,] <- dep_type[13:18,] %>%
mutate(ratio = Nombre / 730142 * 100) %>%
mutate(pourc = paste0(round(ratio, 2), " %"))
dep_type[19:24,] <- dep_type[19:24,] %>%
mutate(ratio = Nombre / 577012 * 100) %>%
mutate(pourc = paste0(round(ratio, 2), " %"))
dep_type %>%
mutate(Type = factor(Type, levels = c("Inscrits", "Abstentions",
"Votants","Blancs","Nuls", "Exprimés"))) %>%
ggplot(aes(Type, ratio, fill = Département)) +
geom_bar(stat = "identity", position = "dodge") +
scale_fill_manual(values = databzh$colours[2:6]) +
labs(x = "",
y = "",
title = "Anatomie du premier tour des présidentielles 2017 en Bretagne",
subtitle = "Données via elections.interieur.gouv",
caption = "http://data-bzh.fr") +
databzhTheme()
dep_cand %>%
ggplot(aes(reorder(Candidats, `% Exprimés`), `% Exprimés`, fill = Département)) +
geom_bar(stat = "identity", position = "dodge") +
scale_fill_manual(values = databzh$colours[2:6]) +
coord_flip() +
labs(x = "",
y = "",
title = "Premier tour des présidentielles 2017 en Bretagne",
subtitle = "Données via elections.interieur.gouv",
caption = "http://data-bzh.fr") +
databzhTheme()
dep_type %>%
filter(Département == "Côtes-d'Armor (22)") %>%
mutate(Type = factor(Type, levels = c("Inscrits", "Abstentions",
"Votants","Blancs","Nuls", "Exprimés"))) %>%
ggplot(aes(Type, ratio)) +
geom_bar(stat = "identity", fill = databzh$colours[2]) +
geom_label(aes(label = pourc),size = 5) +
labs(x = "",
y = "",
title = "Anatomie du premier tour des présidentielles 2017 en Bretagne",
subtitle = "Données via elections.interieur.gouv",
caption = "http://data-bzh.fr") +
databzhTheme()
dep_cand %>%
filter(Département == "Côtes-d'Armor (22)") %>%
ggplot(aes(reorder(Candidats, Voix), Voix)) +
geom_bar(stat = "identity", fill = databzh$colours[2]) +
scale_fill_manual(values = databzh$colours[2]) +
geom_label(aes(label = Voix), size = 5) +
coord_flip() +
labs(x = "",
y = "",
title = "Premier tour des présidentielles 2017 en Bretagne",
subtitle = "Données via elections.interieur.gouv",
caption = "http://data-bzh.fr") +
databzhTheme()