如何用read_table在R中导入含日期时间列的TXT文件并保留格式？

你的问题核心是表头列数和实际数据列数不匹配：原表头只有6个字段，但每行数据实际是8列（DATE对应日期+时间两列，A_DATE也对应日期+时间两列），导致read_table无法正确识别列结构，全部转为字符类型。以下是几种完整保留所有列的解决方案：

方法一：手动指定列名与数据类型（base R） #

直接跳过原表头，手动定义完整的8列列名，并指定每列的数据类型：

# 导入数据，跳过原表头行
df <- read.table("data.txt", 
                 skip = 1,  # 跳过第一行的原表头
                 col.names = c("DATE", "TIME", "ID_1", "NB", "A_DATE", "A_TIME", "ID_2", "IOD"),
                 colClasses = c("Date", "character", "integer", "integer", "Date", "character", "integer", "integer"))

# 可选：将日期+时间合并为POSIXct类型的时间列
df$DATETIME <- as.POSIXct(paste(df$DATE, df$TIME), format = "%Y-%m-%d %H:%M:%S")
df$A_DATETIME <- as.POSIXct(paste(df$A_DATE, df$A_TIME), format = "%Y-%m-%d %H:%M:%S")

方法二：用readr包精细化控制（tidyverse风格） #

如果习惯用tidyverse工具，readr::read_table支持更灵活的列类型定义：

library(readr)
library(dplyr)

df <- read_table("data.txt",
                 skip = 1,
                 col_names = c("DATE", "TIME", "ID_1", "NB", "A_DATE", "A_TIME", "ID_2", "IOD"),
                 col_types = cols(
                   DATE = col_date(format = "%Y-%m-%d"),
                   TIME = col_time(format = "%H:%M:%S"),
                   ID_1 = col_integer(),
                   NB = col_integer(),
                   A_DATE = col_date(format = "%Y-%m-%d"),
                   A_TIME = col_time(format = "%H:%M:%S"),
                   ID_2 = col_integer(),
                   IOD = col_integer()
                 ))

# 合并日期时间列
df <- df %>% 
  mutate(DATETIME = as.POSIXct(paste(DATE, TIME)),
         A_DATETIME = as.POSIXct(paste(A_DATE, A_TIME)))

方法三：自动适配表头（无需手动数列数） #

如果文件列数较多，可先无表头导入，再动态调整列名：

# 第一步：导入所有内容（含原表头）
df_raw <- read.table("data.txt", header = FALSE, stringsAsFactors = FALSE)

# 第二步：提取原表头并构造新列名
original_header <- as.character(df_raw[1, ])
new_colnames <- c("DATE", "TIME", original_header[2:3], "A_DATE", "A_TIME", original_header[5:6])
# 重命名重复的ID列避免冲突
new_colnames[3] <- "ID_1"
new_colnames[7] <- "ID_2"

# 第三步：提取数据行并设置列名
df <- df_raw[-1, ]
colnames(df) <- new_colnames

# 第四步：转换数据类型
df$DATE <- as.Date(df$DATE)
df$TIME <- as.character(df$TIME)
df$ID_1 <- as.integer(df$ID_1)
df$NB <- as.integer(df$NB)
df$A_DATE <- as.Date(df$A_DATE)
df$A_TIME <- as.character(df$A_TIME)
df$ID_2 <- as.integer(df$ID_2)
df$IOD <- as.integer(df$IOD)

关键说明 #

• 原表头的DATE和A_DATE各自对应数据中的两列（日期+时间），必须补全列名才能让R正确识别列边界。
• 若不需要单独保留日期和时间列，可直接将合并后的DATETIME作为有效列，删除拆分后的日期、时间列。

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