Un joli graphique boursier (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 montants des derniers dividendes.

Complétez le code pré-écrit avec les variables suivantes, qui contiennent les montants et les dates de 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 courbe tracée est le noir, et que les arguments legend, col et lty de legend() doivent être des vecteurs de même longueur que le nombre de séries temporelles affichées sur votre graphique.

Si toute la légende n’apparaît pas, essayez d’afficher le graphique en plein écran après l’avoir tracé. Rendons notre graphique encore plus élégant !

Cet exercice fait partie du cours

Visualiser des séries temporelles en R

Afficher le cours

Instructions

Recréez le même graphique que dans l’exercice précédent (c’est déjà fait pour vous)
Utilisez les variables préchargées ci-dessus pour construire les chaînes micro et citi à utiliser dans la légende
"Microsoft : div de 0,39 $ le 15 nov. 2016"
"Citigroup : div de 0,16 $ le 13 nov. 2016"
Créez la légende dans l’angle 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 libellés, et des lignes normales

Exercice interactif pratique

Essayez cet exercice en complétant cet exemple de code.

# 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