开始使用免费开始使用

绘制 P/B 与 ROE

既然您已经为中盘可选消费行业公司计算了 ROE 和 P/B 倍数，我们现在可以绘制 P/B（y 轴）与 ROE（x 轴）的关系图。然后为图形添加一条趋势线，以直观展示这两个变量之间是否存在趋势。roe 和 p_bv 的数据位于 cons_disc 数据集。

本练习是课程的一部分

用 R 进行股权估值

查看课程

练习说明

  • 使用 min() 和 max() 设置 x 轴范围，确保覆盖全部 ROE 数值。
  • 使用 min() 和 max() 设置 y 轴范围，确保覆盖全部 P/B 数值。
  • 绘制 P/B 与 ROE 的散点图，并将 x 轴标注为 "Return on Equity"，y 轴标注为 "Price-to-Book"。
  • 使用回归模型通过 abline() 添加趋势线。

交互式实操练习

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

# Set x-axis range
x.range <- c(___(cons_disc$roe), 
             ___(cons_disc$roe))

# Set y-axis range
y.range <- c(___(cons_disc$p_bv), 
             ___(cons_disc$p_bv))

# Plot data
plot(y = ___,
     x = ___,
     xlab = "___",
     ylab = "___",
     xlim = x.range,
     ylim = y.range,
     col = "blue",
     main = "Price-to-Book Value and Return on Equity
     Of Mid-Cap Consumer Discretionary Firms")

# Regress roe on p_bv
reg <- lm(p_bv ~ roe, data = cons_disc)

# Add trend line in red
___(___, col = "red")
编辑并运行代码