将经过时间（HH：MM：SS）从excel导入R答案

【问题标题】：Importing elapsed time (HH:MM:SS) from excel into R将经过时间（HH：MM：SS）从excel导入R
【发布时间】：2021-03-18 06:07:36
【问题描述】：

我是 R 初学者。我在一个 excel 工作簿中有数据，其中包含一些变量，这些变量包含存储为 HH:MM:SS 的经过时间。它们目前在 R 中作为日期和时间导入，因为这就是 excel 存储基础数据的方式。我想在阅读工作表时将这些变量作为持续时间（以秒为单位）导入 R。我一直在阅读有关 lubridate 的内容，但不知道如何告诉 R 将这些列作为持续时间导入。

数据如下所示：

var1   var2   var3   time1     time2
blue   yes    5      00:00:05  00:00:09
red    no     7      00:04:02  00:05:04
blue   no     9      00:01:06  00:02:05

导入时间的样子

1899-12-31 00:00:05

我已经阅读了很多主题和网页，但我似乎无法找到我认为与我的问题相关的示例。可能有一种非常简单的方法可以做到这一点，但我忽略了。非常感谢任何帮助。

编辑：应该说明我正在使用 readxl 并遇到此问题。

library(readxl)
df <- read_excel("data.xlsx", sheet = "sheet1")

当我这样做时，HH:MM:SS 列显示如下：

1899-12-31 00:00:05

【问题讨论】：

标签： r excel time lubridate

【解决方案1】：

得到帮助并想出了这个解决方案：

library(tidyverse)
library(readxl)
library(lubridate)

data.df <- read_excel("data.xlsx", sheet = "sheet1")

# Create new var and format to H:M:S (remove date)
data.df$newvar=format(data.df$time1,format="%H:%M:%S")

# Convert time to minutes and seconds with hms
data.df$newvar <- lubridate::hms(data.df$newvar)

# Convert to total seconds
data.df$newvar <- period_to_seconds(data.df$newvar)

【讨论】：

【解决方案2】：

请使用xlsx 包尝试这种方法：

library(xlsx)
#Code
data <- read.xlsx('Myfile.xlsx','Sheet1',colClasses = 'character')

当加载到R 时，你会得到这个：

【讨论】：

【解决方案3】：

还有一个包openxlsx

library("openxlsx")
    
df <- read.xlsx('my_file.xlsx', sheet = 1, startRow = 1, colNames = TRUE) 
df

  var1 var2 var3    time1    time2
1 blue  yes    5 00:00:05 00:00:09
2  red   no    7 00:04:02 00:05:04
3 blue   no    9 00:01:06 00:02:05

【讨论】：