04/12/2014

Minha carteira em gráficos - feitos no R

    Descobri um pacote da linguagem de programação estatística R que trabalha com mercado de ações. Vou compartilhar com vocês e postar meus primeiros gráficos com eles. O script vai no final. Se alguém editar ele de maneira legal, manda pra mim! É bem simples.
    São dados das minhas ações desde que as comprei até o dia que rodei o script. Gostaria de discutir que dados apresentar, como apresentar e como tirar proveito dos mesmos.
























Agora o script. É só copiar e colar no R que funciona. (tem que instalar o pacote quantomod antes). Ok, ok, eu sei que um loop aqui reduziria o tamanho do script em 1/5.


library("quantmod")

#CEMIG4
cmig4 <- new.env()
getSymbols("CMIG4.SA", env=cmig4, src="yahoo", from=as.Date("2014-04-07"), to=as.Date("2014-11-28"),)
CMIG4 <-cmig4$CMIG4.SA

dev.new(width=7, height=6)
chartSeries(CMIG4, type="auto", theme=chartTheme("white"), TA=c(addBBands(n=20, sd=2, ma="SMA", draw="bands", on=-1), addMACD()))
dev.off()

cmig4.rend <- diff(log(CMIG4))
dev.new(width=7, height=3)
plot(cmig4.rend, main="CMIG4")


# WHRL3
whrl3 <- new.env()
getSymbols("WHRL3.SA", env=whrl3, src="yahoo", from=as.Date("2014-04-07"), to=as.Date("2014-11-28"),)
WHRL3 <- whrl3$WHRL3.SA

dev.new(width=7, height=6)
chartSeries(WHRL3, type="auto", theme=chartTheme("white"), TA=c(addBBands(n=20, sd=2, ma="SMA", draw="bands", on=-1), addMACD()))

whrl3.rend <- diff(log(WHRL3))
dev.new(width=7, height=3)
plot(whrl3.rend, main="WHRL3")

#BBAS3
bbas3 <- new.env()
getSymbols("BBAS3.SA", env=bbas3, src="yahoo", from=as.Date("2014-05-27"), to=as.Date("2014-11-28"),)
BBAS3 <- bbas3$BBAS3.SA

dev.new(width=7, height=6)
chartSeries(BBAS3, type="auto", theme=chartTheme("white"), TA=c(addBBands(n=20, sd=2, ma="SMA", draw="bands", on=-1), addMACD()))

bbas3.rend <- diff(log(BBAS3))
dev.new(width=7, height=3)
plot(bbas3.rend, main="BBAS3")

#GRND3
grnd3 <- new.env()
getSymbols("GRND3.SA", env=grnd3, src="yahoo", from=as.Date("2014-05-27"), to=as.Date("2014-11-28"),)
GRND3 <- grnd3$GRND3.SA

dev.new(width=7, height=6)
chartSeries(GRND3, type="auto", theme=chartTheme("white"), TA=c(addBBands(n=20, sd=2, ma="SMA", draw="bands", on=-1), addMACD()))

grnd3.rend <- diff(log(GRND3))
dev.new(width=7, height=3)
plot(grnd3.rend, main="GRND3")

#BEMA3
bema3 <- new.env()
getSymbols("BEMA3.SA", env=bema3, src="yahoo", from=as.Date("2014-05-27"), to=as.Date("2014-11-28"),)
BEMA3 <- bema3$BEMA3.SA

dev.new(width=7, height=6)
chartSeries(BEMA3, type="auto", theme=chartTheme("white"), TA=c(addBBands(n=20, sd=2, ma="SMA", draw="bands", on=-1), addMACD()))

bema3.rend <- diff(log(BEMA3))
dev.new(width=7, height=3)
plot(bema3.rend, main="BEMA3")

dev.off()

11 comentários:

  1. Sabe se dá para fazer com FIIs?

    O posso baixar?

    Grato,
    Marcos

    ResponderExcluir
    Respostas
    1. Dá sim, testei agora e foi tranquilo, vou fazer com os meus. Pode pegar o script e utilizar como quiser, se precisar de ajuda é só dizer.

      Excluir
    2. Para usar, você precisa do software R. Depois é só rodar o script dentro.

      Excluir
    3. Como consigo o software R? É grátis?

      Excluir
    4. Olá Anônimo, desculpe a demora. Sua mensagem foi pra spam e só hoje achei. O R é grátis sim, pode baixá-lo no site www.r-project.org.

      Excluir
  2. Quiz dizer, onde posso baixar?

    ResponderExcluir
    Respostas
    1. Olá Anônimo, desculpe a demora. Suas mensagens foram pra spam e só hoje achei. O R é grátis sim, pode baixá-lo no site www.r-project.org.

      Não se esqueça de instalar a biblioteca/pacote quantomod.

      Excluir
  3. Acho que as imagens estao bloqueadas. Para mim esta aparecendo um simbolo em todas as fotos. (Pode ser somente comigo isso)

    ResponderExcluir