循环 Date 或 POSIXct 对象会产生数字迭代器

Question

为什么迭代 Date 或 POSIXct 对象会产生 numeric？例如：

test = as.Date("2009-01-01")
print( class( test ) )
# [1] "Date"
for ( day in test )
{
    print( class( day ) )
}
# [1] "numeric"

POSIXct 也会发生同样的情况：

test = as.POSIXct("2009-01-01")
print( class( test ) )
# [1] "POSIXct" "POSIXt"
for ( day in test )
{
    print( class( day ) )
}
# [1] "numeric"

Answer 1

?"for" 表示 seq （in 之后的部分）是“[A]n 表达式计算一个向量（包括一个列表和表达式）或配对列表或“NULL””。

因此，您的 Date 向量被强制转换为 numeric，因为 Date 对象并不是严格意义上的向量：

is.vector(Sys.Date())
# [1] FALSE
is.vector(as.numeric(Sys.Date()))
# [1] TRUE

对于 POSIXct 也是如此。代码>向量：

is.vector(Sys.time())
# [1] FALSE
is.vector(as.numeric(Sys.time()))
# [1] TRUE

Answer 2

循环天（字符串）：

     days <- seq(from=as.Date('2011-02-01'), to=as.Date("2011-03-02"),by='days' )
     for ( i in seq_along(days) )
     {
          print(i)
           print(days[i])
      }

Answer 3

使用 for 循环时，您没有选择正确的函数来应用于 Date 向量。更好的方法是为几乎每个循环的日期或因素包装 seq_along 。然后你将做两件事：a) 设置它，以便你期望索引从 1 开始，b) 防止零长度向量发生奇怪的事情。我还认为最好将它与因子一起使用，for 循环会将其转换为字符向量。

参考约书亚的答案（这当然是正确且有帮助的），我认为 is.vector 函数有点标签错误或者可能只是被误解了。更准确的说法是 hasNoAttributesOtherThanName。大多数人认为“矢量”的属性是使用 is.atomic 和 Date 进行测试的，而 POSIXct 对象将返回 TRUE 从那个测试中。

Answer 4

看来实现 for 循环的 C 函数不会复制向量的任何属性。这还包括 class 属性，它应该使 i 看起来是一个 Date 对象。

您可以研究do_for(SEXP, SEXP, SEXP, SEXP)函数的源代码（R的for调用的函数）此处。

Answer 5

这是一个老问题，但我是 R 新手，也遇到了同样的问题。由于我的问题将并行处理，因此我使用了 foreach 和与正常的 for 相比，看到行为有所不同：

library(foreach)

start_date = as.Date("2013-08-1")
end_date = as.Date("2013-08-13")
days = seq(start_date, end_date, by = "day")

foreach(day = days, .combine='rbind') %dopar% {
  print(class(day))
}

[1] "Date"
[1] "Date"
[1] "Date"
[1] "Date"
...

由于我对大多数 R 的内部事物没有经验，因此我不知道为什么 foreach 最终有一种不同的行为，但对我的目的有用，希望对别人。

Answer 6

对日期对象的任何数值运算通常都会返回天数。在此，您要求它为您提供距该纪元的天数。 14245 是 1970-01-01 至 2009-01-01 之间的天数

？日期：

日期表示为数量
自 1970 年 1 月 1 日以来的天数，负数
较早日期的值。他们是
始终按照以下规则打印
现在的公历，甚至
虽然那个日历没有被使用
很久以前（1752 年通过）
英国及其殖民地）。

日期应该是
一个整数，但这不是强制的
在内部表示中。
当以下情况时，小数天数将被忽略：
印刷。可以生产
通过平均法计算的小数天数或
通过添加或减去（参见
行动日期）。

尝试添加 print(day) 来看看我的意思。

test = as.Date("2009-01-01")
print( class( test ) )
for ( day in test )
{
  print(day)
  print( class( day ) )
}

Answer 7

本身不是一个解决方案，但当您想要检查循环中的日期时，这是一个有用的技巧：

for( i.date in as.character(Sys.Date()) ){
cat(粘贴("日期:", i.date, "\n"))
只需

事先将其转换为字符即可。大多数过滤器不会打扰。