Um gráfico de ações estiloso (2)

Neste exercício, você vai adicionar uma legenda ao gráfico que acabou de criar, contendo o nome das empresas e as datas e valores dos dividendos mais recentes.

Complete o código pré-escrito com as seguintes variáveis que contêm os valores e as datas dos dividendos de ambas as empresas:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Lembre-se de que a cor padrão de uma linha plotada é preta e que os valores de legend, col e lty em legend() devem ser vetores com o mesmo comprimento que o número de séries temporais exibidas no seu gráfico.

Se você não conseguir ver toda a legenda, tente colocar o gráfico em tela cheia depois de plotá-lo. Vamos deixar nosso gráfico ainda mais caprichado!

Este exercício faz parte do curso

Visualizando dados de séries temporais em R

Ver curso

Instruções do exercício

Crie o mesmo gráfico do exercício anterior (isso já foi feito para você)
Use as variáveis pré-carregadas acima para criar as strings micro e citi, que serão usadas na legenda
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Crie a legenda no canto inferior direito do gráfico usando as strings micro e citi que você acabou de criar para o texto, cores apropriadas para os rótulos e linhas regulares

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# 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 e executar o código