Hi, I have downloaded from Yahoo finance some prices of stocks. Now I want to output them in a table. But with me the data are always under each other. Could somebody help me with my code that each stock is separated in each column.
Here is my code:
library(tidyquant)
library(timetk)
library(ggplot2)
library(tibble)
library(select)
library(dplyr)
library(corrplot)
library(tidyr)
library(DT)
# Setting our stock symbols to a variable
tickers <- c("FB", "AMZN", "AAPL", "NFLX", "GOOG")
# Dowload the stock price data
multpl_stocks <- tq_get(tickers,
from = "2013-01-01",
to = "2018-03-01",
get = "stock.prices")
multpl_stocks %>%
ggplot(aes(x = date, y = adjusted, color = symbol)) +
geom_line() +
ggtitle("Price chart for multiple stocks")
multpl_stocks %>%
ggplot(aes(x = date, y = adjusted)) +
geom_line() +
facet_wrap(~symbol, scales = "free_y") + # facet_wrap is used to make diff frames
theme_classic() + # using a new theme
labs(x = "Date", y = "Price") +
ggtitle("Price chart FAANG stocks")
#Calculating the yearly returns for multiple stocks
multpl_stock_yearly_returns <- multpl_stocks %>%
group_by(symbol) %>% # We are grouping the stocks by symbol
tq_transmute(select = adjusted,
mutate_fun = periodReturn,
period = 'yearly',
col_rename = 'returns')
datatable(multpl_stock_yearly_returns)