извлекать строки из фрейма данных в r, если они соответствуют другому фрейму данных - PullRequest
Новая
       19

извлекать строки из фрейма данных в r, если они соответствуют другому фрейму данных

0 голосов
/ 03 мая 2018

Привет, у меня есть 2 кадра с 3 одинаковыми столбцами: home, посетитель и дата.

Я хотел бы извлечь строки из dataframe Италии, которые соответствуют newChamps при следующих условиях: 

newItaly$home == newChamps$home | newItaly$visitor == newChamps$visitor & newItaly$Date >newChamps$Date

newItaly и newChamps не имеют одинаковое количество строк.

Обновление:

Я все еще не могу правильно получить результаты. Это код: 

install_github('jalapic/engsoccerdata', username = "jalapic")
LoadLibraries <- function(){
  library(stringr)
  library(plyr)
  library(devtools)
  library(engsoccerdata)
}

ChampsData <- function(){
  filteredChamps <- champs[champs$hcountry == "ITA" | champs$vcountry == "ITA", ]
  finalChamps <- subset(filteredChamps, select = -c(round, leg, FT, HT, aet, pens, FTagg_home, FTagg_visitor, aethgoal, aetvgoal, tothgoal, totvgoal, totagg_home, totagg_visitor, tiewinner) )
  finalChamps$Date <- as.Date(finalChamps$Date, "%y/%m/%d")
  finalChamps[,"Results"] <- NA
  finalChamps$Results[finalChamps$hcountry == 'ITA' & finalChamps$hgoal > finalChamps$vgoal] <- "WIN"
  finalChamps$Results[finalChamps$hcountry == 'ITA' & finalChamps$hgoal < finalChamps$vgoal] <- "LOSS"
  finalChamps$Results[finalChamps$vcountry == 'ITA' & finalChamps$vgoal > finalChamps$hgoal] <- "WIN"
  finalChamps$Results[finalChamps$vcountry == 'ITA' & finalChamps$vgoal < finalChamps$hgoal] <- "LOSS"
  finalChamps$Results[finalChamps$vgoal == finalChamps$hgoal] <- "DRAW"
  finalChamps<-  finalChamps[order(finalChamps$Date),] 
  return(finalChamps)
}

ItalyData <- function(){
  amendedItaly<- subset(italy, italy$Season>1954 & italy$Season<2016)
  amendedItaly<-  amendedItaly[order(amendedItaly$Date),] 
  amendedItaly$Date <- as.Date(amendedItaly$Date, "%y/%m/%d")
  finalItaly <- subset(amendedItaly, select = -c(FT, tier) )
  finalItaly[,"Results"] <- NA
  finalItaly$Results <- ifelse(finalItaly$hgoal < finalItaly$vgoal, finalItaly$visitor, finalItaly$home)
  finalItaly$Results[finalItaly$hgoal == finalItaly$vgoal] <- "DRAW"
  return(finalItaly)
}



LoadLibraries()
newChamps <- ChampsData()
newItaly <- ItalyData()
t<- newItaly[which(newItaly$home %in% unique(newChamps$home) | newItaly$visitor %in% unique(newChamps$visitor) & newItaly$Date > newChamps$Date),]

В основном я пытаюсь сопоставить команды, которые играли в лиге чемпионов, и команды, которые играли в итальянской лиге, которые провели игру в середине недели, а другую - в конце недели. Например: если Милан играл 5/5/2018 (Лига чемпионов), а Милан играл 5/5/2018 (Итальянская лига)

1 Ответ

0 голосов
/ 03 мая 2018

Я думаю, что вы хотите сделать что-то вроде этого: 

newItaly[which(newItaly$home %in% unique(newChamps$home) | 
               newItaly$visitor %in% unique(newChamps$visitor) & 
               newItaly$Date > max(newChamps$Date) ),]

EDIT

which является необязательным, вы можете напрямую сделать: 

newItaly[newItaly$home %in% unique(newChamps$home) | 
         newItaly$visitor %in% unique(newChamps$visitor) & 
         newItaly$Date > max(newChamps$Date),]
...