Ефектна діаграма акцій (2)

У цій вправі ви додасте до щойно створеної діаграми легенду з назвами компаній, а також датами й значеннями останніх дивідендів.

Заповніть заготовлений код такими змінними, що містять значення дивідендів і дати для обох компаній:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Пам'ятайте, що колір лінії за замовчуванням — чорний, а значення для legend, col і lty у legend() мають бути векторами тієї самої довжини, що й кількість часових рядів, відображених на вашій діаграмі.

Якщо ви не бачите всю легенду, після побудови спробуйте розгорнути діаграму на весь екран. Зробімо наш графік ще ефектнішим!

Ця вправа є частиною курсу

Візуалізація часових рядів у R

Переглянути курс

Інструкції до вправи

Створіть той самий графік, що й у попередній вправі (це вже зроблено за вас)
Використайте попередньо завантажені змінні вище, щоб створити рядки micro і citi для легенди
"Microsoft: дивіденди $0.39 від 15 лист. 2016"
"Citigroup: дивіденди $0.16 від 13 лист. 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(___, ___))

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