Vẽ biểu đồ P/B so với ROE
Giờ bạn đã tính ROE và bội số P/B cho các công ty midcap thuộc nhóm Consumer Discretionary, chúng ta sẽ vẽ biểu đồ bội số P/B (trục y) so với ROE (trục x). Tiếp theo, thêm một đường xu hướng vào biểu đồ để trực quan hóa xu hướng (nếu có) giữa hai biến. Dữ liệu cho roe và p_bv nằm trong bộ dữ liệu cons_disc.
Bài tập này là một phần của khóa học
Định giá cổ phiếu bằng R
Hướng dẫn bài tập
- Đặt khoảng trục x để bao phủ toàn bộ giá trị ROE bằng
min()vàmax(). - Đặt khoảng trục y để bao phủ toàn bộ giá trị P/B bằng
min()vàmax(). - Vẽ dữ liệu P/B so với ROE và gắn nhãn trục x là "Return on Equity" và trục y là "Price-to-Book".
- Thêm đường xu hướng bằng mô hình hồi quy với
abline().
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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")