install.packages(“scales”)

library(tidyverse)
library(scales)
library(readxl)
library(writexl)
stock_df <- read_csv("/Users/Frezza/Downloads/stock_df.csv")
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")