绘制风险—回报散点图

在这个示例中，您决定扩展投资机会，构建一个由美国股票 ETF（SPY）、美国债券 ETF（AGG）、房地产投资信托（VNQ）以及跟踪 GSCI 大宗商品指数的 ETF（GSG）组成的投资组合。工作环境中的图形展示了这些投资的表现。

您还可以通过绘制平均收益与投资组合波动率的散点图来可视化这些投资的"相对"吸引力。为此，您需要为每个资产计算平均值和波动率。这对应于收益序列 returns 的每一列。

使用 apply() 函数可以更轻松地完成这些计算：第一个参数是收益数据，第二个参数设为 2 表示按列计算，第三个参数是需要应用到每一列的函数名。

本练习是课程的一部分

R 中的投资组合分析入门

查看课程

练习说明

使用 apply() 计算这 4 个投资的平均收益向量，命名为 means（注意：您也可以使用 colMeans()！）。
以同样方式计算标准差向量，命名为 sds。
使用基础绘图函数创建散点图，x 轴为波动率，y 轴为平均值。图中的标签和参考线已为您添加，请不要修改这部分代码！

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Create a vector of returns 
means <- apply(___, 2, "mean")
  
# Create a vector of standard deviation


# Create a scatter plot
plot(___, ___)
text(sds, means, labels = colnames(returns), cex = 0.7)
abline(h = 0, lty = 3)

编辑并运行代码