Assignment 5
Shahid
11/8/2019
Special Note: This assigment is something I created that will be given to a college 300 level business course. This course is an introduction to business data analytics using R. This is the answer key below.
Your manager wants the last four weeks of sales data from the PA region. Additionally, your manager wants to see three aggregations. Aggregations Wanted: 1: The Entire amount of sales for the city of Harrisburg in date order. 2: The total sales for each product by every city 3: The entire sales for city in date order except for the city of Lancaster. The data however cannot fit into an excel spreadsheet because the rows are passed the maximum amount allowed in Excel. Additionally, each week of data is outputted in a separate CSV file. You decide using R would be most appropriate in combining the datasets. The outline of your tasks is below, make sure to complete each one.
1: Develop a method to read the csv files from a folder into a list in R.
2: Take the list of files within R and combine them together into one data frame. Note, there are many different methods to do this.
3: Ensure the files have combined successfully.
4: Clean the Data
5: Perform aggregations
Students, remember that there is always more than one way to skin a cat.
library(gtools)
library(lubridate)
library(tidyverse)
library(dplyr)
library(sqldf)
library(plyr)
setwd("C:/Users/shahi/Desktop/Sanjay/Assignment5")
FileList <- list.files(path = choose.dir("C:/Users/shahi/Desktop/Sanjay/Assignment5"), pattern = "*.csv")
FileList## [1] "Sales Data 01_13_2019.csv" "Sales Data 01_20_2019.csv"
## [3] "Sales Data 01_27_2019.csv" "Sales Data 02_03_2019.csv"FL <- lapply(FileList, read.csv)
FL## [[1]]
## Date City Product Sales
## 1 2019-01-13 Harrisburgh Cat Food 12078.20
## 2 2019-01-13 Harrisburgh Dog Food 10982.94
## 3 2019-01-13 Harrisburgh Bird Food 10509.16
## 4 2019-01-13 Reading Cat Food 12454.36
## 5 2019-01-13 Reading Dog Food 14741.30
## 6 2019-01-13 Reading Bird Food 10142.83
## 7 2019-01-13 Pittsburgh Cat Food 11329.41
## 8 2019-01-13 Pittsburgh Dog Food 10815.10
## 9 2019-01-13 Pittsburgh Bird Food 11899.77
## 10 2019-01-13 Philly Cat Food 14234.52
## 11 2019-01-13 Philly Dog Food 14234.32
## 12 2019-01-13 Philly Bird Food 13115.94
## 13 2019-01-13 Lancaster Cat Food 14047.22
## 14 2019-01-13 Lancaster Dog Food 14932.36
## 15 2019-01-13 Lancaster Bird Food 13275.70
## 16 2019-01-13 York Cat Food 11888.89
## 17 2019-01-13 York Dog Food 14301.84
## 18 2019-01-13 York Bird Food 12283.38
## 19 2019-01-13 Allentown Cat Food 13418.43
## 20 2019-01-13 Allentown Dog Food 14708.79
## 21 2019-01-13 Allentown Bird Food 12655.08
## 22 2019-01-13 Easton Cat Food 14274.58
## 23 2019-01-13 Easton Dog Food 14016.61
## 24 2019-01-13 Easton Bird Food 12609.32
## 25 2019-01-13 Parker Cat Food 14574.64
## 26 2019-01-13 Parker Dog Food 14153.63
## 27 2019-01-13 Parker Bird Food 12084.89
##
## [[2]]
## Date City Product Sales
## 1 2019-01-20 Harrisburgh Cat Food 5293.388
## 2 2019-01-20 Harrisburgh Dog Food 6267.138
## 3 2019-01-20 Harrisburgh Bird Food 5270.446
## 4 2019-01-20 Reading Cat Food 7715.411
## 5 2019-01-20 Reading Dog Food 8846.283
## 6 2019-01-20 Reading Bird Food 8911.221
## 7 2019-01-20 Pittsburgh Cat Food 8934.534
## 8 2019-01-20 Pittsburgh Dog Food 5671.713
## 9 2019-01-20 Pittsburgh Bird Food 5586.606
## 10 2019-01-20 Philly Cat Food 7561.510
## 11 2019-01-20 Philly Dog Food 8426.278
## 12 2019-01-20 Philly Bird Food 6273.724
## 13 2019-01-20 Lancaster Cat Food 5847.139
## 14 2019-01-20 Lancaster Dog Food 7172.759
## 15 2019-01-20 Lancaster Bird Food 8392.561
## 16 2019-01-20 York Cat Food 5849.601
## 17 2019-01-20 York Dog Food 6376.229
## 18 2019-01-20 York Bird Food 8689.842
## 19 2019-01-20 Allentown Cat Food 5529.778
## 20 2019-01-20 Allentown Dog Food 6902.682
## 21 2019-01-20 Allentown Bird Food 8415.370
## 22 2019-01-20 Easton Cat Food 6048.180
## 23 2019-01-20 Easton Dog Food 8286.896
## 24 2019-01-20 Easton Bird Food 6134.822
## 25 2019-01-20 Parker Cat Food 5773.483
## 26 2019-01-20 Parker Dog Food 5517.330
## 27 2019-01-20 Parker Bird Food 6904.338
##
## [[3]]
## Date City Product Sales
## 1 2019-01-27 Harrisburgh Cat Food 25242.93
## 2 2019-01-27 Harrisburgh Dog Food 30822.78
## 3 2019-01-27 Harrisburgh Bird Food 35827.3
## 4 2019-01-27 Reading Cat Food 27767.7
## 5 2019-01-27 Reading Dog Food 35632.63
## 6 2019-01-27 Reading Bird Food 39620.91
## 7 2019-01-27 Pittsburgh Cat Food 34453.87
## 8 2019-01-27 Pittsburgh Dog Food 38398.79
## 9 2019-01-27 Pittsburgh Bird Food 26753.81
## 10 2019-01-27 Philly Cat Food 29791.43
## 11 2019-01-27 Philly Dog Food 27374.19
## 12 2019-01-27 Philly Bird Food 33162.6
## 13 2019-01-27 Lancaster Cat Food 34429.48
## 14 2019-01-27 Lancaster Dog Food 27693.61
## 15 2019-01-27 Lancaster Bird Food 39963.58
## 16 2019-01-27 York Cat Food 31148.38
## 17 2019-01-27 York Dog Food 29835.02
## 18 2019-01-27 York Bird Food 32106.77
## 19 2019-01-27 Allentown Cat Food 31109.71
## 20 2019-01-27 Allentown Dog Food 27431.93
## 21 2019-01-27 Allentown Bird Food 28772.03
## 22 2019-01-27 Easton Cat Food 33715.51
## 23 2019-01-27 Easton Dog Food 28602.52
## 24 2019-01-27 Easton Bird Food 35461.46
## 25 2019-01-27 Parker Cat Food 26953.91
## 26 2019-01-27 Parker Dog Food 29946.34
## 27 2019-01-27 Parker Bird Food 31170.34
## 28 2019-01-27 Parker Bird Food d
##
## [[4]]
## X2019.02.03 Harrisburgh Cat.Food X15200.51612
## 1 2019-02-03 Harrisburgh Dog Food 16587.33
## 2 2019-02-03 Harrisburgh Bird Food 15655.37
## 3 2019-02-03 Reading Cat Food 16996.66
## 4 2019-02-03 Reading Dog Food 16914.92
## 5 2019-02-03 Reading Bird Food 16041.27
## 6 2019-02-03 Pittsburgh Cat Food 15918.91
## 7 2019-02-03 Pittsburgh Dog Food 16745.43
## 8 2019-02-03 Pittsburgh Bird Food 15337.63
## 9 2019-02-03 Philly Cat Food 16721.23
## 10 2019-02-03 Philly Dog Food 16635.90
## 11 2019-02-03 Philly Bird Food 15359.10
## 12 2019-02-03 Lancaster Cat Food 16119.85
## 13 2019-02-03 Lancaster Dog Food 16146.91
## 14 2019-02-03 Lancaster Bird Food 16385.94
## 15 2019-02-03 York Cat Food 15516.18
## 16 2019-02-03 York Dog Food 16973.36
## 17 2019-02-03 York Bird Food 16383.93
## 18 2019-02-03 Allentown Cat Food 16322.17
## 19 2019-02-03 Allentown Dog Food 15344.00
## 20 2019-02-03 Allentown Bird Food 15487.14
## 21 2019-02-03 Easton Cat Food 15003.73
## 22 2019-02-03 Easton Dog Food 15786.70
## 23 2019-02-03 Easton Bird Food 15099.09
## 24 2019-02-03 Parker Cat Food 15151.05
## 25 2019-02-03 Parker Dog Food 15380.62
## 26 2019-02-03 Parker Bird Food 15128.74lapply(FileList, cbind, ID = c(" "))## [[1]]
## ID
## [1,] "Sales Data 01_13_2019.csv" " "
##
## [[2]]
## ID
## [1,] "Sales Data 01_20_2019.csv" " "
##
## [[3]]
## ID
## [1,] "Sales Data 01_27_2019.csv" " "
##
## [[4]]
## ID
## [1,] "Sales Data 02_03_2019.csv" " "newlist <- Map(cbind, FL, ID = (1:length(FL)))
Combined <- do.call(smartbind, newlist)## Warning in (function (..., list, fill = NA, sep = ":", verbose = FALSE) :
## Column class mismatch for 'Sales'. Converting column to class 'character'.
## Warning in (function (..., list, fill = NA, sep = ":", verbose = FALSE) :
## Column class mismatch for 'Sales'. Converting column to class 'character'.Combined## Date City Product Sales ID X2019.02.03
## 1:1 2019-01-13 Harrisburgh Cat Food 12078.19928 1 <NA>
## 1:2 2019-01-13 Harrisburgh Dog Food 10982.93611 1 <NA>
## 1:3 2019-01-13 Harrisburgh Bird Food 10509.15978 1 <NA>
## 1:4 2019-01-13 Reading Cat Food 12454.35556 1 <NA>
## 1:5 2019-01-13 Reading Dog Food 14741.30398 1 <NA>
## 1:6 2019-01-13 Reading Bird Food 10142.83211 1 <NA>
## 1:7 2019-01-13 Pittsburgh Cat Food 11329.40709 1 <NA>
## 1:8 2019-01-13 Pittsburgh Dog Food 10815.09801 1 <NA>
## 1:9 2019-01-13 Pittsburgh Bird Food 11899.76728 1 <NA>
## 1:10 2019-01-13 Philly Cat Food 14234.52041 1 <NA>
## 1:11 2019-01-13 Philly Dog Food 14234.3179 1 <NA>
## 1:12 2019-01-13 Philly Bird Food 13115.93818 1 <NA>
## 1:13 2019-01-13 Lancaster Cat Food 14047.21572 1 <NA>
## 1:14 2019-01-13 Lancaster Dog Food 14932.36216 1 <NA>
## 1:15 2019-01-13 Lancaster Bird Food 13275.70473 1 <NA>
## 1:16 2019-01-13 York Cat Food 11888.89082 1 <NA>
## 1:17 2019-01-13 York Dog Food 14301.83953 1 <NA>
## 1:18 2019-01-13 York Bird Food 12283.38436 1 <NA>
## 1:19 2019-01-13 Allentown Cat Food 13418.42975 1 <NA>
## 1:20 2019-01-13 Allentown Dog Food 14708.78913 1 <NA>
## 1:21 2019-01-13 Allentown Bird Food 12655.08497 1 <NA>
## 1:22 2019-01-13 Easton Cat Food 14274.57606 1 <NA>
## 1:23 2019-01-13 Easton Dog Food 14016.60535 1 <NA>
## 1:24 2019-01-13 Easton Bird Food 12609.31986 1 <NA>
## 1:25 2019-01-13 Parker Cat Food 14574.63529 1 <NA>
## 1:26 2019-01-13 Parker Dog Food 14153.63013 1 <NA>
## 1:27 2019-01-13 Parker Bird Food 12084.89108 1 <NA>
## 2:1 2019-01-20 Harrisburgh Cat Food 5293.387531 2 <NA>
## 2:2 2019-01-20 Harrisburgh Dog Food 6267.137902 2 <NA>
## 2:3 2019-01-20 Harrisburgh Bird Food 5270.445536 2 <NA>
## 2:4 2019-01-20 Reading Cat Food 7715.411215 2 <NA>
## 2:5 2019-01-20 Reading Dog Food 8846.283315 2 <NA>
## 2:6 2019-01-20 Reading Bird Food 8911.221285 2 <NA>
## 2:7 2019-01-20 Pittsburgh Cat Food 8934.534014 2 <NA>
## 2:8 2019-01-20 Pittsburgh Dog Food 5671.713052 2 <NA>
## 2:9 2019-01-20 Pittsburgh Bird Food 5586.606482 2 <NA>
## 2:10 2019-01-20 Philly Cat Food 7561.509731 2 <NA>
## 2:11 2019-01-20 Philly Dog Food 8426.277759 2 <NA>
## 2:12 2019-01-20 Philly Bird Food 6273.724212 2 <NA>
## 2:13 2019-01-20 Lancaster Cat Food 5847.139389 2 <NA>
## 2:14 2019-01-20 Lancaster Dog Food 7172.758931 2 <NA>
## 2:15 2019-01-20 Lancaster Bird Food 8392.560662 2 <NA>
## 2:16 2019-01-20 York Cat Food 5849.600802 2 <NA>
## 2:17 2019-01-20 York Dog Food 6376.228854 2 <NA>
## 2:18 2019-01-20 York Bird Food 8689.842223 2 <NA>
## 2:19 2019-01-20 Allentown Cat Food 5529.777948 2 <NA>
## 2:20 2019-01-20 Allentown Dog Food 6902.682333 2 <NA>
## 2:21 2019-01-20 Allentown Bird Food 8415.370312 2 <NA>
## 2:22 2019-01-20 Easton Cat Food 6048.18037 2 <NA>
## 2:23 2019-01-20 Easton Dog Food 8286.896058 2 <NA>
## 2:24 2019-01-20 Easton Bird Food 6134.822275 2 <NA>
## 2:25 2019-01-20 Parker Cat Food 5773.483112 2 <NA>
## 2:26 2019-01-20 Parker Dog Food 5517.329721 2 <NA>
## 2:27 2019-01-20 Parker Bird Food 6904.337699 2 <NA>
## 3:1 2019-01-27 Harrisburgh Cat Food 25242.93 3 <NA>
## 3:2 2019-01-27 Harrisburgh Dog Food 30822.78 3 <NA>
## 3:3 2019-01-27 Harrisburgh Bird Food 35827.3 3 <NA>
## 3:4 2019-01-27 Reading Cat Food 27767.7 3 <NA>
## 3:5 2019-01-27 Reading Dog Food 35632.63 3 <NA>
## 3:6 2019-01-27 Reading Bird Food 39620.91 3 <NA>
## 3:7 2019-01-27 Pittsburgh Cat Food 34453.87 3 <NA>
## 3:8 2019-01-27 Pittsburgh Dog Food 38398.79 3 <NA>
## 3:9 2019-01-27 Pittsburgh Bird Food 26753.81 3 <NA>
## 3:10 2019-01-27 Philly Cat Food 29791.43 3 <NA>
## 3:11 2019-01-27 Philly Dog Food 27374.19 3 <NA>
## 3:12 2019-01-27 Philly Bird Food 33162.6 3 <NA>
## 3:13 2019-01-27 Lancaster Cat Food 34429.48 3 <NA>
## 3:14 2019-01-27 Lancaster Dog Food 27693.61 3 <NA>
## 3:15 2019-01-27 Lancaster Bird Food 39963.58 3 <NA>
## 3:16 2019-01-27 York Cat Food 31148.38 3 <NA>
## 3:17 2019-01-27 York Dog Food 29835.02 3 <NA>
## 3:18 2019-01-27 York Bird Food 32106.77 3 <NA>
## 3:19 2019-01-27 Allentown Cat Food 31109.71 3 <NA>
## 3:20 2019-01-27 Allentown Dog Food 27431.93 3 <NA>
## 3:21 2019-01-27 Allentown Bird Food 28772.03 3 <NA>
## 3:22 2019-01-27 Easton Cat Food 33715.51 3 <NA>
## 3:23 2019-01-27 Easton Dog Food 28602.52 3 <NA>
## 3:24 2019-01-27 Easton Bird Food 35461.46 3 <NA>
## 3:25 2019-01-27 Parker Cat Food 26953.91 3 <NA>
## 3:26 2019-01-27 Parker Dog Food 29946.34 3 <NA>
## 3:27 2019-01-27 Parker Bird Food 31170.34 3 <NA>
## 3:28 2019-01-27 Parker Bird Food d 3 <NA>
## 4:1 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:2 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:3 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:4 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:5 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:6 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:7 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:8 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:9 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:10 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:11 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:12 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:13 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:14 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:15 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:16 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:17 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:18 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:19 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:20 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:21 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:22 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:23 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:24 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:25 <NA> <NA> <NA> <NA> 4 2019-02-03
## 4:26 <NA> <NA> <NA> <NA> 4 2019-02-03
## Harrisburgh Cat.Food X15200.51612
## 1:1 <NA> <NA> NA
## 1:2 <NA> <NA> NA
## 1:3 <NA> <NA> NA
## 1:4 <NA> <NA> NA
## 1:5 <NA> <NA> NA
## 1:6 <NA> <NA> NA
## 1:7 <NA> <NA> NA
## 1:8 <NA> <NA> NA
## 1:9 <NA> <NA> NA
## 1:10 <NA> <NA> NA
## 1:11 <NA> <NA> NA
## 1:12 <NA> <NA> NA
## 1:13 <NA> <NA> NA
## 1:14 <NA> <NA> NA
## 1:15 <NA> <NA> NA
## 1:16 <NA> <NA> NA
## 1:17 <NA> <NA> NA
## 1:18 <NA> <NA> NA
## 1:19 <NA> <NA> NA
## 1:20 <NA> <NA> NA
## 1:21 <NA> <NA> NA
## 1:22 <NA> <NA> NA
## 1:23 <NA> <NA> NA
## 1:24 <NA> <NA> NA
## 1:25 <NA> <NA> NA
## 1:26 <NA> <NA> NA
## 1:27 <NA> <NA> NA
## 2:1 <NA> <NA> NA
## 2:2 <NA> <NA> NA
## 2:3 <NA> <NA> NA
## 2:4 <NA> <NA> NA
## 2:5 <NA> <NA> NA
## 2:6 <NA> <NA> NA
## 2:7 <NA> <NA> NA
## 2:8 <NA> <NA> NA
## 2:9 <NA> <NA> NA
## 2:10 <NA> <NA> NA
## 2:11 <NA> <NA> NA
## 2:12 <NA> <NA> NA
## 2:13 <NA> <NA> NA
## 2:14 <NA> <NA> NA
## 2:15 <NA> <NA> NA
## 2:16 <NA> <NA> NA
## 2:17 <NA> <NA> NA
## 2:18 <NA> <NA> NA
## 2:19 <NA> <NA> NA
## 2:20 <NA> <NA> NA
## 2:21 <NA> <NA> NA
## 2:22 <NA> <NA> NA
## 2:23 <NA> <NA> NA
## 2:24 <NA> <NA> NA
## 2:25 <NA> <NA> NA
## 2:26 <NA> <NA> NA
## 2:27 <NA> <NA> NA
## 3:1 <NA> <NA> NA
## 3:2 <NA> <NA> NA
## 3:3 <NA> <NA> NA
## 3:4 <NA> <NA> NA
## 3:5 <NA> <NA> NA
## 3:6 <NA> <NA> NA
## 3:7 <NA> <NA> NA
## 3:8 <NA> <NA> NA
## 3:9 <NA> <NA> NA
## 3:10 <NA> <NA> NA
## 3:11 <NA> <NA> NA
## 3:12 <NA> <NA> NA
## 3:13 <NA> <NA> NA
## 3:14 <NA> <NA> NA
## 3:15 <NA> <NA> NA
## 3:16 <NA> <NA> NA
## 3:17 <NA> <NA> NA
## 3:18 <NA> <NA> NA
## 3:19 <NA> <NA> NA
## 3:20 <NA> <NA> NA
## 3:21 <NA> <NA> NA
## 3:22 <NA> <NA> NA
## 3:23 <NA> <NA> NA
## 3:24 <NA> <NA> NA
## 3:25 <NA> <NA> NA
## 3:26 <NA> <NA> NA
## 3:27 <NA> <NA> NA
## 3:28 <NA> <NA> NA
## 4:1 Harrisburgh Dog Food 16587.33
## 4:2 Harrisburgh Bird Food 15655.37
## 4:3 Reading Cat Food 16996.66
## 4:4 Reading Dog Food 16914.92
## 4:5 Reading Bird Food 16041.27
## 4:6 Pittsburgh Cat Food 15918.91
## 4:7 Pittsburgh Dog Food 16745.43
## 4:8 Pittsburgh Bird Food 15337.63
## 4:9 Philly Cat Food 16721.23
## 4:10 Philly Dog Food 16635.90
## 4:11 Philly Bird Food 15359.10
## 4:12 Lancaster Cat Food 16119.85
## 4:13 Lancaster Dog Food 16146.91
## 4:14 Lancaster Bird Food 16385.94
## 4:15 York Cat Food 15516.18
## 4:16 York Dog Food 16973.36
## 4:17 York Bird Food 16383.93
## 4:18 Allentown Cat Food 16322.17
## 4:19 Allentown Dog Food 15344.00
## 4:20 Allentown Bird Food 15487.14
## 4:21 Easton Cat Food 15003.73
## 4:22 Easton Dog Food 15786.70
## 4:23 Easton Bird Food 15099.09
## 4:24 Parker Cat Food 15151.05
## 4:25 Parker Dog Food 15380.62
## 4:26 Parker Bird Food 15128.74 Rename <-function(x,ColNames){
names(x) <- ColNames
return(x)
}
Colnames1 <- c("Date", "City", "Product", "Sales", "ID")
ColnamesFixed <- lapply(newlist , Rename , Colnames1)
ColnamesFixed ## [[1]]
## Date City Product Sales ID
## 1 2019-01-13 Harrisburgh Cat Food 12078.20 1
## 2 2019-01-13 Harrisburgh Dog Food 10982.94 1
## 3 2019-01-13 Harrisburgh Bird Food 10509.16 1
## 4 2019-01-13 Reading Cat Food 12454.36 1
## 5 2019-01-13 Reading Dog Food 14741.30 1
## 6 2019-01-13 Reading Bird Food 10142.83 1
## 7 2019-01-13 Pittsburgh Cat Food 11329.41 1
## 8 2019-01-13 Pittsburgh Dog Food 10815.10 1
## 9 2019-01-13 Pittsburgh Bird Food 11899.77 1
## 10 2019-01-13 Philly Cat Food 14234.52 1
## 11 2019-01-13 Philly Dog Food 14234.32 1
## 12 2019-01-13 Philly Bird Food 13115.94 1
## 13 2019-01-13 Lancaster Cat Food 14047.22 1
## 14 2019-01-13 Lancaster Dog Food 14932.36 1
## 15 2019-01-13 Lancaster Bird Food 13275.70 1
## 16 2019-01-13 York Cat Food 11888.89 1
## 17 2019-01-13 York Dog Food 14301.84 1
## 18 2019-01-13 York Bird Food 12283.38 1
## 19 2019-01-13 Allentown Cat Food 13418.43 1
## 20 2019-01-13 Allentown Dog Food 14708.79 1
## 21 2019-01-13 Allentown Bird Food 12655.08 1
## 22 2019-01-13 Easton Cat Food 14274.58 1
## 23 2019-01-13 Easton Dog Food 14016.61 1
## 24 2019-01-13 Easton Bird Food 12609.32 1
## 25 2019-01-13 Parker Cat Food 14574.64 1
## 26 2019-01-13 Parker Dog Food 14153.63 1
## 27 2019-01-13 Parker Bird Food 12084.89 1
##
## [[2]]
## Date City Product Sales ID
## 1 2019-01-20 Harrisburgh Cat Food 5293.388 2
## 2 2019-01-20 Harrisburgh Dog Food 6267.138 2
## 3 2019-01-20 Harrisburgh Bird Food 5270.446 2
## 4 2019-01-20 Reading Cat Food 7715.411 2
## 5 2019-01-20 Reading Dog Food 8846.283 2
## 6 2019-01-20 Reading Bird Food 8911.221 2
## 7 2019-01-20 Pittsburgh Cat Food 8934.534 2
## 8 2019-01-20 Pittsburgh Dog Food 5671.713 2
## 9 2019-01-20 Pittsburgh Bird Food 5586.606 2
## 10 2019-01-20 Philly Cat Food 7561.510 2
## 11 2019-01-20 Philly Dog Food 8426.278 2
## 12 2019-01-20 Philly Bird Food 6273.724 2
## 13 2019-01-20 Lancaster Cat Food 5847.139 2
## 14 2019-01-20 Lancaster Dog Food 7172.759 2
## 15 2019-01-20 Lancaster Bird Food 8392.561 2
## 16 2019-01-20 York Cat Food 5849.601 2
## 17 2019-01-20 York Dog Food 6376.229 2
## 18 2019-01-20 York Bird Food 8689.842 2
## 19 2019-01-20 Allentown Cat Food 5529.778 2
## 20 2019-01-20 Allentown Dog Food 6902.682 2
## 21 2019-01-20 Allentown Bird Food 8415.370 2
## 22 2019-01-20 Easton Cat Food 6048.180 2
## 23 2019-01-20 Easton Dog Food 8286.896 2
## 24 2019-01-20 Easton Bird Food 6134.822 2
## 25 2019-01-20 Parker Cat Food 5773.483 2
## 26 2019-01-20 Parker Dog Food 5517.330 2
## 27 2019-01-20 Parker Bird Food 6904.338 2
##
## [[3]]
## Date City Product Sales ID
## 1 2019-01-27 Harrisburgh Cat Food 25242.93 3
## 2 2019-01-27 Harrisburgh Dog Food 30822.78 3
## 3 2019-01-27 Harrisburgh Bird Food 35827.3 3
## 4 2019-01-27 Reading Cat Food 27767.7 3
## 5 2019-01-27 Reading Dog Food 35632.63 3
## 6 2019-01-27 Reading Bird Food 39620.91 3
## 7 2019-01-27 Pittsburgh Cat Food 34453.87 3
## 8 2019-01-27 Pittsburgh Dog Food 38398.79 3
## 9 2019-01-27 Pittsburgh Bird Food 26753.81 3
## 10 2019-01-27 Philly Cat Food 29791.43 3
## 11 2019-01-27 Philly Dog Food 27374.19 3
## 12 2019-01-27 Philly Bird Food 33162.6 3
## 13 2019-01-27 Lancaster Cat Food 34429.48 3
## 14 2019-01-27 Lancaster Dog Food 27693.61 3
## 15 2019-01-27 Lancaster Bird Food 39963.58 3
## 16 2019-01-27 York Cat Food 31148.38 3
## 17 2019-01-27 York Dog Food 29835.02 3
## 18 2019-01-27 York Bird Food 32106.77 3
## 19 2019-01-27 Allentown Cat Food 31109.71 3
## 20 2019-01-27 Allentown Dog Food 27431.93 3
## 21 2019-01-27 Allentown Bird Food 28772.03 3
## 22 2019-01-27 Easton Cat Food 33715.51 3
## 23 2019-01-27 Easton Dog Food 28602.52 3
## 24 2019-01-27 Easton Bird Food 35461.46 3
## 25 2019-01-27 Parker Cat Food 26953.91 3
## 26 2019-01-27 Parker Dog Food 29946.34 3
## 27 2019-01-27 Parker Bird Food 31170.34 3
## 28 2019-01-27 Parker Bird Food d 3
##
## [[4]]
## Date City Product Sales ID
## 1 2019-02-03 Harrisburgh Dog Food 16587.33 4
## 2 2019-02-03 Harrisburgh Bird Food 15655.37 4
## 3 2019-02-03 Reading Cat Food 16996.66 4
## 4 2019-02-03 Reading Dog Food 16914.92 4
## 5 2019-02-03 Reading Bird Food 16041.27 4
## 6 2019-02-03 Pittsburgh Cat Food 15918.91 4
## 7 2019-02-03 Pittsburgh Dog Food 16745.43 4
## 8 2019-02-03 Pittsburgh Bird Food 15337.63 4
## 9 2019-02-03 Philly Cat Food 16721.23 4
## 10 2019-02-03 Philly Dog Food 16635.90 4
## 11 2019-02-03 Philly Bird Food 15359.10 4
## 12 2019-02-03 Lancaster Cat Food 16119.85 4
## 13 2019-02-03 Lancaster Dog Food 16146.91 4
## 14 2019-02-03 Lancaster Bird Food 16385.94 4
## 15 2019-02-03 York Cat Food 15516.18 4
## 16 2019-02-03 York Dog Food 16973.36 4
## 17 2019-02-03 York Bird Food 16383.93 4
## 18 2019-02-03 Allentown Cat Food 16322.17 4
## 19 2019-02-03 Allentown Dog Food 15344.00 4
## 20 2019-02-03 Allentown Bird Food 15487.14 4
## 21 2019-02-03 Easton Cat Food 15003.73 4
## 22 2019-02-03 Easton Dog Food 15786.70 4
## 23 2019-02-03 Easton Bird Food 15099.09 4
## 24 2019-02-03 Parker Cat Food 15151.05 4
## 25 2019-02-03 Parker Dog Food 15380.62 4
## 26 2019-02-03 Parker Bird Food 15128.74 4EntireCombine <- do.call(rbind, ColnamesFixed )
EntireCombine ## Date City Product Sales ID
## 1 2019-01-13 Harrisburgh Cat Food 12078.19928 1
## 2 2019-01-13 Harrisburgh Dog Food 10982.93611 1
## 3 2019-01-13 Harrisburgh Bird Food 10509.15978 1
## 4 2019-01-13 Reading Cat Food 12454.35556 1
## 5 2019-01-13 Reading Dog Food 14741.30398 1
## 6 2019-01-13 Reading Bird Food 10142.83211 1
## 7 2019-01-13 Pittsburgh Cat Food 11329.40709 1
## 8 2019-01-13 Pittsburgh Dog Food 10815.09801 1
## 9 2019-01-13 Pittsburgh Bird Food 11899.76728 1
## 10 2019-01-13 Philly Cat Food 14234.52041 1
## 11 2019-01-13 Philly Dog Food 14234.3179 1
## 12 2019-01-13 Philly Bird Food 13115.93818 1
## 13 2019-01-13 Lancaster Cat Food 14047.21572 1
## 14 2019-01-13 Lancaster Dog Food 14932.36216 1
## 15 2019-01-13 Lancaster Bird Food 13275.70473 1
## 16 2019-01-13 York Cat Food 11888.89082 1
## 17 2019-01-13 York Dog Food 14301.83953 1
## 18 2019-01-13 York Bird Food 12283.38436 1
## 19 2019-01-13 Allentown Cat Food 13418.42975 1
## 20 2019-01-13 Allentown Dog Food 14708.78913 1
## 21 2019-01-13 Allentown Bird Food 12655.08497 1
## 22 2019-01-13 Easton Cat Food 14274.57606 1
## 23 2019-01-13 Easton Dog Food 14016.60535 1
## 24 2019-01-13 Easton Bird Food 12609.31986 1
## 25 2019-01-13 Parker Cat Food 14574.63529 1
## 26 2019-01-13 Parker Dog Food 14153.63013 1
## 27 2019-01-13 Parker Bird Food 12084.89108 1
## 28 2019-01-20 Harrisburgh Cat Food 5293.387531 2
## 29 2019-01-20 Harrisburgh Dog Food 6267.137902 2
## 30 2019-01-20 Harrisburgh Bird Food 5270.445536 2
## 31 2019-01-20 Reading Cat Food 7715.411215 2
## 32 2019-01-20 Reading Dog Food 8846.283315 2
## 33 2019-01-20 Reading Bird Food 8911.221285 2
## 34 2019-01-20 Pittsburgh Cat Food 8934.534014 2
## 35 2019-01-20 Pittsburgh Dog Food 5671.713052 2
## 36 2019-01-20 Pittsburgh Bird Food 5586.606482 2
## 37 2019-01-20 Philly Cat Food 7561.509731 2
## 38 2019-01-20 Philly Dog Food 8426.277759 2
## 39 2019-01-20 Philly Bird Food 6273.724212 2
## 40 2019-01-20 Lancaster Cat Food 5847.139389 2
## 41 2019-01-20 Lancaster Dog Food 7172.758931 2
## 42 2019-01-20 Lancaster Bird Food 8392.560662 2
## 43 2019-01-20 York Cat Food 5849.600802 2
## 44 2019-01-20 York Dog Food 6376.228854 2
## 45 2019-01-20 York Bird Food 8689.842223 2
## 46 2019-01-20 Allentown Cat Food 5529.777948 2
## 47 2019-01-20 Allentown Dog Food 6902.682333 2
## 48 2019-01-20 Allentown Bird Food 8415.370312 2
## 49 2019-01-20 Easton Cat Food 6048.18037 2
## 50 2019-01-20 Easton Dog Food 8286.896058 2
## 51 2019-01-20 Easton Bird Food 6134.822275 2
## 52 2019-01-20 Parker Cat Food 5773.483112 2
## 53 2019-01-20 Parker Dog Food 5517.329721 2
## 54 2019-01-20 Parker Bird Food 6904.337699 2
## 55 2019-01-27 Harrisburgh Cat Food 25242.93 3
## 56 2019-01-27 Harrisburgh Dog Food 30822.78 3
## 57 2019-01-27 Harrisburgh Bird Food 35827.3 3
## 58 2019-01-27 Reading Cat Food 27767.7 3
## 59 2019-01-27 Reading Dog Food 35632.63 3
## 60 2019-01-27 Reading Bird Food 39620.91 3
## 61 2019-01-27 Pittsburgh Cat Food 34453.87 3
## 62 2019-01-27 Pittsburgh Dog Food 38398.79 3
## 63 2019-01-27 Pittsburgh Bird Food 26753.81 3
## 64 2019-01-27 Philly Cat Food 29791.43 3
## 65 2019-01-27 Philly Dog Food 27374.19 3
## 66 2019-01-27 Philly Bird Food 33162.6 3
## 67 2019-01-27 Lancaster Cat Food 34429.48 3
## 68 2019-01-27 Lancaster Dog Food 27693.61 3
## 69 2019-01-27 Lancaster Bird Food 39963.58 3
## 70 2019-01-27 York Cat Food 31148.38 3
## 71 2019-01-27 York Dog Food 29835.02 3
## 72 2019-01-27 York Bird Food 32106.77 3
## 73 2019-01-27 Allentown Cat Food 31109.71 3
## 74 2019-01-27 Allentown Dog Food 27431.93 3
## 75 2019-01-27 Allentown Bird Food 28772.03 3
## 76 2019-01-27 Easton Cat Food 33715.51 3
## 77 2019-01-27 Easton Dog Food 28602.52 3
## 78 2019-01-27 Easton Bird Food 35461.46 3
## 79 2019-01-27 Parker Cat Food 26953.91 3
## 80 2019-01-27 Parker Dog Food 29946.34 3
## 81 2019-01-27 Parker Bird Food 31170.34 3
## 82 2019-01-27 Parker Bird Food d 3
## 83 2019-02-03 Harrisburgh Dog Food 16587.32992 4
## 84 2019-02-03 Harrisburgh Bird Food 15655.36561 4
## 85 2019-02-03 Reading Cat Food 16996.66403 4
## 86 2019-02-03 Reading Dog Food 16914.92088 4
## 87 2019-02-03 Reading Bird Food 16041.26717 4
## 88 2019-02-03 Pittsburgh Cat Food 15918.90544 4
## 89 2019-02-03 Pittsburgh Dog Food 16745.42872 4
## 90 2019-02-03 Pittsburgh Bird Food 15337.63387 4
## 91 2019-02-03 Philly Cat Food 16721.22593 4
## 92 2019-02-03 Philly Dog Food 16635.90445 4
## 93 2019-02-03 Philly Bird Food 15359.09789 4
## 94 2019-02-03 Lancaster Cat Food 16119.85052 4
## 95 2019-02-03 Lancaster Dog Food 16146.91134 4
## 96 2019-02-03 Lancaster Bird Food 16385.93664 4
## 97 2019-02-03 York Cat Food 15516.17803 4
## 98 2019-02-03 York Dog Food 16973.3587 4
## 99 2019-02-03 York Bird Food 16383.92955 4
## 100 2019-02-03 Allentown Cat Food 16322.16763 4
## 101 2019-02-03 Allentown Dog Food 15344.00028 4
## 102 2019-02-03 Allentown Bird Food 15487.1415 4
## 103 2019-02-03 Easton Cat Food 15003.73048 4
## 104 2019-02-03 Easton Dog Food 15786.7002 4
## 105 2019-02-03 Easton Bird Food 15099.0866 4
## 106 2019-02-03 Parker Cat Food 15151.04569 4
## 107 2019-02-03 Parker Dog Food 15380.62345 4
## 108 2019-02-03 Parker Bird Food 15128.73806 4str(EntireCombine )## 'data.frame': 108 obs. of 5 variables:
## $ Date : Factor w/ 4 levels "2019-01-13","2019-01-20",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ City : Factor w/ 9 levels "Allentown","Easton",..: 3 3 3 8 8 8 7 7 7 6 ...
## $ Product: Factor w/ 3 levels "Bird Food","Cat Food",..: 2 3 1 2 3 1 2 3 1 2 ...
## $ Sales : chr "12078.19928" "10982.93611" "10509.15978" "12454.35556" ...
## $ ID : int 1 1 1 1 1 1 1 1 1 1 ...as.data.frame(EntireCombine)## Date City Product Sales ID
## 1 2019-01-13 Harrisburgh Cat Food 12078.19928 1
## 2 2019-01-13 Harrisburgh Dog Food 10982.93611 1
## 3 2019-01-13 Harrisburgh Bird Food 10509.15978 1
## 4 2019-01-13 Reading Cat Food 12454.35556 1
## 5 2019-01-13 Reading Dog Food 14741.30398 1
## 6 2019-01-13 Reading Bird Food 10142.83211 1
## 7 2019-01-13 Pittsburgh Cat Food 11329.40709 1
## 8 2019-01-13 Pittsburgh Dog Food 10815.09801 1
## 9 2019-01-13 Pittsburgh Bird Food 11899.76728 1
## 10 2019-01-13 Philly Cat Food 14234.52041 1
## 11 2019-01-13 Philly Dog Food 14234.3179 1
## 12 2019-01-13 Philly Bird Food 13115.93818 1
## 13 2019-01-13 Lancaster Cat Food 14047.21572 1
## 14 2019-01-13 Lancaster Dog Food 14932.36216 1
## 15 2019-01-13 Lancaster Bird Food 13275.70473 1
## 16 2019-01-13 York Cat Food 11888.89082 1
## 17 2019-01-13 York Dog Food 14301.83953 1
## 18 2019-01-13 York Bird Food 12283.38436 1
## 19 2019-01-13 Allentown Cat Food 13418.42975 1
## 20 2019-01-13 Allentown Dog Food 14708.78913 1
## 21 2019-01-13 Allentown Bird Food 12655.08497 1
## 22 2019-01-13 Easton Cat Food 14274.57606 1
## 23 2019-01-13 Easton Dog Food 14016.60535 1
## 24 2019-01-13 Easton Bird Food 12609.31986 1
## 25 2019-01-13 Parker Cat Food 14574.63529 1
## 26 2019-01-13 Parker Dog Food 14153.63013 1
## 27 2019-01-13 Parker Bird Food 12084.89108 1
## 28 2019-01-20 Harrisburgh Cat Food 5293.387531 2
## 29 2019-01-20 Harrisburgh Dog Food 6267.137902 2
## 30 2019-01-20 Harrisburgh Bird Food 5270.445536 2
## 31 2019-01-20 Reading Cat Food 7715.411215 2
## 32 2019-01-20 Reading Dog Food 8846.283315 2
## 33 2019-01-20 Reading Bird Food 8911.221285 2
## 34 2019-01-20 Pittsburgh Cat Food 8934.534014 2
## 35 2019-01-20 Pittsburgh Dog Food 5671.713052 2
## 36 2019-01-20 Pittsburgh Bird Food 5586.606482 2
## 37 2019-01-20 Philly Cat Food 7561.509731 2
## 38 2019-01-20 Philly Dog Food 8426.277759 2
## 39 2019-01-20 Philly Bird Food 6273.724212 2
## 40 2019-01-20 Lancaster Cat Food 5847.139389 2
## 41 2019-01-20 Lancaster Dog Food 7172.758931 2
## 42 2019-01-20 Lancaster Bird Food 8392.560662 2
## 43 2019-01-20 York Cat Food 5849.600802 2
## 44 2019-01-20 York Dog Food 6376.228854 2
## 45 2019-01-20 York Bird Food 8689.842223 2
## 46 2019-01-20 Allentown Cat Food 5529.777948 2
## 47 2019-01-20 Allentown Dog Food 6902.682333 2
## 48 2019-01-20 Allentown Bird Food 8415.370312 2
## 49 2019-01-20 Easton Cat Food 6048.18037 2
## 50 2019-01-20 Easton Dog Food 8286.896058 2
## 51 2019-01-20 Easton Bird Food 6134.822275 2
## 52 2019-01-20 Parker Cat Food 5773.483112 2
## 53 2019-01-20 Parker Dog Food 5517.329721 2
## 54 2019-01-20 Parker Bird Food 6904.337699 2
## 55 2019-01-27 Harrisburgh Cat Food 25242.93 3
## 56 2019-01-27 Harrisburgh Dog Food 30822.78 3
## 57 2019-01-27 Harrisburgh Bird Food 35827.3 3
## 58 2019-01-27 Reading Cat Food 27767.7 3
## 59 2019-01-27 Reading Dog Food 35632.63 3
## 60 2019-01-27 Reading Bird Food 39620.91 3
## 61 2019-01-27 Pittsburgh Cat Food 34453.87 3
## 62 2019-01-27 Pittsburgh Dog Food 38398.79 3
## 63 2019-01-27 Pittsburgh Bird Food 26753.81 3
## 64 2019-01-27 Philly Cat Food 29791.43 3
## 65 2019-01-27 Philly Dog Food 27374.19 3
## 66 2019-01-27 Philly Bird Food 33162.6 3
## 67 2019-01-27 Lancaster Cat Food 34429.48 3
## 68 2019-01-27 Lancaster Dog Food 27693.61 3
## 69 2019-01-27 Lancaster Bird Food 39963.58 3
## 70 2019-01-27 York Cat Food 31148.38 3
## 71 2019-01-27 York Dog Food 29835.02 3
## 72 2019-01-27 York Bird Food 32106.77 3
## 73 2019-01-27 Allentown Cat Food 31109.71 3
## 74 2019-01-27 Allentown Dog Food 27431.93 3
## 75 2019-01-27 Allentown Bird Food 28772.03 3
## 76 2019-01-27 Easton Cat Food 33715.51 3
## 77 2019-01-27 Easton Dog Food 28602.52 3
## 78 2019-01-27 Easton Bird Food 35461.46 3
## 79 2019-01-27 Parker Cat Food 26953.91 3
## 80 2019-01-27 Parker Dog Food 29946.34 3
## 81 2019-01-27 Parker Bird Food 31170.34 3
## 82 2019-01-27 Parker Bird Food d 3
## 83 2019-02-03 Harrisburgh Dog Food 16587.32992 4
## 84 2019-02-03 Harrisburgh Bird Food 15655.36561 4
## 85 2019-02-03 Reading Cat Food 16996.66403 4
## 86 2019-02-03 Reading Dog Food 16914.92088 4
## 87 2019-02-03 Reading Bird Food 16041.26717 4
## 88 2019-02-03 Pittsburgh Cat Food 15918.90544 4
## 89 2019-02-03 Pittsburgh Dog Food 16745.42872 4
## 90 2019-02-03 Pittsburgh Bird Food 15337.63387 4
## 91 2019-02-03 Philly Cat Food 16721.22593 4
## 92 2019-02-03 Philly Dog Food 16635.90445 4
## 93 2019-02-03 Philly Bird Food 15359.09789 4
## 94 2019-02-03 Lancaster Cat Food 16119.85052 4
## 95 2019-02-03 Lancaster Dog Food 16146.91134 4
## 96 2019-02-03 Lancaster Bird Food 16385.93664 4
## 97 2019-02-03 York Cat Food 15516.17803 4
## 98 2019-02-03 York Dog Food 16973.3587 4
## 99 2019-02-03 York Bird Food 16383.92955 4
## 100 2019-02-03 Allentown Cat Food 16322.16763 4
## 101 2019-02-03 Allentown Dog Food 15344.00028 4
## 102 2019-02-03 Allentown Bird Food 15487.1415 4
## 103 2019-02-03 Easton Cat Food 15003.73048 4
## 104 2019-02-03 Easton Dog Food 15786.7002 4
## 105 2019-02-03 Easton Bird Food 15099.0866 4
## 106 2019-02-03 Parker Cat Food 15151.04569 4
## 107 2019-02-03 Parker Dog Food 15380.62345 4
## 108 2019-02-03 Parker Bird Food 15128.73806 4EntireCombine$Date <- as.Date(EntireCombine$Date)
parse <- parse_number(EntireCombine$Sales)## Warning: 1 parsing failure.
## row col expected actual
## 82 -- a number dEntireCombine$Sales <- sapply(EntireCombine$Sales, parse_number)## Warning: 1 parsing failure.
## row col expected actual
## 1 -- a number dEntireCombine$City <- as.character(EntireCombine$City)
str(EntireCombine)## 'data.frame': 108 obs. of 5 variables:
## $ Date : Date, format: "2019-01-13" "2019-01-13" ...
## $ City : chr "Harrisburgh " "Harrisburgh " "Harrisburgh " "Reading " ...
## $ Product: Factor w/ 3 levels "Bird Food","Cat Food",..: 2 3 1 2 3 1 2 3 1 2 ...
## $ Sales : num 12078 10983 10509 12454 14741 ...
## $ ID : int 1 1 1 1 1 1 1 1 1 1 ...EntireCombine$City <- revalue(EntireCombine$City, c("Harrisburgh "="Harrisburg"))
EntireCombine$City <- revalue(EntireCombine$City, c("Pittsburgh "="Pittsburg"))
EntireCombine## Date City Product Sales ID
## 1 2019-01-13 Harrisburg Cat Food 12078.199 1
## 2 2019-01-13 Harrisburg Dog Food 10982.936 1
## 3 2019-01-13 Harrisburg Bird Food 10509.160 1
## 4 2019-01-13 Reading Cat Food 12454.356 1
## 5 2019-01-13 Reading Dog Food 14741.304 1
## 6 2019-01-13 Reading Bird Food 10142.832 1
## 7 2019-01-13 Pittsburg Cat Food 11329.407 1
## 8 2019-01-13 Pittsburg Dog Food 10815.098 1
## 9 2019-01-13 Pittsburg Bird Food 11899.767 1
## 10 2019-01-13 Philly Cat Food 14234.520 1
## 11 2019-01-13 Philly Dog Food 14234.318 1
## 12 2019-01-13 Philly Bird Food 13115.938 1
## 13 2019-01-13 Lancaster Cat Food 14047.216 1
## 14 2019-01-13 Lancaster Dog Food 14932.362 1
## 15 2019-01-13 Lancaster Bird Food 13275.705 1
## 16 2019-01-13 York Cat Food 11888.891 1
## 17 2019-01-13 York Dog Food 14301.840 1
## 18 2019-01-13 York Bird Food 12283.384 1
## 19 2019-01-13 Allentown Cat Food 13418.430 1
## 20 2019-01-13 Allentown Dog Food 14708.789 1
## 21 2019-01-13 Allentown Bird Food 12655.085 1
## 22 2019-01-13 Easton Cat Food 14274.576 1
## 23 2019-01-13 Easton Dog Food 14016.605 1
## 24 2019-01-13 Easton Bird Food 12609.320 1
## 25 2019-01-13 Parker Cat Food 14574.635 1
## 26 2019-01-13 Parker Dog Food 14153.630 1
## 27 2019-01-13 Parker Bird Food 12084.891 1
## 28 2019-01-20 Harrisburg Cat Food 5293.388 2
## 29 2019-01-20 Harrisburg Dog Food 6267.138 2
## 30 2019-01-20 Harrisburg Bird Food 5270.446 2
## 31 2019-01-20 Reading Cat Food 7715.411 2
## 32 2019-01-20 Reading Dog Food 8846.283 2
## 33 2019-01-20 Reading Bird Food 8911.221 2
## 34 2019-01-20 Pittsburg Cat Food 8934.534 2
## 35 2019-01-20 Pittsburg Dog Food 5671.713 2
## 36 2019-01-20 Pittsburg Bird Food 5586.606 2
## 37 2019-01-20 Philly Cat Food 7561.510 2
## 38 2019-01-20 Philly Dog Food 8426.278 2
## 39 2019-01-20 Philly Bird Food 6273.724 2
## 40 2019-01-20 Lancaster Cat Food 5847.139 2
## 41 2019-01-20 Lancaster Dog Food 7172.759 2
## 42 2019-01-20 Lancaster Bird Food 8392.561 2
## 43 2019-01-20 York Cat Food 5849.601 2
## 44 2019-01-20 York Dog Food 6376.229 2
## 45 2019-01-20 York Bird Food 8689.842 2
## 46 2019-01-20 Allentown Cat Food 5529.778 2
## 47 2019-01-20 Allentown Dog Food 6902.682 2
## 48 2019-01-20 Allentown Bird Food 8415.370 2
## 49 2019-01-20 Easton Cat Food 6048.180 2
## 50 2019-01-20 Easton Dog Food 8286.896 2
## 51 2019-01-20 Easton Bird Food 6134.822 2
## 52 2019-01-20 Parker Cat Food 5773.483 2
## 53 2019-01-20 Parker Dog Food 5517.330 2
## 54 2019-01-20 Parker Bird Food 6904.338 2
## 55 2019-01-27 Harrisburg Cat Food 25242.930 3
## 56 2019-01-27 Harrisburg Dog Food 30822.780 3
## 57 2019-01-27 Harrisburg Bird Food 35827.300 3
## 58 2019-01-27 Reading Cat Food 27767.700 3
## 59 2019-01-27 Reading Dog Food 35632.630 3
## 60 2019-01-27 Reading Bird Food 39620.910 3
## 61 2019-01-27 Pittsburg Cat Food 34453.870 3
## 62 2019-01-27 Pittsburg Dog Food 38398.790 3
## 63 2019-01-27 Pittsburg Bird Food 26753.810 3
## 64 2019-01-27 Philly Cat Food 29791.430 3
## 65 2019-01-27 Philly Dog Food 27374.190 3
## 66 2019-01-27 Philly Bird Food 33162.600 3
## 67 2019-01-27 Lancaster Cat Food 34429.480 3
## 68 2019-01-27 Lancaster Dog Food 27693.610 3
## 69 2019-01-27 Lancaster Bird Food 39963.580 3
## 70 2019-01-27 York Cat Food 31148.380 3
## 71 2019-01-27 York Dog Food 29835.020 3
## 72 2019-01-27 York Bird Food 32106.770 3
## 73 2019-01-27 Allentown Cat Food 31109.710 3
## 74 2019-01-27 Allentown Dog Food 27431.930 3
## 75 2019-01-27 Allentown Bird Food 28772.030 3
## 76 2019-01-27 Easton Cat Food 33715.510 3
## 77 2019-01-27 Easton Dog Food 28602.520 3
## 78 2019-01-27 Easton Bird Food 35461.460 3
## 79 2019-01-27 Parker Cat Food 26953.910 3
## 80 2019-01-27 Parker Dog Food 29946.340 3
## 81 2019-01-27 Parker Bird Food 31170.340 3
## 82 2019-01-27 Parker Bird Food NA 3
## 83 2019-02-03 Harrisburg Dog Food 16587.330 4
## 84 2019-02-03 Harrisburg Bird Food 15655.366 4
## 85 2019-02-03 Reading Cat Food 16996.664 4
## 86 2019-02-03 Reading Dog Food 16914.921 4
## 87 2019-02-03 Reading Bird Food 16041.267 4
## 88 2019-02-03 Pittsburg Cat Food 15918.905 4
## 89 2019-02-03 Pittsburg Dog Food 16745.429 4
## 90 2019-02-03 Pittsburg Bird Food 15337.634 4
## 91 2019-02-03 Philly Cat Food 16721.226 4
## 92 2019-02-03 Philly Dog Food 16635.904 4
## 93 2019-02-03 Philly Bird Food 15359.098 4
## 94 2019-02-03 Lancaster Cat Food 16119.851 4
## 95 2019-02-03 Lancaster Dog Food 16146.911 4
## 96 2019-02-03 Lancaster Bird Food 16385.937 4
## 97 2019-02-03 York Cat Food 15516.178 4
## 98 2019-02-03 York Dog Food 16973.359 4
## 99 2019-02-03 York Bird Food 16383.930 4
## 100 2019-02-03 Allentown Cat Food 16322.168 4
## 101 2019-02-03 Allentown Dog Food 15344.000 4
## 102 2019-02-03 Allentown Bird Food 15487.142 4
## 103 2019-02-03 Easton Cat Food 15003.730 4
## 104 2019-02-03 Easton Dog Food 15786.700 4
## 105 2019-02-03 Easton Bird Food 15099.087 4
## 106 2019-02-03 Parker Cat Food 15151.046 4
## 107 2019-02-03 Parker Dog Food 15380.623 4
## 108 2019-02-03 Parker Bird Food 15128.738 4Harrisburg_Only <- sqldf("SELECT Date, City, sum(Sales) AS Sales
FROM EntireCombine
WHERE City LIKE 'Harris%'
GROUP BY Date, City
")
Harrisburg_Only ## Date City Sales
## 1 2019-01-13 Harrisburg 33570.30
## 2 2019-01-20 Harrisburg 16830.97
## 3 2019-01-27 Harrisburg 91893.01
## 4 2019-02-03 Harrisburg 32242.70Harrisburg_Only_By_Product <- sqldf("SELECT Date, City, sum(Sales) AS Sales,Product
FROM EntireCombine
WHERE City LIKE 'Harris%'
GROUP BY Date, City, Product
")
Harrisburg_Only_By_Product## Date City Sales Product
## 1 2019-01-13 Harrisburg 10509.160 Bird Food
## 2 2019-01-13 Harrisburg 12078.199 Cat Food
## 3 2019-01-13 Harrisburg 10982.936 Dog Food
## 4 2019-01-20 Harrisburg 5270.446 Bird Food
## 5 2019-01-20 Harrisburg 5293.388 Cat Food
## 6 2019-01-20 Harrisburg 6267.138 Dog Food
## 7 2019-01-27 Harrisburg 35827.300 Bird Food
## 8 2019-01-27 Harrisburg 25242.930 Cat Food
## 9 2019-01-27 Harrisburg 30822.780 Dog Food
## 10 2019-02-03 Harrisburg 15655.366 Bird Food
## 11 2019-02-03 Harrisburg 16587.330 Dog FoodCity_By_Product <- sqldf("
SELECT City, Product, sum(Sales) as Sales
FROM EntireCombine
GROUP BY City, Product
ORDER BY Sales ASC
")
City_By_Product ## City Product Sales
## 1 Harrisburg Cat Food 42614.52
## 2 Pittsburg Bird Food 59577.82
## 3 Parker Cat Food 62453.07
## 4 Allentown Dog Food 64387.40
## 5 York Cat Food 64403.05
## 6 Harrisburg Dog Food 64660.18
## 7 Reading Cat Food 64934.13
## 8 Parker Dog Food 64997.92
## 9 Parker Bird Food 65288.31
## 10 Allentown Bird Food 65329.63
## 11 Lancaster Dog Food 65945.64
## 12 Allentown Cat Food 66380.09
## 13 Philly Dog Food 66670.69
## 14 Easton Dog Food 66692.72
## 15 Harrisburg Bird Food 67262.27
## 16 York Dog Food 67486.45
## 17 Philly Bird Food 67911.36
## 18 Philly Cat Food 68308.69
## 19 Easton Cat Food 69042.00
## 20 Easton Bird Food 69304.69
## 21 York Bird Food 69463.93
## 22 Lancaster Cat Food 70443.69
## 23 Pittsburg Cat Food 70636.72
## 24 Pittsburg Dog Food 71631.03
## 25 Reading Bird Food 74716.23
## 26 Reading Dog Food 76135.14
## 27 Lancaster Bird Food 78017.78By_Date_City <- sqldf("SELECT Date, City, sum(Sales) AS Sales
FROM EntireCombine
WHERE CITY NOT LIKE ('Lan%')
GROUP BY DATE, CITY
")
By_Date_City## Date City Sales
## 1 2019-01-13 Allentown 40782.30
## 2 2019-01-13 Easton 40900.50
## 3 2019-01-13 Harrisburg 33570.30
## 4 2019-01-13 Parker 40813.16
## 5 2019-01-13 Philly 41584.78
## 6 2019-01-13 Pittsburg 34044.27
## 7 2019-01-13 Reading 37338.49
## 8 2019-01-13 York 38474.11
## 9 2019-01-20 Allentown 20847.83
## 10 2019-01-20 Easton 20469.90
## 11 2019-01-20 Harrisburg 16830.97
## 12 2019-01-20 Parker 18195.15
## 13 2019-01-20 Philly 22261.51
## 14 2019-01-20 Pittsburg 20192.85
## 15 2019-01-20 Reading 25472.92
## 16 2019-01-20 York 20915.67
## 17 2019-01-27 Allentown 87313.67
## 18 2019-01-27 Easton 97779.49
## 19 2019-01-27 Harrisburg 91893.01
## 20 2019-01-27 Parker 88070.59
## 21 2019-01-27 Philly 90328.22
## 22 2019-01-27 Pittsburg 99606.47
## 23 2019-01-27 Reading 103021.24
## 24 2019-01-27 York 93090.17
## 25 2019-02-03 Allentown 47153.31
## 26 2019-02-03 Easton 45889.52
## 27 2019-02-03 Harrisburg 32242.70
## 28 2019-02-03 Parker 45660.41
## 29 2019-02-03 Philly 48716.23
## 30 2019-02-03 Pittsburg 48001.97
## 31 2019-02-03 Reading 49952.85
## 32 2019-02-03 York 48873.47library(ggplot2)
ggplot(Harrisburg_Only, aes(Date, Sales))+
geom_line( colour = "red")+
labs(title = "Harrisburg Sales",
subtitle = "Jan 13th - Feb 3rd"
)
ggplot(Harrisburg_Only, aes(Date, Sales))+
geom_bar(stat = "identity", position = "dodge")+
labs(title = "Harrisburg Sales",
subtitle = "Jan 13th - Feb 3rd"
)
ggplot(Harrisburg_Only_By_Product, aes(Date, Sales, fill = Product))+
geom_bar(stat = "identity", position = "dodge")+
labs(title = "Harrisburg Sales By Product",
subtitle = "Jan 13th - Feb 3rd"
)
ggplot(By_Date_City, aes(Date, Sales, fill = City))+
geom_line(aes(colour = City))+
labs(title = "All Cities Total Sales",
subtitle = "Jan 13th - Feb 3rd"
)
ggplot(By_Date_City, aes(Date, Sales, fill = City)) +
geom_bar( stat = "identity", position = "dodge")+
labs(title = "All Cities Total Sales",
subtitle = "Jan 13th - Feb 3rd"
)
ggplot(EntireCombine, aes(Date, Sales, fill = Product ))+
geom_bar( stat = "identity", position = "dodge")+
labs(title = "All Cities Total Sales By Product",
subtitle = "Jan 13th - Feb 3rd"
)## Warning: Removed 1 rows containing missing values (geom_bar).