開始使用免費開始

繪製 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")
編輯並執行程式碼