Un graphique boursier plus soigné (2)

Dans cet exercice, vous allez ajouter une légende au graphique que vous venez de créer, contenant le nom des entreprises ainsi que les dates et les valeurs des plus récents dividendes.

Complétez le code préécrit avec les variables suivantes, qui contiennent les valeurs et les dates des dividendes pour les deux entreprises :

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Rappelez-vous que la couleur par défaut d'une ligne tracée est le noir et que les valeurs pour legend, col et lty dans legend() doivent être des vecteurs de même longueur que le nombre de séries chronologiques tracées dans votre graphique.

Si vous ne voyez pas toute la légende, essayez d'agrandir le graphique en plein écran après l'avoir tracé. Rendons notre graphique encore plus soigné !

Cette activité fait partie du cours

Visualiser des séries temporelles en R

Voir le cours

Instructions de l’exercice

Créez le même tracé que dans l'exercice précédent (cela a été fait pour vous)
Utilisez les variables préchargées ci-dessus pour créer les chaînes micro et citi à utiliser dans la légende
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Créez la légende dans le coin inférieur droit du graphique en utilisant les chaînes micro et citi que vous venez de créer pour le texte, des couleurs appropriées pour les étiquettes et des lignes normales

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# Same plot as the previous exercise
plot(data$microsoft, main = "Dividend date and amount")
lines(data$citigroup, col = "orange", lwd = 2)
axis(side = 4, at = pretty(data$citigroup), col = "orange")

# Create the two legend strings
micro <- paste0("Microsoft div. of ", ___," on ", ___)
citi <- paste0("Citigroup div. of ", ___," on ", ___)

# Create the legend in the bottom right corner
legend(x = ___, legend = c(___, ___), col = c(___, ___), lty = c(___, ___))

Modifier et exécuter le code