เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

พล็อต P/B เทียบกับ ROE

เมื่อคำนวณค่า ROE และค่าคูณ P/B สำหรับบริษัทกลุ่ม Consumer Discretionary ขนาดกลางเรียบร้อยแล้ว ขั้นตอนต่อไปคือการพล็อตกราฟค่าคูณ P/B (แกน y) เทียบกับ ROE (แกน x) จากนั้นเพิ่มเส้นแนวโน้มลงในกราฟเพื่อแสดงให้เห็นความสัมพันธ์ระหว่างตัวแปรทั้งสองอย่างชัดเจน ข้อมูลของ roe และ p_bv อยู่ในชุดข้อมูล cons_disc

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การประเมินมูลค่าหุ้นด้วย R

ดูคอร์ส

คำแนะนำการฝึกหัด

  • กำหนดช่วงแกน x ให้ครอบคลุมค่า ROE ทั้งหมดโดยใช้ min() และ max()
  • กำหนดช่วงแกน y ให้ครอบคลุมค่า P/B ทั้งหมดโดยใช้ min() และ max()
  • พล็อตกราฟ 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")
แก้ไขและรันโค้ด