使用lubridate中的parse_date_time()解析的日期在与tibble合并时会丢失其格式

library(lubridate)
library(tibble)

# 示例数据
date_str <- "2023-04-30 12:34:56"
date_time <- parse_date_time(date_str, "ymd HMS")

# 创建tibble并存储日期时间对象
df <- tibble(date_time = date_time)

# 查看结果
print(df)

library(lubridate)
library(tibble)

# 示例数据
date_str <- "2023-04-30 12:34:56"
date_time <- parse_date_time(date_str, "ymd HMS")

# 转换为字符类型
date_time_char <- as.character(date_time)

# 创建tibble并存储字符类型的日期时间
df <- tibble(date_time = date_time_char)

# 查看结果
print(df)

library(lubridate)
library(tibble)

# 示例数据
date_str <- "2023-04-30 12:34:56"
date_time <- parse_date_time(date_str, "ymd HMS")

# 创建两个tibble
df1 <- tibble(id = 1, date_time = date_time)
df2 <- tibble(id = 1, value = 100)

# 合并数据框并指定列类型
result <- left_join(df1, df2, by = "id") %>%
  mutate(date_time = as.POSIXct(date_time))

# 查看结果
print(result)