始める無料で始める

P/B と ROE をプロットする

ミッドキャップの Consumer Discretionary 企業について ROE と P/B マルチプルを計算できたので、P/B（y 軸）と ROE（x 軸）をプロットしてみましょう。次に、2 つの変数の間に傾向があるかを視覚的に示すため、トレンドラインを追加します。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")
コードを編集して実行