diff --git a/data_preparation/cleaned/slidingWorkAverageSevenDay.csv b/data_preparation/cleaned/slidingWorkAverageSevenDay.csv new file mode 100644 index 0000000..31f6d20 --- /dev/null +++ b/data_preparation/cleaned/slidingWorkAverageSevenDay.csv @@ -0,0 +1,350 @@ +"","TimeSinceAugFirst","slidingWorkAverage" +"1",6,3340 +"2",7,4662.14285714286 +"3",8,5407.85714285714 +"4",9,5460.71428571429 +"5",10,5780.71428571429 +"6",11,6050 +"7",12,6225.71428571429 +"8",13,6240.71428571429 +"9",14,6057.14285714286 +"10",15,6055.71428571429 +"11",16,6022.71428571429 +"12",17,6087 +"13",18,6871.28571428571 +"14",19,6693.42857142857 +"15",20,6793.42857142857 +"16",21,6967.71428571429 +"17",22,7458.71428571429 +"18",23,7511.71428571429 +"19",24,7507.85714285714 +"20",25,7335.71428571429 +"21",26,7382.85714285714 +"22",27,7265.71428571429 +"23",28,7190.42857142857 +"24",29,6881.57142857143 +"25",30,6899.71428571429 +"26",31,6846.42857142857 +"27",32,6438.57142857143 +"28",33,6445 +"29",34,6445 +"30",35,6207.28571428571 +"31",36,5793 +"32",37,5750.42857142857 +"33",38,5989.71428571429 +"34",39,5710.85714285714 +"35",40,6025.85714285714 +"36",41,6025.85714285714 +"37",42,4970.28571428571 +"38",43,4164.57142857143 +"39",44,4362.85714285714 +"40",45,3313.57142857143 +"41",46,2486.14285714286 +"42",47,2147.85714285714 +"43",48,2152.14285714286 +"44",49,3555 +"45",50,4432.85714285714 +"46",51,4489 +"47",52,5900.42857142857 +"48",53,7505.14285714286 +"49",54,7474.85714285714 +"50",55,7528.42857142857 +"51",56,7414 +"52",57,7653.28571428571 +"53",58,7512.85714285714 +"54",59,7521.42857142857 +"55",60,7561.14285714286 +"56",61,7610.42857142857 +"57",62,7625.42857142857 +"58",63,7663.14285714286 +"59",64,7692.71428571429 +"60",65,7839.85714285714 +"61",66,7538.42857142857 +"62",67,7605 +"63",68,7617.85714285714 +"64",69,7596.42857142857 +"65",70,7843.85714285714 +"66",71,7791.14285714286 +"67",72,7870.85714285714 +"68",73,7778.71428571429 +"69",74,7231.85714285714 +"70",75,7234 +"71",76,7219 +"72",77,5686.85714285714 +"73",78,4371.42857142857 +"74",79,4231.42857142857 +"75",80,4410.71428571429 +"76",81,2970.71428571429 +"77",82,4127.14285714286 +"78",83,6200.71428571429 +"79",84,5997.85714285714 +"80",85,6781.42857142857 +"81",86,6890.71428571429 +"82",87,5516.42857142857 +"83",88,5910 +"84",89,5540.28571428571 +"85",90,4386.85714285714 +"86",91,4268.28571428571 +"87",92,3443.28571428571 +"88",93,2926.14285714286 +"89",94,3994.71428571429 +"90",95,4876.14285714286 +"91",96,4146.57142857143 +"92",97,3190 +"93",98,4790.71428571429 +"94",99,6302.85714285714 +"95",100,6819.28571428571 +"96",101,7200.42857142857 +"97",102,9141.14285714286 +"98",103,9159 +"99",104,9160.71428571429 +"100",105,9474.28571428571 +"101",106,9688.57142857143 +"102",107,9578.57142857143 +"103",108,9861.71428571429 +"104",109,9296 +"105",110,9156.71428571429 +"106",111,9155 +"107",112,8447.85714285714 +"108",113,7577.71428571429 +"109",114,7523.42857142857 +"110",115,5789.85714285714 +"111",116,3093.42857142857 +"112",117,3466.28571428571 +"113",118,4122 +"114",119,3564.85714285714 +"115",120,2901.42857142857 +"116",121,3102.14285714286 +"117",122,4238.42857142857 +"118",123,5762.28571428571 +"119",124,5389.42857142857 +"120",125,4733.71428571429 +"121",126,4419.42857142857 +"122",127,4468 +"123",128,4361.57142857143 +"124",129,4438.14285714286 +"125",130,4914.28571428571 +"126",131,5047.14285714286 +"127",132,5047.14285714286 +"128",133,6378.57142857143 +"129",134,7481.14285714286 +"130",135,7591.85714285714 +"131",136,8210.14285714286 +"132",137,8463.57142857143 +"133",138,8330.71428571429 +"134",139,8330.71428571429 +"135",140,8509.71428571429 +"136",141,7275 +"137",142,8413.28571428571 +"138",143,7959.28571428571 +"139",144,5693 +"140",145,6011.57142857143 +"141",146,6583 +"142",147,4646.85714285714 +"143",148,4782.71428571429 +"144",149,3188 +"145",150,3682.28571428571 +"146",151,4128 +"147",152,5956.57142857143 +"148",153,5705.85714285714 +"149",154,5663 +"150",155,7444.14285714286 +"151",156,7604.14285714286 +"152",157,7715.14285714286 +"153",158,9527.28571428571 +"154",159,7585.85714285714 +"155",160,7265.14285714286 +"156",161,8889.42857142857 +"157",162,7732.71428571429 +"158",163,7988.42857142857 +"159",164,7140.28571428571 +"160",165,6757.42857142857 +"161",166,6711 +"162",167,6711 +"163",168,6420.28571428571 +"164",169,5748.57142857143 +"165",170,5317.85714285714 +"166",171,5349 +"167",172,3464.42857142857 +"168",173,4225.85714285714 +"169",174,4225.85714285714 +"170",175,3948 +"171",176,4535.14285714286 +"172",177,4590.42857142857 +"173",178,4127.85714285714 +"174",179,5383.57142857143 +"175",180,4981.14285714286 +"176",181,5135.14285714286 +"177",182,4152.28571428571 +"178",183,3264.42857142857 +"179",184,3403.85714285714 +"180",185,2967.71428571429 +"181",186,1939.71428571429 +"182",187,1560 +"183",188,1483.14285714286 +"184",189,2747.42857142857 +"185",190,4782.71428571429 +"186",191,5047.28571428571 +"187",192,6633.42857142857 +"188",193,8409.57142857143 +"189",194,8271 +"190",195,8193.85714285714 +"191",196,8674.57142857143 +"192",197,8553.57142857143 +"193",198,8600 +"194",199,8265 +"195",200,8606.42857142857 +"196",201,8813.57142857143 +"197",202,8826.42857142857 +"198",203,8151.42857142857 +"199",204,7142.14285714286 +"200",205,6893.57142857143 +"201",206,6028.57142857143 +"202",207,4961.42857142857 +"203",208,5379.57142857143 +"204",209,5733.85714285714 +"205",210,5548.14285714286 +"206",211,5098.85714285714 +"207",212,5048.42857142857 +"208",213,5704.14285714286 +"209",214,6343.42857142857 +"210",215,5718.14285714286 +"211",216,5351 +"212",217,6423.85714285714 +"213",218,7730.14285714286 +"214",219,7950.42857142857 +"215",220,7662.57142857143 +"216",221,5935.42857142857 +"217",222,5935.42857142857 +"218",223,5935.42857142857 +"219",224,6184.71428571429 +"220",225,5354.85714285714 +"221",226,5303.85714285714 +"222",227,5856.71428571429 +"223",228,7469.57142857143 +"224",229,7546.71428571429 +"225",230,7546.71428571429 +"226",231,5315.28571428571 +"227",232,5034.57142857143 +"228",233,5161.57142857143 +"229",234,3862.57142857143 +"230",235,2151.85714285714 +"231",236,2074.71428571429 +"232",237,2074.71428571429 +"233",238,3534 +"234",239,3897.57142857143 +"235",240,3782.42857142857 +"236",241,5280 +"237",242,6554.28571428571 +"238",243,6554.28571428571 +"239",244,6554.28571428571 +"240",245,6860 +"241",246,6680.14285714286 +"242",247,6258.71428571429 +"243",248,5455.14285714286 +"244",249,3959.42857142857 +"245",250,3959.42857142857 +"246",251,4233 +"247",252,3254.85714285714 +"248",253,3011.14285714286 +"249",254,2924.71428571429 +"250",255,2393.57142857143 +"251",256,3091.14285714286 +"252",257,3413.14285714286 +"253",258,3816.57142857143 +"254",259,3117.14285714286 +"255",260,2854 +"256",261,3212.57142857143 +"257",262,2795.14285714286 +"258",263,2446.14285714286 +"259",264,3239 +"260",265,3208.57142857143 +"261",266,3264 +"262",267,3186 +"263",268,2903.14285714286 +"264",269,3772.42857142857 +"265",270,4849.57142857143 +"266",271,3756.14285714286 +"267",272,3148.14285714286 +"268",273,5160.28571428571 +"269",274,6097.14285714286 +"270",275,6633.85714285714 +"271",276,6273.85714285714 +"272",277,5578.57142857143 +"273",278,5557.14285714286 +"274",279,5518.57142857143 +"275",280,3802.14285714286 +"276",281,3774.85714285714 +"277",282,3647.42857142857 +"278",283,3279.57142857143 +"279",284,3000.57142857143 +"280",285,3993.71428571429 +"281",286,4737.71428571429 +"282",287,4279.85714285714 +"283",288,3175 +"284",289,3069.28571428571 +"285",290,2980.71428571429 +"286",291,3007.14285714286 +"287",292,2093.28571428571 +"288",293,1357.85714285714 +"289",294,2751.57142857143 +"290",295,4038 +"291",296,4010.85714285714 +"292",297,5494.42857142857 +"293",298,6503 +"294",299,6423.71428571429 +"295",300,6415.14285714286 +"296",301,6702.14285714286 +"297",302,6057.14285714286 +"298",303,6085 +"299",304,5794.28571428571 +"300",305,5097.42857142857 +"301",306,5097.42857142857 +"302",307,5097.42857142857 +"303",308,3846 +"304",309,4191.71428571429 +"305",310,3832.28571428571 +"306",311,2930.14285714286 +"307",312,3070.14285714286 +"308",313,3412.57142857143 +"309",314,3716.14285714286 +"310",315,3903.57142857143 +"311",316,2925.71428571429 +"312",317,3115.14285714286 +"313",318,3763.71428571429 +"314",319,4472 +"315",320,4233.57142857143 +"316",321,3997.71428571429 +"317",322,4926.71428571429 +"318",323,6248.14285714286 +"319",324,6036 +"320",325,6124.57142857143 +"321",326,6522.42857142857 +"322",327,6418.42857142857 +"323",328,6350.71428571429 +"324",329,6802.14285714286 +"325",330,6798.57142857143 +"326",331,6805 +"327",332,6575.28571428571 +"328",333,5883.14285714286 +"329",334,6155.28571428571 +"330",335,6258.14285714286 +"331",336,5507.57142857143 +"332",337,5044 +"333",338,5049.71428571429 +"334",339,4775.14285714286 +"335",340,4217.28571428571 +"336",341,3945.14285714286 +"337",342,3879.42857142857 +"338",343,3874.28571428571 +"339",344,3343.28571428571 +"340",345,3329 +"341",346,3255.42857142857 +"342",347,2469.71428571429 +"343",348,2478.28571428571 +"344",349,2441.14285714286 +"345",350,1511.85714285714 +"346",351,1720 +"347",352,1720 +"348",353,1363.57142857143 +"349",354,1483.57142857143 diff --git a/data_preparation/createWorkSequenceData.R b/data_preparation/createWorkSequenceData.R index 81b785e..2fd7fe0 100644 --- a/data_preparation/createWorkSequenceData.R +++ b/data_preparation/createWorkSequenceData.R @@ -31,12 +31,10 @@ plot(dayList, workLoad, main="Daily Total Work Load") slidingAverage <- c() -window <- 21 - 1 +window <- 7 - 1 for(day in window:numDays) { - print(length(workLoad[c((day-window):day)])) windowAverage <- mean(workLoad[c((day-window):day)]) - slidingAverage <- c(slidingAverage, windowAverage) } @@ -52,10 +50,10 @@ dataTibble <- tibble(TimeSinceAugFirst = window:numDays, slidingWorkAverage = sl ggplot(data = dataTibble) + theme(plot.title = element_text(hjust = 0.5)) + - ggtitle("Team's Total Daily Load Moving Average") + + ggtitle("Team's 7 Day Moving Average") + geom_point(mapping = aes(x=TimeSinceAugFirst, y=slidingWorkAverage)) + - labs(x = "Days Since August Twenty First 2017", y = "Teams Total Daily Load")+ + labs(x = "Days Since August Seventh 2017", y = "Teams Total Daily Load")+ theme_bw() -write.csv(dataTibble, "cleaned/slidingWorkAverage.csv") \ No newline at end of file +write.csv(dataTibble, "cleaned/slidingWorkAverageSevenDay.csv") \ No newline at end of file