H2H матчи по футболу R программирование

Question

Есть ли вероятность того, что вам не придется писать название футбольных команд, чтобы увидеть H2H?

У меня есть эти оригинальные переменные:

Country    League    Season     Month monthDay  weekDay  Time  HomeTeam  AwayTeam  
Denmark    Superliga 2012/2013  July        13  Friday   17:30 Aarhus    Aalborg

и создал новые переменные, выполнив:

datafootball <-datafootball[, H2H := as.factor(paste0(HomeTeam,"-", AwayTeam)) ]  
datafootball <-datafootball[, H2Hinverse := as.factor(paste0(AwayTeam,"-", HomeTeam)) ].

Новые переменные:

H2H            H2Hinverse
Aarhus-Aalborg Aalborg-Aarhus

Если я хочу проверить H2H между командами (все строки), я могу сделать это, написав названия участвующих команд:

 datafootball[datafootball$H2H == "Aalborg-Aarhus" | datafootball$H2H == "Aarhus-Aalborg" , ]

Затем я снова спрашиваю:

Есть ли вероятность того, что вам не придется писать название футбольных команд, чтобы увидеть H2H? Может быть, функция. Возможно, используйте HomeTeam и AwayTeam вместо H2H и H2Hinverse.

Критерий:

На основе предстоящих матчей, которые будут сыграны. То есть, если предположить, что следующей игрой будет Barcelona Real Madrid:

HomeTeam   AwayTeam  
Barcelona  Real Madrid

Я хочу показать, как H2H играет дома и играет в качестве посетителя. Но из-за большого количества игр в неделю и нескольких лиг я не хотел бы писать названия команд и выходить по очереди.

Прошу прощения за вопрос, но я не опытный программист и ничего не могу придумать.

Большое спасибо.

Answer 1

Нет необходимости в H2H и H2H_inverse (я думаю) ... Я добавил несколько строк ваших данных, для целей тестирования ..

library(data.table)

datafootball  <- read.table(text="Country    League    Season     Month monthDay  weekDay  Time  HomeTeam  AwayTeam  
Denmark    Superliga 2012/2013  July        13  Friday   17:30 Aarhus    Aalborg
                            Denmark    Superliga 2012/2013  July        13  Friday   17:30 Aarhus    Barcelona
                            Denmark    Superliga 2012/2013  July        13  Friday   17:30 Aalborg    Aarhus", header = TRUE) %>% setDT

datafootball
#    Country    League    Season Month monthDay weekDay  Time HomeTeam  AwayTeam
# 1: Denmark Superliga 2012/2013  July       13  Friday 17:30   Aarhus   Aalborg
# 2: Denmark Superliga 2012/2013  July       13  Friday 17:30   Aarhus Barcelona
# 3: Denmark Superliga 2012/2013  July       13  Friday 17:30  Aalborg    Aarhus

#give name of teams you want to see the H2H-matches of
teams <- c("Aalborg", "Aarhus")

#return all matches where both teams are playing
datafootball[HomeTeam %in% teams & AwayTeam %in% teams,]

#    Country    League    Season Month monthDay weekDay  Time HomeTeam AwayTeam
# 1: Denmark Superliga 2012/2013  July       13  Friday 17:30   Aarhus  Aalborg
# 2: Denmark Superliga 2012/2013  July       13  Friday 17:30  Aalborg   Aarhus