将时间值设置到数据框单元格中

我正在尝试将时间值设置到数据框中：

ps = data.frame(t(rep(NA, 2)))
ps[1,1] = strptime('10:30:00', '%H:%M:%S')

但我收到错误：

provided 9 variables to replace 1 variables

由于时间值是​​ R 中的列表（？），它认为我正在尝试设置 9 列，而实际上我只想将一列设置为该类。

我该怎么做才能正确设置此设置？

这是由于以下结果strptime()成为类的对象"POSIXlt":

> ps = data.frame(t(rep(NA, 2)))
> ps[1,1] = strptime('10:30:00', '%H:%M:%S')
Warning message:
In `[<-.data.frame`(`*tmp*`, 1, 1, value = list(sec = 0, min = 30L,  :
  provided 9 variables to replace 1 variables
> strptime('10:30:00', '%H:%M:%S')
[1] "2012-03-21 10:30:00"
> class(strptime('10:30:00', '%H:%M:%S'))
[1] "POSIXlt" "POSIXt"

A "POSIXlt"对象是一个列表表示（因此lt而不是ct在类名中）的时间：

> foo <- strptime('10:30:00', '%H:%M:%S')
> str(foo)
 POSIXlt[1:1], format: "2012-03-21 10:30:00"
> unclass(foo)
$sec
[1] 0

$min
[1] 30

$hour
[1] 10

$mday
[1] 21

$mon
[1] 2

$year
[1] 112

$wday
[1] 3

$yday
[1] 80

$isdst
[1] 0

A "POSIXlt"object 是一个长度为 9 的列表：

> length(unclass(foo))
[1] 9

因此，当对象被剥离回其组成部分/表示时，会出现警告消息。你可以贴"POSIXct"表示而不生成警告：

> ps[1,1] = as.POSIXct(strptime('10:30:00', '%H:%M:%S'))
> ps[1,1]
[1] 1332325800

但我们仍然丢失班级信息。不过，您仍然可以返回"POSIXct"表示稍后使用as.POSIXct()函数，但您需要指定origin争论。看?POSIXct了解更多。

> class(ps[1,1])
[1] "numeric"

解决办法就是强制ps$X1上课"POSIXct" before插入时间：

> ps = data.frame(t(rep(NA, 2)))
> ps <- transform(ps, X1 = as.POSIXct(X1))
> ps[1,1] <- as.POSIXct(strptime('10:30:00', '%H:%M:%S'))
> ps
                   X1 X2
1 2012-03-21 10:30:00 NA
> str(ps)
'data.frame':   1 obs. of  2 variables:
 $ X1: POSIXct, format: "2012-03-21 10:30:00"
 $ X2: logi NA

没有警告（和之前一样as.POSIXct()）而且类信息也被保留，而之前丢失的地方。一定要读?`[.data.frame`，特别是Coercion有一些细节的部分；但我的看法是，理解这样的替换中的强制是很棘手的。