Final Project Proposal

library(tidyverse)
library(readxl)
library(forecast)

Reading in the Data

setwd("C:/Users/Conor/Desktop/R")
MusicSales <- read_excel("data/MusicData.xlsx", na = "")
MusicSales <- MusicSales %>% rename("Format" = "?Format",
                      "Value_Actual" = `Value (Actual)`) %>% 
  select(Format, Metric, Year, Value_Actual)
glimpse(MusicSales)

## Rows: 3,008
## Columns: 4
## $ Format       <chr> "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD…
## $ Metric       <chr> "Units", "Units", "Units", "Units", "Units", "Units", "Un…
## $ Year         <dbl> 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 198…
## $ Value_Actual <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0.8, 5.8, 22.6, 5…

Comparing Vinyl Sales

VinylBase <- MusicSales %>% 
  filter(Format == "Vinyl Single", Metric == "Value") %>% 
  mutate(Value_Actual = as.numeric(Value_Actual)) %>% 
  select(Year, Value_Actual)
VinylAdjusted <- MusicSales %>% 
  filter(Format == "Vinyl Single", Metric == "Value (Adjusted)") %>% 
  mutate(Value_Actual = as.numeric(Value_Actual)) %>% 
  select(Year, Value_Actual)
glimpse(VinylBase)

## Rows: 47
## Columns: 2
## $ Year         <dbl> 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 198…
## $ Value_Actual <dbl> 190.0, 194.0, 211.5, 245.1, 245.1, 260.3, 353.6, 250.0, 2…

glimpse(VinylAdjusted)

## Rows: 47
## Columns: 2
## $ Year         <dbl> 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 198…
## $ Value_Actual <dbl> 1094.03000, 1006.03000, 1005.05000, 1101.26000, 1034.0200…

Basic Plots

Base_Ts <- ts(VinylBase$Value_Actual, start = 1973, end = 2019, frequency = 1)
Adjusted_Ts <- ts(VinylAdjusted$Value_Actual, start = 1973, end = 2019, frequency = 1)
plot(Base_Ts)

plot(Adjusted_Ts)