hw5

library("tidyverse")

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.1     ✔ stringr   1.5.2
## ✔ ggplot2   4.0.0     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.1.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(readr)
stock_df <- read_csv("C:/Users/jayde/Downloads/rstudio stock/stock_df.csv")

## Rows: 5 Columns: 106
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr   (1): company
## dbl (105): 2019_week1, 2019_week2, 2019_week3, 2019_week4, 2019_week5, 2019_...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

View(stock_df)

stock_df_long <- stock_df %>%
  pivot_longer(
    cols = !company,
    names_to = c("year", "week"),
    names_sep = "_week",
    names_transform = list(year = as.integer, week = as.integer),
    values_to = "price"
  )
head(stock_df_long)

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

glimpse(stock_df_long)

## Rows: 525
## Columns: 4
## $ company <chr> "Amazon", "Amazon", "Amazon", "Amazon", "Amazon", "Amazon", "A…
## $ year    <int> 2019, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 20…
## $ week    <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,…
## $ price   <dbl> 1847.84, 1640.56, 1696.20, 1670.57, 1626.23, 1588.22, 1607.95,…