R/manipulation.R

In freechelor/defects:

res.replicate <- res[rep(row.names(res), myreslength(res$TEST.RESULT)),]
causes <- resultlist(res$TEST.RESULT)

finalres <- cbind(res.replicate, causes)

token <- t(as.data.frame(strsplit(as.character(convertToDateTime(finalres$DATE)), ' ')))
row.names(token)=NULL
finalres$DATE = token
finalres$DATE <- finalres$DATE[,1]

finalres<-mutate(finalres, month=month(DATE))
finalres<-mutate(finalres, year=year(DATE))

stats <- finalres %>% group_by(COMPANY, `MODEL.#`, year, month, causes ) %>% summarise(count=n())

stats$month <- convertTo2digitMonth(stats$month)
statsyearMon <- data.frame(yearMon=paste(stats$year,"-", stats$month, sep=""))
statsfinal <- data.frame(stats)

statsfinal <- cbind(statsfinal, statsyearMon)

statspread <- spread(statsfinal, yearMon, count)
statspread %>% group_by(COMPANY, `MODEL..`, causes)

final <- cbind(statspread[,1:2],statspread[,5:length(statspread)])

#aggr <- aggregate(final[c("2018-12", "2019-01")], by=final[c("COMPANY", "MODEL..", "causes")], FUN = function(x){sum(as.numeric(as.character(x)),na.rm=TRUE)})
aggr <- aggregate(final[seq(4,44)], by=final[c("COMPANY", "MODEL..", "causes")], FUN = function(x){sum(as.numeric(as.character(x)),na.rm=TRUE)})
#just to check first company
aggr[order(aggr$COMPANY, decreasing=FALSE),]