R for for循环与类型转换

Question

为什么下面的代码不是打印日期而是整数？

> for (t in seq(as.Date('20090101','%Y%m%d'),as.Date('20090105','%Y%m%d'),1)) 
+ { 
+ print(t) 
+ } 
[1] 14245 
[1] 14246 
[1] 14247 
[1] 14248 
[1] 14249 

Answer 1

正如@flodel建议，for循环保存类型，而不是类：

h <- seq(as.Date('20090101','%Y%m%d'),as.Date('20090105','%Y%m%d'),1) 
class(h) 
[1] "Date" 
> typeof(h) 
[1] "double" 

解决方法：

使用矢量化版本：

print(seq(as.Date('20090101','%Y%m%d'),as.Date('20090105','%Y%m%d'),1)) 

或循环序列索引并用[检索日期：

for (i in seq_along(h)) { 
    dt <- h[i] 
    print(dt) 
} 


[1] "2009-01-01" 
[1] "2009-01-02" 
[1] "2009-01-03" 
[1] "2009-01-04" 
[1] "2009-01-05"