Un gráfico bursátil elegante (2)

En este ejercicio, vas a añadir una leyenda al gráfico que acabas de crear con el nombre de las empresas y las fechas y valores de los últimos dividendos.

Completa el código preescrito con las siguientes variables que contienen los valores y fechas de dividendos de ambas empresas:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Recuerda que el color predeterminado de una línea trazada es negro y que los valores de legend, col y lty en legend() deben ser vectores de la misma longitud que el número de series temporales representadas en tu gráfico.

Si no ves toda la leyenda, intenta poner el gráfico a pantalla completa después de dibujarlo. ¡Vamos a darle un toque aún más elegante a nuestro gráfico!

Este ejercicio forma parte del curso

Visualización de series temporales en R

Ver curso

Instrucciones del ejercicio

Crea el mismo gráfico que en el ejercicio anterior (ya está hecho por ti)
Usa las variables precargadas de arriba para crear las cadenas micro y citi que se usarán en la leyenda
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Crea la leyenda en la esquina inferior derecha del gráfico usando las cadenas micro y citi que acabas de crear como texto, colores adecuados para las etiquetas y líneas normales

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# 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(___, ___))

Editar y ejecutar código