ComeçarComece de graça

Plotar P/B vs. ROE

Agora que você calculou os múltiplos ROE e P/B para as empresas de consumo discricionário de médio porte, podemos plotar o múltiplo P/B (eixo y) vs. ROE (eixo x). Em seguida, adicionamos uma linha de tendência ao gráfico para mostrar visualmente a relação, se houver, entre as duas variáveis. Os dados de roe e p_bv estão no conjunto de dados cons_disc.

Este exercício faz parte do curso

Valuation de Ações em R

Ver curso

Instruções do exercício

  • Defina o intervalo do eixo x para cobrir toda a faixa de valores de ROE usando min() e max().
  • Defina o intervalo do eixo y para cobrir toda a faixa de valores de P/B usando min() e max().
  • Plote os dados de P/B vs. ROE e rotule o eixo x como "Return on Equity" e o eixo y como "Price-to-Book".
  • Adicione uma linha de tendência usando o modelo de regressão com abline().

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# 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")
Editar e executar o código