从可变函数调用内外的相同函数中获得不同的结果

Question

有人能向我解释一下为什么当我在Mutate中运行转换器ToDisplayTime函数时得到的结果与我自己运行它时不同吗？正确的结果是我自己运行它时获得的结果。还有，为什么我会收到这些警告？当我在可变函数中调用转换器ToDisplayTime时，感觉我可能会将整个timeIn秒列作为参数传递，但我不确定我是否真的了解这里的机制。

library('tidyverse')
#> Warning: package 'tibble' was built under R version 4.1.2

convertToDisplayTime <- function(timeInSeconds){
   ## Takes a time in seconds and converts it
   ## to a xx:xx:xx string format
   
   if(timeInSeconds>86400){   #Not handling time over a day
      stop(simpleError("Enter a time below 86400 seconds (1 day)"))
   } else if(timeInSeconds>3600){
      numberOfMinutes = 0
      numberOfHours = timeInSeconds%/%3600
      remainingSeconds = timeInSeconds%%3600
      
      if(remainingSeconds>60){
         numberOfMinutes = remainingSeconds%/%60
         remainingSeconds = remainingSeconds%%60
      }
      
      if(numberOfMinutes<10){displayMinutes = paste0("0",numberOfMinutes)} 
      else{displayMinutes = numberOfMinutes}
      
      remainingSeconds = round(remainingSeconds)
      if(remainingSeconds<10){displaySeconds = paste0("0",remainingSeconds)} 
      else{displaySeconds = remainingSeconds}
      
      return(paste0(numberOfHours,":",displayMinutes,":", displaySeconds))
      
   } else if(timeInSeconds>60){
      numberOfMinutes = timeInSeconds%/%60
      remainingSeconds = timeInSeconds%%60
      
      remainingSeconds = round(remainingSeconds)
      if(remainingSeconds<10){displaySeconds = paste0("0",remainingSeconds)} 
      else{displaySeconds = remainingSeconds}
      
      return(paste0(numberOfMinutes,":", displaySeconds))
      
   } else{
      return(paste0("0:",timeInSeconds))
   }
}


(df <- tibble(timeInSeconds = c(2710.46, 2705.04, 2691.66, 2708.10)) %>% mutate(displayTime = convertToDisplayTime(timeInSeconds)))
#> Warning in if (timeInSeconds > 86400) {: the condition has length > 1 and only
#> the first element will be used
#> Warning in if (timeInSeconds > 3600) {: the condition has length > 1 and only
#> the first element will be used
#> Warning in if (timeInSeconds > 60) {: the condition has length > 1 and only the
#> first element will be used
#> Warning in if (remainingSeconds < 10) {: the condition has length > 1 and only
#> the first element will be used
#> # A tibble: 4 x 2
#>   timeInSeconds displayTime
#>           <dbl> <chr>      
#> 1         2710. 45:10      
#> 2         2705. 45:5       
#> 3         2692. 44:52      
#> 4         2708. 45:8


convertToDisplayTime(2710.46)
#> [1] "45:10"
convertToDisplayTime(2705.04)
#> [1] "45:05"
convertToDisplayTime(2691.66)
#> [1] "44:52"
convertToDisplayTime(2708.10)
#> [1] "45:08"

^{创建于 2022-01-06 由 reprex 软件包 （v2.0.1）}

Answer 1

就像注释中提到的，这里的问题是你的函数没有矢量化：它使用输入的单个值并输出单个值。但是，当输入是值的向量时，这不起作用，因此条件的长度为 1，您会收到警告：

1: Problem with `mutate()` column `displayTime`.\
ℹ `displayTime = convertToDisplayTime(timeInSeconds)`.  
ℹ the condition has length > 1 and only the first element will be used 

在这里，当你使用dplyr：：mutate时，从技术上讲，你试图向你的函数提供一个向量，而这个向量没有被格式化来处理它。

您可以考虑以下几个选项：

1.“又快又丑”的方式:

df <- data.frame(timeInSeconds = c(2710.46, 2705.04, 2691.66, 2708.10))

## This one does not work
df %>% mutate(displayTime = convertToDisplayTime(timeInSeconds))

## This one works
df %>% 
  rowwise() %>% 
  mutate(displayTime = convertToDisplayTime(timeInSeconds)) %>% 
  ungroup()

dplyr：：rowwise（）允许dpryr：：mutate（）独立处理每一行，而不是按列处理。我想这是你最初期望的行为dplyr:：ungroup（）sorta按行还原，例如返回默认的按列行为。在这一点上我可能有点苛刻，但这是我以前在不太了解数据帧及其操作方式时使用的伎俩。。。

2. 直接从您的 dplyr 动词进行矢量化：

df %>% 
  mutate(displayTime = base::mapply(convertToDisplayTime, timeInSeconds))
## or
df %>% 
  mutate(displayTime = purrr::map_chr(timeInSeconds, convertToDisplayTime))

两种选择都相似。

3.矢量化您的函数：

convertToDisplayTime_vec <- base::Vectorize(convertToDisplayTime)
# class(convertToDisplayTime_vec)

df %>% mutate(displayTime = convertToDisplayTime_vec(timeInSeconds))

## or
convertToDisplayTime_vec2 <- function(timeInSeconds_vec) {
  mapply(FUN = convertToDisplayTime, timeInSeconds_vec)
}
# class(convertToDisplayTime_vec2)

df %>% 
  mutate(displayTime = convertToDisplayTime_vec2(timeInSeconds))

# Still works on single variables!
# convertToDisplayTime_vec2(6475)

这是我最喜欢的选项，因为一旦它被实现，你就可以在单个变量、向量或数据帧上使用它，而不用担心它。

一个小留档来深入研究这个话题。

PS：顺便说一句，有一点值得记住：在操作data.frame和tibble对象时，您可能需要小心。尽管它们相似，但它们略有不同，并且某些功能与一个或另一个函数的处理方式不同，或者实际上将一个转换为另一个而您没有注意到...