MulaiMulai sekarang secara gratis

Plot P/B vs. ROE

Setelah Anda menghitung ROE dan kelipatan P/B untuk perusahaan Consumer Discretionary midcap, kita dapat memplot kelipatan P/B (sumbu y) vs. ROE (sumbu x). Lalu tambahkan garis tren ke plot untuk memperlihatkan secara visual adanya tren, jika ada, antara kedua variabel. Data untuk roe dan p_bv ada di himpunan data cons_disc.

Latihan ini adalah bagian dari kursus

Penilaian Ekuitas di R

Lihat Kursus

Petunjuk latihan

  • Atur rentang sumbu x agar seluruh nilai ROE tercakup menggunakan min() dan max().
  • Atur rentang sumbu y agar seluruh nilai P/B tercakup menggunakan min() dan max().
  • Plot data P/B vs. ROE dan beri label sumbu x "Return on Equity" dan sumbu y "Price-to-Book".
  • Tambahkan garis tren menggunakan model regresi dengan abline().

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# 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")
Edit dan Jalankan Kode