在R中使用as.POSIXct转换字符串列及拆分时段数据的技术求助

你的问题核心是原始数据是两个完整日期时间拼接的时间段字符串，直接用as.POSIXct无法匹配格式，且目标是拆分出日期和时间段列，以下是具体解决方法：

方法一：使用tidyr+lubridate+dplyr（推荐） #

先加载依赖包：

library(tidyr)
library(lubridate)
library(dplyr)

执行数据处理：

# 拆分原始时间段为起始和结束日期时间字符串
data <- data %>%
  separate(date, into = c("start_dt", "end_dt"), sep = "- ")

# 提取日期、拆分时间并组合成目标格式
data <- data %>%
  mutate(
    # 提取日期（因起始/结束日期相同，取起始日期即可）
    date = format(dmy_hms(start_dt), "%d.%m.%Y"),
    # 提取起始和结束时间
    start_time = format(dmy_hms(start_dt), "%H:%M"),
    end_time = format(dmy_hms(end_dt), "%H:%M"),
    # 组合成目标时间段格式
    time = paste(start_time, end_time, sep = " - ")
  ) %>%
  # 保留需要的列
  select(date, time)

方法二：基础R实现 #

如果不想加载额外包，用基础R代码处理：

# 拆分原始字符串为起始、结束日期时间
split_dt <- strsplit(data$date, "- ")
start_dt <- sapply(split_dt, `[`, 1)
end_dt <- sapply(split_dt, `[`, 2)

# 生成date和time列
data$date <- format(as.POSIXct(start_dt, format = "%d.%m.%Y %H:%M:%S", tz = "Europe/Berlin"), "%d.%m.%Y")
data$time <- paste(
  format(as.POSIXct(start_dt, format = "%d.%m.%Y %H:%M:%S", tz = "Europe/Berlin"), "%H:%M"),
  format(as.POSIXct(end_dt, format = "%d.%m.%Y %H:%M:%S", tz = "Europe/Berlin"), "%H:%M"),
  sep = " - "
)

# 保留目标列
data <- data[, c("date", "time")]

关键说明 #

• 原始日期格式是日.月.年 时:分:秒，所以转换时要对应格式字符串%d.%m.%Y %H:%M:%S，之前用%Y-%m-%d是格式不匹配导致失败的原因。
• 如果存在跨天的时间段（起始和结束日期不同），可根据需求调整date列的生成逻辑（比如保留起始日期或新增结束日期列）。

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