Petrobras Corruption Scandal

Learn more about Petrobras scandal and Lava Jato operation here

library(tidyverse)
library(tidyquant)
library(dygraphs)


stocks <- c("PBR")
invest <- stocks %>%
  tq_get(get = "stock.prices"
         ,from = "2003-01-01"
         ,to = today()) %>%
  select(date, close)




invest.a <- xts(invest$close, order.by = invest$date)

Reflection of Lava Jato Operation (Car Wash) and important events in Brazil on PBR stocks

Red period: \(29\) arrests related to scandal

invest.a %>%
  dygraph() %>% 
  dySeries(label = "Close", fillGraph = T, axis = "y", color = "#27AE60") %>% 
  dyOptions(drawGrid = F) %>%   # removing grids and avoid scientific notation
  dyAxis("y", label = "Stock's closing share (U$)", axisLabelColor = "#229954") %>%
  dyEvent("2003-10-01", "D. Rousseff  |  PBR chairman", labelLoc = "top") %>%
  dyEvent("2007-11-01", "PBR | pre-salt discovery", labelLoc = "top") %>%
  dyEvent("2011-01-01", "D. Rousseff  |  elected Brazil's president", labelLoc = "top") %>%
  dyEvent("2012-01-01", "Maria G. Foster  |  PBR chief executive", labelLoc = "top") %>%
  dyEvent("2012-08-01", "PBR  |  first quaterly loss in 13 years", labelLoc = "top") %>%
  dyEvent("2013-09-01", "PBR | gross debts more than $135bn", labelLoc = "top") %>%
  dyEvent("2014-01-01", "PBR director Paulo Roberto Costa  |  arrested (corruption)", labelLoc = "top") %>%
  dyEvent("2014-05-01", "Car Wash  |  operation starts", labelLoc = "top") %>%
  dyEvent("2014-09-01", "Paulo R. Costa  |  name other involveds in corruption", labelLoc = "top") %>%
  dyEvent("2015-02-01", "Aldir Bendine | PBR CEO after M. Foster and others resign", labelLoc = "top") %>%
  dyEvent("2015-05-01", "Nestor Cervero (former PBR director | arrested for money laundering", labelLoc = "top") %>%
  dyEvent("2016-08-01", "D. Rousseff  |  impeached", labelLoc = "top") %>%
  dyEvent("2017-07-01", "Lula (former Brazil's president) | imprisioned for corruption", labelLoc = "top") %>%
  dyShading(from = "2014-02-15", to = "2015-08-15", color = "#FADBD8") %>% 
  dyRangeSelector()