使用floor_date时Lubridate报错：同一代码在不同数据框表现不同？

核心原因 #

• 日期列类型不匹配：seamless_user_reg_date是R可识别的标准日期类型（Date或POSIXct），因此range()返回的是日期类向量，lubridate::floor_date()可以直接处理；但opt_meeting_booked_date实际是普通字符串类型——尽管range()输出看起来像日期，但返回的是字符串向量，floor_date()无法直接解析这种类型，内部处理时会尝试按日期对象的结构访问元素，最终触发subscript out of bounds（下标越界）错误。

验证方法 #

你可以用class()函数检查两列的类型：

class(data1$seamless_user_reg_date)
class(data1$opt_meeting_booked_date)

前者会返回"Date"或类似日期类，后者大概率返回"character"。

解决方案 #

先将字符串类型的日期列转换为标准日期类型，再执行取整操作：

方法一：提前转换列类型 #

# 转换为日期类型（假设日期格式是YYYY-MM-DD）
data1$opt_meeting_booked_date <- lubridate::ymd(data1$opt_meeting_booked_date)
# 再执行取整
lubridate::floor_date(range(data1$opt_meeting_booked_date), "month")

方法二：一次性处理 #

如果不想修改原数据框，可以直接在调用时转换：

lubridate::floor_date(lubridate::ymd(range(data1$opt_meeting_booked_date)), "month")

执行后就能得到你期望的结果：

[1] "2021-06-01" "2022-05-01"

内容的提问来源于stack exchange，提问作者Juan Lozano