Destacando eventos em uma série temporal
Você também aprendeu que é possível usar a função abline() para adicionar linhas retas em um gráfico existente. Especificamente, você pode desenhar uma linha horizontal para identificar um nível específico definindo h para um valor de Y, e uma linha vertical para identificar uma data específica definindo v para um valor de X:
> abline(h = NULL, v = NULL, ...)
Lembre-se de que o índice de um objeto xts é composto por objetos de data, então os valores de X de um gráfico também conterão datas. Neste exercício, você vai usar indexação, além de as.Date("YYYY-MM-DD") e mean(), para comparar visualmente a média dos preços das ações da Citigroup com seu preço em 4 de janeiro de 2016, após ter sido afetado pela turbulência no mercado acionário chinês.
O mesmo conjunto de dados data de antes está disponível para você. Vamos tentar.
Observação: este código requer a versão 0.9-7 do xts para funcionar. Você pode usar remotes::install_version() para instalar versões específicas de pacotes.
Este exercício faz parte do curso
Visualizando dados de séries temporais em R
Instruções do exercício
- Faça o gráfico da terceira série em
datacom o título "Citigroup" - Crie
vert_line, o índice do ponto de dados em "citigroup" que cai em 4 de janeiro de 2016 - Adicione uma linha vertical vermelha nessa data usando
abline(),.index()evert_line - Crie
hori_line, o objeto igual ao valor médio do preço de "citigroup" - Adicione uma linha horizontal azul nesse valor médio usando
abline()ehori_line
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# Plot the "citigroup" time series
# Create vert_line to identify January 4th, 2016 in citigroup
vert_line <- which(index(___) == as.Date(___))
# Add a red vertical line using vert_line
abline(___ = .index(___)[___], col = "red")
# Create hori_line to identify average price of citigroup
hori_line <- ___(___)
# Add a blue horizontal line using hori_line
abline(___ = ___, col = "blue")