labs(title = "Présidentielle 2027 - Intentions de vote au 1er tour", x = "Candidats", y = "Intentions de vote (%)")+
geom_text(aes(label = Intentions_de_vote), vjust = -0.5, size = 3.5) +
theme_gray() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
labs(title = "Présidentielle 2027 - Intentions de vote au 1er tour", x = "Candidats", y = "Intentions de vote (%)")+
geom_text(aes(label = Intentions_de_vote), vjust = -0.5, size = 3.5) +
theme_gray() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
ggplot(data, aes(x = Candidat, y = Intentions_de_vote, fill = Candidat)) +
geom_bar(stat = "identity", width = 0.7) +
scale_fill_manual(values = couleurs_ajustées)
là ça vous donne juste le graph de base mais un peu moche je vous mets à la suite ce qu'il rajouter
ggplot(data, aes(x = Candidat, y = Intentions_de_vote, fill = Candidat)) +
geom_bar(stat = "identity", width = 0.7) +
scale_fill_manual(values = couleurs_ajustées)
là ça vous donne juste le graph de base mais un peu moche je vous mets à la suite ce qu'il rajouter
data$Candidat <- factor(data$Candidat, levels = data$Candidat)
Etape très importante de passer ce vecteur en facteur sinon l'ordre apparaitra par ordre alphabétique sur le graph
data$Candidat <- factor(data$Candidat, levels = data$Candidat)
Etape très importante de passer ce vecteur en facteur sinon l'ordre apparaitra par ordre alphabétique sur le graph
couleurs_ajustées <- c(
"#8B0000", "#A52A2A", "#FF0000",
"#008000", "#FFC0CB", "#FFFF00",
"#4169E1", "#0000FF",
"#9370DB", "#800080", "#000000"
)
ici je me suis perçu un nuancier de couleurs pour certain·e·s
couleurs_ajustées <- c(
"#8B0000", "#A52A2A", "#FF0000",
"#008000", "#FFC0CB", "#FFFF00",
"#4169E1", "#0000FF",
"#9370DB", "#800080", "#000000"
)
ici je me suis perçu un nuancier de couleurs pour certain·e·s
Intentions_de_vote = c(1.0, 3.0, 12.0, 5.5, 6.5, 19.0, 4.0, 5.5, 2.5, 35.0, 6.0)
)
# ici on n'hésite pas à changer les valeurs des candidats pour les prochains sondages
Intentions_de_vote = c(1.0, 3.0, 12.0, 5.5, 6.5, 19.0, 4.0, 5.5, 2.5, 35.0, 6.0)
)
# ici on n'hésite pas à changer les valeurs des candidats pour les prochains sondages
Candidat = c(
"Nathalie Arthaud", "Fabien Roussel", "Jean-Luc Mélenchon",
"Marine Tondelier", "François Hollande", "Édouard Philippe",
"Dominique De Villepin", "Xavier Bertrand",
"Nicolas Dupont-Aignan", "Jordan Bardella", "Éric Zemmour"
)
Candidat = c(
"Nathalie Arthaud", "Fabien Roussel", "Jean-Luc Mélenchon",
"Marine Tondelier", "François Hollande", "Édouard Philippe",
"Dominique De Villepin", "Xavier Bertrand",
"Nicolas Dupont-Aignan", "Jordan Bardella", "Éric Zemmour"
)
library(ggplot2)
library(ggplot2)
Bref il est personne
Congrès 2025 : tous les résultats | share.google/L464Thw5LVq6...
Bref il est personne
Congrès 2025 : tous les résultats | share.google/L464Thw5LVq6...