Gráfico de preços normalizados

O gráfico de preços normalizados (ou normalized price chart, em inglês), consiste na representação gráfica dos da série histórica dos preços de um valor mobiliário em relação ao preço do valor mobiliário no início do período em questão. Esse gráfico permite visualizar a aplicação de R$1 no início da série e sua evolução ao longo do tempo.

O código R, abaixo, cria o gráfico de preços normalizados entre 01.01.2020 e 31.12.2020, utilizando para o desenvolvimento do gráfico acima apresentado.

# Código R
# Gráfico de Preços Normalizados

library(quantmod)
library(TTR)

options(digits=5)

#Periodo de Analise
startDate <- as.Date("2020-01-01")   
endDate   <- as.Date("2020-12-31")

getSymbols("^BVSP", src = "yahoo", from = startDate, to = endDate)
BVSP <- na.omit(BVSP)

BVSP <- to.weekly(BVSP)[, -6]

ohlc<-as.quantmod.OHLC(BVSP, col.names=c("Open","High","Low","Close","Volume"))

chartSeries(ohlc, name="Índice Bovespa (^IBOV)")

BVSPIndex<-cbind(index(BVSP), data.frame(BVSP$BVSP.Close))

BVSPIndex$BVSP.idx <- BVSPIndex$BVSP.Close / BVSPIndex$BVSP.Close[1]

names(BVSPIndex) <- c("date", "BVSP.Close", "BVSP.idx")
      
plot(x=BVSPIndex$date,
     y=BVSPIndex$BVSP.idx,
     type="l",
     xlab="Data",
     ylab="Valor do Investimento ($)",
     col="black",
     lty=1,
     lwd=2,
     main="Valor do Investimento de R$1 em
 Índice Bovespa (BVSP)
 entre 01/01/2020 a 31/12/2020")

abline(h=1,lty=2,col="gray")