Homework 4

library(readr)
library(tidyr)

stock_df <- read_csv("stock_df.csv",show_col_types = FALSE)

stock_df_long <- pivot_longer(stock_df, 
                              cols = -company, 
                              names_to = "week", 
                              values_to = "price",
                              names_prefix = "2019_week", )

stock_df_long$year <- 2019
head(stock_df_long)

## # A tibble: 6 × 4
##   company week  price  year
##   <chr>   <chr> <dbl> <dbl>
## 1 Amazon  1     1848.  2019
## 2 Amazon  2     1641.  2019
## 3 Amazon  3     1696.  2019
## 4 Amazon  4     1671.  2019
## 5 Amazon  5     1626.  2019
## 6 Amazon  6     1588.  2019