Красивый график акций (2)

В этом упражнении вы добавите легенду к только что созданному графику: она будет содержать названия компаний, а также даты и размеры последних дивидендов.

Дополните готовый код следующими переменными, содержащими значения и даты дивидендов для обеих компаний:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Напомним, что цвет линии по умолчанию — чёрный, а значения параметров legend, col и lty в функции legend() должны быть векторами той же длины, что и количество временных рядов на графике.

Если легенда не видна полностью, попробуйте развернуть график на весь экран. Сделаем наш график ещё красивее!

Это упражнение является частью курса

Визуализация временных рядов в R

Посмотреть курс

Инструкции к упражнению

Постройте тот же график, что и в предыдущем упражнении (этот шаг уже выполнен за вас)
Используйте заранее загруженные переменные, чтобы создать строки micro и citi для легенды:
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Разместите легенду в правом нижнем углу графика, используя созданные строки micro и citi в качестве текста, подходящие цвета для меток и сплошные линии

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

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

Редактировать и запускать код