在某些情况下,我试图将芝加哥小熊队的所有主场胜利加起来。因此,W_L 列指的是胜利(“W”)和失败(“L”)。此外,H_A 列指的是主场比赛(“H”)和客场比赛(“A”)。
当另一列的值为“H”时,我无法从一列添加值“W”的总数。下面是我尝试使用的代码。
setwd("blah blah blah")
br <- read.csv(file="Baseball-Reference.csv", h=T)
record <- function(){
wins <- sum(br$W_L[!is.na(br$W_L)] == "W")
losses <- sum(br$W_L[!is.na(br$W_L)] == "L")
wp <- round(wins/games, digits = 3)
home_wins <- if(br$H_A[!is.na(br$H_A)] == "H"){
wins <- sum(br$W_L[!is.na(br$W_L)] == "W")}
}
如果我运行它,我会收到警告。
Warning message:
In if (br$H_A[!is.na(br$H_A)] == "H") { :
the condition has length > 1 and only the first element will be used