TPD-InternationalFootballRe.../Server/DataProcessor.R

51 lines
1.2 KiB
R
Raw Normal View History

2019-05-15 19:56:07 +02:00
#
# DATA PROCESSING
#
# Get matches
getMatchesList <- function(matchesData, first_team, second_team) {
return(
matchesData %>%
filter(home_team %in% c(first_team, second_team)
& away_team %in% c(first_team, second_team))
)
2019-05-15 19:56:07 +02:00
}
2019-05-19 00:07:35 +02:00
getMatchesForTeam <- function(matchesData, team) {
return(
matchesData %>%
filter(home_team == team | away_team == team)
)
}
# Mathes filters
filterByDate <- function(matchesData, dateFrom, dateTo) {
return(
matchesData %>%
filter(as_date(date) >= dateFrom & as_date(date) <= dateTo)
)
}
# Get balance
2019-05-15 19:56:07 +02:00
getBalance <- function(football_data) {
balance <- football_data %>%
count(winner, sort = TRUE)
return(balance)
}
getBalancePercentage <- function(balance) {
balancePerc <- balance %>%
2019-05-16 00:37:48 +02:00
mutate(percentage = n/sum(.$n))
2019-05-19 01:33:04 +02:00
}
getBalanceForTeam <- function(football_data, team) {
balance_full <- football_data %>%
count(winner, sort = TRUE)
balance <- balance_full[(balance_full$winner %in% c(team, "Draw")),]
other_sum <- sum(balance_full[!(balance_full$winner %in% c(team, "Draw")),]$n)
balance <- balance %>%
rbind(c("Other", other_sum))
balance <- balance %>%
mutate(n = as.numeric(as.character(n)))
return(balance)
2019-05-15 19:56:07 +02:00
}