板球代码的循环不成功

Question

我需要计算一名击球手在给定的板球数据库中得分的4和6的数量。

以下是我的代码：

runs_batsman = ballbyball[,c("Batter","RunsBatsman")]

fours = data.frame(bat_name)
numoffours = function(name)
{counter = 0
for(i in nrow(ballbyball))
 {
if((identical(toString(name),toString(runs_batsman[i,1]))))
  {
  if(runs_batsman[i,2]== 4)
    {
    counter = (counter + 1)
    }

   }
}
 return(counter)
}

summary = function(dataset){
fours[,"numfours"]=0
for (j in nrow(bat_name)){
  fours[j,2] = lapply(bat_name[j,1], numoffours)
 }
 return(fours)
}

我没有为任何击球手获得任何价值。 bat_name是包含所有击球手名字的数据框。请帮帮我。

我是R的新手，所以请尽可能详细解释。