遍历日期序列出现异常数字的原因及解决方法（R语言）

问题现象 #

用lubridate包的ymd()生成起始日期，再通过seq()生成的日期序列date_seq本身显示正常，但直接用for(i in date_seq) print(i)遍历输出时，得到的是类似[1] 19442的数字，而非预期的日期格式；但改用for (i in seq_along(date_seq)) print(date_seq[i])遍历就能正常显示日期。

原因解析 #

R中的Date类型对象本质是带特殊类属性的数值：底层存储的是从1970-01-01开始计算的天数（比如19442就对应2023-03-22），只是通过Date类属性让R以日期格式显示。
当用for(i in date_seq)直接遍历序列元素时，循环会剥离元素的Date类属性，只取出底层的原始数值，因此print(i)输出的是数值而非日期。
而通过seq_along(date_seq)获取索引，再用date_seq[i]访问元素时，会保留元素的Date类属性，所以能正常渲染为日期格式。

修正方法 #

方法1：通过索引遍历（最常用） #

直接遍历序列的索引位置，再通过索引访问元素，保留其Date属性：

for (i in seq_along(date_seq)) print(date_seq[i])

方法2：循环内转换回Date类型 #

将遍历得到的数值重新转换为Date类型，指定起始原点为1970-01-01：

for(i in date_seq) print(as.Date(i, origin = "1970-01-01"))

方法3：使用保留属性的遍历函数 #

用lapply这类会保留元素类属性的函数遍历：

lapply(date_seq, print)

内容的提问来源于stack exchange，提问作者Petyo Zhechev