R：循环遍历多个列并使用函数中的所有列？

Question

在 R 中：如何循环遍历多个列并使用自定义函数，该函数从每个列中获取一个参数并相应地修改这些列？

例如我有以下数据框：

> head(runTimeSep)
  hours   h minutes  min
1    70 min      NA <NA>
2    21 min      NA <NA>
3   106 min      NA <NA>
4    75 min      NA <NA>
5    14 min      NA <NA>
6    82 min      NA <NA>
7     1 h        11 min

我的目标是在小时列中获取总分钟列表。如果“1h”列在小时和 h 列中，则将小时转换为分钟并添加分钟列中的分钟（或不添加任何内容，这是一个完美的小时，分​​钟列中包含 NA）。

因此，我创建了以下函数以应用于数据框：

# convert hours to minutes function
hoursToMins = function(hours, h, minutes, min) {
  if (h == 'h' && min == "min") {
    (hours = as.numeric(hours)*60+as.numeric(minutes))
  }
  if (h=="h" && min != "min") {
    (hours = as.numeric(hours)*60)
  }
}

如何将此函数应用于数据框中的所有列？例如。使用 lapply、ddpply 等。

编辑：我还尝试了以下操作：

finalRunTime = ifelse(runTimeSep$h == "h", runTimeSep$hours*60,               runTimeSep$hours)
head(finalRunTime)  
runTimeSep$hours = finalRunTime

效果很好。但是当我尝试应用第二轮 ifelse 时：

finalRunTime = ifelse(runTimeSep$min == "min", runTimeSep$hours +  runTimeSep$minutes, runTimeSep$hours)
head(finalRunTime)
runTimeSep$hours = finalRunTime

第二轮导致 else 情况（如果没有分钟列）变为 NA。请帮忙。谢谢。

回应@Sandipan 的回答： 如何使用 which 来区分 min 列是 'min' 还是 NA？
我试过了：

indices <- which(runTimeSep$h == 'h' && runTimeSep$min != 'min')
runTimeSep[indices,]$hours <- 60*runTimeSep[indices, ]$hours

indices <- which(runTimeSep$h == 'h' && runTimeSep$min == 'min')
runTimeSep[indices,]$hours <- 60*runTimeSep[indices, ]$hours + 
  runTimeSep[indices,]$minutes

但是，两组索引都返回空集。

Answer 1

这将为您逐行提供分钟向量，如果您想要其总数，则只需将 sum() 包裹在其周围：

with( dat,   (h=="h")*60*hours + (h=="min")*hours + 
                                             ifelse( is.na(minutes), 0, minutes) )

[1]  70  21 106  75  14  82  71

当分钟为 NA 时，它用 0 代替 NA。当需要具有这些值的新列时，您可以这样做：

 dat$newmins <- with( dat, (h=="h")*60*hours + (h=="min")*hours + 
                                             ifelse( is.na(minutes), 0, minutes) )

Answer 2

你想要这样的东西：

indices <- which(runTimeSep$h == 'h')
runTimeSep[indices,]$hours <- 60*runTimeSep[indices, ]$hours + 
                              runTimeSep[indices,]$minutes