按行计算平均时间

Question

我试图计算数据帧中每行的平均时间，并将结果放入仅包含平均时间的一列中的另一个数据帧中，但对于每一行，我得到相同的结果。

我的 dafaframe (df)：

X      X2015.01.01    X2015.01.02       X2015.01.05        X2015.01.06
<time>      <time>         <time>             <time>           <time>
NA secs     NA secs    7.702222 hours   7.578889 hours  8.056667 hours  
NA secs     NA secs    6.682778 hours   6.664722 hours  6.567500 hours  
NA secs     NA secs    6.738056 hours   6.054722 hours  6.621667 hours  
NA secs     NA secs    9.473611 hours   NA hours        9.573889 hours  

我尝试过的：

df_2 <- data.frame(matrix(nrow=nrow(df)))
for (i in 1:ncol(df)) {
  df_2$i<- mean(df[,i],na.rm = TRUE)
}

df_2

matrix.nrow...nrow.df.. mean
<lgl>                  <time>
NA                      7.708015 hours              
NA                      7.708015 hours          
NA                      7.708015 hours  

df

df <- data.frame(structure(list(
  X = 
    structure(c(NA_real_, NA_real_, NA_real_, NA_real_), 
              class = "difftime", 
              units = "secs"), 
  
    X2015.01.01 =
    structure(c(NA_real_, NA_real_, NA_real_, NA_real_), 
              class = "difftime",
              units = "secs"), 
    X2015.01.02 = 
    structure(c(7.20833333333333, 8.10916666666667, 
    6.6925, 7.33833333333333),
    class = "difftime", 
    units = "hours"), 
  
    X2015.01.03 = 
    structure(c(7.578889, 6.664722, 
    6.054722 , NA_real_),
    class = "difftime", 
    units = "hours"),

    X2015.01.04 = 
    structure(c(8.056667 , 6.567500 , 
    6.621667  , 9.573889 ),
    class = "difftime", 
    units = "hours")

)))

Answer 1

将您的列转换为 lubridate 中可用的 duration 有助于进行计算：

df %>%
    mutate(across(everything(), ~ as.duration(.x))) %>%
    mutate(totalDuration = rowSums(.[1:5], na.rm = TRUE),
           avgDurationSecs = totalDuration / 5,
           avgDurationHours = dhours(avgDurationSecs / (60*60))) %>%
    glimpse()

您还可以使用 dhours 等获得更多单位。

Answer 2

我发现我可以简单地将时间转换为数字，然后使用 rowMeans

for (i in 1:ncol(df)){
  df[i]<-lapply(df[i], as.numeric)
}

df$avg<-rowMeans(df,na.rm=TRUE)

如果您想将其放入另一个数据帧中。

df_2 <- data.frame(df$avg)