Začněte nyníZačněte zdarma

Graf P/B vs. ROE

Teď, když jsi vypočítal/a ROE a násobky P/B pro středně velké firmy ze sektoru Consumer Discretionary, můžeme vykreslit násobek P/B (osa y) vs. ROE (osa x). Doplníme také trendovou linii, která vizuálně znázorní případný vztah mezi oběma proměnnými. Data pro roe a p_bv jsou v datové sadě cons_disc.

Toto cvičení je součástí kurzu

Oceňování akcií v R

Zobrazit kurz

Pokyny k cvičení

  • Nastav rozsah osy x tak, aby pokrýval celý rozsah hodnot ROE – použij min() a max().
  • Nastav rozsah osy y tak, aby pokrýval celý rozsah hodnot P/B – použij min() a max().
  • Vykresli data P/B vs. ROE a popisky os nastav na "Return on Equity" (osa x) a "Price-to-Book" (osa y).
  • Přidej trendovou linii pomocí regresního modelu s využitím abline().

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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")
Upravit a spustit kód