시작하기무료로 시작하기

P/B 대 ROE 플로팅

이제 중형주 Consumer Discretionary 기업들의 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")
코드 편집 및 실행