r - r - 创建函数来计算数据集中过滤行的计数

Question

我正在尝试创建一个辅助函数，该函数将根据参数计算 data.frame 中有多少行。

getTotalParkeds <- function(place, weekday, entry_hour){
  data <- PARKEDS[
                  PARKEDS$place      == place,
                  PARKEDS$weekday    == weekday,
                  PARKEDS$entry_hour == entry_hour
                  ]
  return(nrow(data))
}

然后我像这样运行：

getTotalParkeds('MyPlace', 'mon', 1)

所以它返回这个错误：

Warning: Error in : Length of logical index vector must be 1 or 11 (the number of columns), not 10000

我对 R 完全陌生，所以我不知道发生了什么。

标签： r

Answer 1

这是您的方法所需的更正 -

getTotalParkeds <- function(place, weekday, entry_hour){
  data <- PARKEDS[
                  PARKEDS$place      == place &
                  PARKEDS$weekday    == weekday &
                  PARKEDS$entry_hour == entry_hour,
                  ]
  return(nrow(data))
}