Aan de slagGa gratis aan de slag

P/B plotten vs. ROE

Nu je de ROE- en P/B-multiples voor de midcap Consumer Discretionary-bedrijven hebt berekend, kunnen we de P/B-multiple (y-as) uitzetten tegen ROE (x-as). Vervolgens voegen we een trendlijn toe om visueel te laten zien welke trend er eventueel is tussen de twee variabelen. De gegevens voor roe en p_bv staan in de gegevensset cons_disc.

Deze oefening maakt deel uit van de cursus

Aandelenwaardering in R

Cursus bekijken

Oefeninstructies

  • Stel het bereik van de x-as in zodat de volledige reeks ROE-waarden is gedekt met min() en max().
  • Stel het bereik van de y-as in zodat de volledige reeks P/B-waarden is gedekt met min() en max().
  • Plot de P/B tegen ROE en label de x-as met "Return on Equity" en de y-as met "Price-to-Book".
  • Voeg een trendlijn toe met het regressiemodel met abline().

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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")
Code bewerken en uitvoeren