精美股票图表（2）

在本练习中，您将为刚刚创建的图表添加一个图例，包含公司名称以及最近一次分红的日期和数值。

请将以下变量填入预写代码中，这些变量包含两家公司的分红数值和日期：

citi_div_value
citi_div_date
micro_div_value
micro_div_date

请回忆：绘制的折线默认颜色是黑色；并且在 legend() 中，legend、col 和 lty 的取值都应为与图中时间序列数量相同长度的向量。

如果图例显示不全，请在绘图后将图表切换为全屏。让我们把图表做得更精美一些吧！

本练习是课程的一部分

在 R 中可视化时间序列数据

查看课程

练习说明

创建与上一个练习相同的图（此步骤已为您完成）。
使用上面预加载的变量创建用于图例的字符串 micro 和 citi：
"Microsoft 于 2016 年 11 月 15 日派息 $0.39"
"Citigroup 于 2016 年 11 月 13 日派息 $0.16"
在图表右下角创建图例，使用刚创建的 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(___, ___))

编辑并运行代码