In msperlin/adfeR: Data, exercises and Functions for Book "Analise de Dados Financeiros e Economicos com o R"

library(BatchGetSymbols)

tickers <- c('PETR4.SA', 
             'VALE3.SA',
             'GGBR4.SA') 

df_stocks <- BatchGetSymbols(tickers = tickers, 
                             first.date = Sys.Date() - 500,
                             last.date = Sys.Date())[[2]]

p <- ggplot(df_stocks, aes(x = ref.date, 
                           y = price.adjusted,
                           color = ticker)) + 
  geom_line() + 
  labs(title = paste0('Preços para ', paste0(tickers, collapse = ', ')) ,
       subtitle = paste0('Dados de ', min(df_FB$ref.date), ' até ', 
                         max(df_FB$ref.date)),
       caption = "Solução para exercício 01, cap 10 - adfeR")

# add points
p <- p + geom_point()

print(p)

# none
my_answers <- rep(0, 5)

Question

Para o gráfico anterior, adicione pontos nas linhas.

Solution

Meta-information

extype: string exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE) exname: "function 01" exshuffle: TRUE

msperlin/adfeR documentation built on March 26, 2021, 3:05 a.m.