从R中的CSV文件读取时间

Question

我想读取一个以“;”分隔的CSV文件 其中包含四列，例如：

16/12/2006;17:24:00;0;1
16/12/2006;17:25:00;2;3
16/12/2006;17:26:00;4;5

但是我想要一个3列而不是4列的数据框（也就是说，将前两列的日期和小时合并为一个）。

到目前为止，我提出了这部分代码，其灵感来自在read.table / read.csv中为colClasses参数指定自定义日期格式来读取数据。 然后，我将以某种方式合并两列。

setClass("myDate")
setAs("character","myDate", function(from) as.Date(from, format="%d/%m/%Y") )
setClass("myTime")
setAs("character","myTime", function(from) as.Date(from, format="%H:%M:%S") )

data <- read.table(file = "file.csv", header = FALSE, sep = ";", colClasses =  c("myDate", "myTime", "numeric", "numeric"))

但是，结果数据帧确实具有第V2列，其中无法正确读取小时。

          V1         V2 V3 V4
1 2006-12-16 2016-03-04  0  1
2 2006-12-16 2016-03-04  2  3
3 2006-12-16 2016-03-04  4  5

myTime类定义不正确吗？ 如果是这样，我应该如何更改？

Answer 1

您为什么要在导入期间而不是之后执行此特定操作？ 导入4列，使用paste合并日期和时间，然后使用lubridate包及其dmy_hms函数将其转换为正确的日期时间似乎要容易得多：

require(lubridate)
data <- read.table(file = "file.csv", header = FALSE, sep = ";")
data$date_time <- paste(data$V1, data$V2)
data$date_time <- dmy_hms(data$date_time)
data[1:2] <- list(NULL)