R语言日期格式转换报错求助：数据框日期赋值异常问题

我来帮你搞定这个日期复制的格式问题！看起来你遇到的麻烦主要来自两个点：tibble的索引方式和目标数据框列的类型不匹配，咱们一步步来修复：

1. 先检查目标列的数据类型 #

首先你得确认var_list_DB里的var_date_start列是什么类型。如果它是字符型（character）或者其他非datetime类型，直接把<dttm>（也就是POSIXct/POSIXlt类型）的值塞进去，R会强制转换格式，结果肯定不对。

你可以先运行这条命令查看目标列的类型：

str(var_list_DB)

如果var_date_start不是datetime类型，先把它转成正确的类型：

# 用lubridate包（推荐）转换
library(lubridate)
var_list_DB$var_date_start <- as_datetime(var_list_DB$var_date_start)

# 或者用基础R的方法
var_list_DB$var_date_start <- as.POSIXct(var_list_DB$var_date_start)

如果var_date_start是新建的列，直接初始化datetime类型：

var_list_DB$var_date_start <- as.POSIXct(character(nrow(var_list_DB)))

2. 正确提取tibble中的单个日期值 #

你原来用var_data[1,"date"]提取的其实是一个只有一行一列的tibble子表，而不是单个datetime标量值。直接把这个子表赋值给var_list_DB$var_date_start[ii]，R无法正确解析，自然会出格式错误。

你需要用下面几种方法提取单个值：

# 方法1：用[[索引直接提取标量
var_list_DB$var_date_start[ii] <- var_data[[1, "date"]]

# 方法2：用dplyr的pull()提取整列后取元素
library(dplyr)
var_list_DB$var_date_start[ii] <- pull(var_data, date)[1]

# 方法3：用slice+pull精准定位行再提取
var_list_DB$var_date_start[ii] <- slice(var_data, 1) %>% pull(date)

同样，提取Tourists列的单个值时，也建议用var_data[[last, "Tourists"]]或者pull(var_data, Tourists)[last]，避免类似问题。

3. 更高效的单行赋值方案 #

如果你是在循环里处理行，其实可以试试用dplyr的方法直接赋值，避免循环的繁琐，也减少出错概率：

# 先准备要复制的单个行数据
new_data <- tibble(
  var_last = pull(var_data, Tourists)[nrow(var_data)],
  var_date_start = pull(var_data, date)[1]
)

# 如果是替换第ii行
var_list_DB[ii, c("var_last", "var_date_start")] <- new_data

# 如果是追加新行到var_list_DB
var_list_DB <- bind_rows(var_list_DB, new_data)

按照上面的步骤调整后，日期格式应该就能正常保留了～

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