analyse-R/extensions

[giscus[bot]]

analyse-R/extensions

https://larmarange.github.io/analyse-R/extensions.html

[DivingJ]

Un grand merci pour cet excellent cours !
Juste une remarque, le lien Awesome R (https://awesome-r.com/) ne semble plus être valide.
Voir : https://github.com/qinwf/awesome-R

[larmarange]

Merci pour votre retour. Les liens ont été mis à jour.
N'hésitez pas si vous repérez d'autres erreurs.
Bien cordialement

[Yabous]

Bonjour monsieur,

Je suis nouveau dans l'utilisation de R et de Rstudio dans le cadre de mon travail. Je suis économiste senior dans une banque de développement en Afrique centrale.

Je viens de découvrir vos vidéos Webin-R sur Youtube. Elles sont pédagogiques et me permettent d'avancer dans mon apprentissage du langage R.

Dans le cadre de mon travail, je souhaite faire un graphique représentant l'évolution du taux d'inflation du Gabon de 1990 à 2020. Je travaille donc avec une série chronologique de 1960 à 2020 sur une base annuelle. Je voudrais décomposer cette série chronologique (uniquement les années) en une période de 5 ans sur l'axe des x, c'est -à-dire faire appaître les période tous les 5 ans. Par exemple : 1960, 1965, 1970, 1975, 1980, 1985... jusqu'en 2020.
Comment traiter ce problème dans RStudio ?

Pouvez-vous m'aider, s'il vous plaît?

Jean Aimé BOUSSAMBA

code
#To see the databases available from the International Monetary Fund’s data API
imf_databases <- imf_ids()

#Extraire le taux d'inflation du Gabon
Inflation_Gabon <- imf_data(database_id = 'IFS', indicator = 'PCPI_PC_PP_PT',
country = "GA", freq = 'A',
start = 1990, end = current_year())
Inflation_Gabon

#Suppression de la colonne iso2c

Inflation_Gabon$iso2c <- NULL

#Changer les noms des variables de toute la colonne, ici 2 v&riables seulement
colnames(Inflation_Gabon) <- c("Années", "Taux_inflation")

#Visualisation des 6 premières observations
head(Inflation_Gabon)

#Graphique en utilisant ggplot2
Graphique <- ggplot(Inflation_Gabon, aes(x = Années, y = Taux_inflation, group = 1)) +
geom_line(color = "blue", lwd = 1) +
geom_hline(yintercept = 3, color = "red", lwd = 1) +
labs(x = "Années",
y = "Taux d'inflation",
title = "Graphique 1: Evolution du taux d'inflation 1990-2020",
caption = "Source: Base de données du FMI, mise à jour octobre 2021") +
theme_minimal() +
theme(plot.title = element_text(size = 11, face = "bold"),
plot.caption = element_text(size = 10),
axis.title.y = element_text(face = "bold"),
axis.title.x = element_text(face = "bold"))

Graphique

[larmarange]

Vous souhaitez contrôler les étiquettes de l'axe des x ? Vous pouvez indiquer manuellement où placer des étiquettes sur cet axe.

scale_x_continuous(breaks = c(1960, 1965, 1970, 1975, 1980, 1985, 1990, 1995, 2000, 2005, 2010)) ?

[Yabous]

En essayant, voici le résultat:

Graphique + scale_x_continuous(breaks = c(1960, 1965, 1970, 1975, 1980, 1985, 1990, 1995, 2000, 2005, 2010))

Error: Discrete value supplied to continuous scale

[larmarange]

Votre variable Années est renseignée sous forme textuelle (character) et non numérique. Il faut juste la convertir.

Inflation_Gabon <- Inflation_Gabon %>%
  mutate(Années = as.integer(Années))

[Yabous]

Bonjour monsieur Larmarange,

Merci beaucoup pour la solution. Elle me satisfait, même si on obtient un saut d'années de 10 ans au lieu de 5 ans: 1990, 2000, 2010, 2020.
Merci infiniment.