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")

O software
Ontem tive um daqueles momentos que meu amigo Daniel chamaria de “epifania”.
Mais uma vez gostaria de agradecer pelos feedbacks que tenho recebido. Hoje quero tratar sobre um importante aspecto que precisamos ter em mente: quais são os limites da atuação do conselheiro perante o conselho de administração da TELEBRAS?
Conversando com diversos amigos e colegas da DA, da DC e da DTO, e para ampliar o
Na semana passada, escrevi algumas ideias sobre