# NOT RUN {
library(tidyquant)
library(tidyverse)
# PIVOT TABLE ----
# Calculate returns by year/quarter
FANG %>%
pivot_table(
.rows = c(symbol, ~ QUARTER(date)),
.columns = ~ YEAR(date),
.values = ~ PCT_CHANGE_FIRSTLAST(adjusted)
)
# }
Run the code above in your browser using DataCamp Workspace