stock_returns_monthly <- c("AAPL","GOOG","NFLX","COST","AMZN","MSFT") %>% tq_get(get = "stock.prices", from = "2017-10-01", to = today()) %>% group_by(symbol) %>% tq_transmute(select = adjusted, mutate_fun = periodReturn, period = "daily", col_rename = "Ra") Background Me and my hypothetical friend want to compare our two different portfolios’. I am interested in the big companies in Washington State while my friend is all about the big tech companies in Silicon Valley. The following portfolio allocations will be put to the test to see which one will earn more money from October 1st, 2017, to today.