如何将指定文本文件转换为美观的RMarkDown表格？

你的txt文件内容是带竖线分隔的类Markdown表格格式，之前失败的核心原因是没正确处理竖线分隔符和表头下的分隔线，以下是具体解决方案：

单文件处理 #

方法1：基础R实现 #

直接用read.table读取，指定分隔符并跳过无用行，再清理空列：

# 读取文件，关键参数：sep指定分隔符，skip跳过第二行的分隔线，strip.white去除单元格空格
df <- read.table("你的文件名.txt", 
                 sep = "|", 
                 header = TRUE, 
                 skip = 1, 
                 strip.white = TRUE, 
                 stringsAsFactors = FALSE)

# 删除首尾因竖线产生的空列
df <- df[, -c(1, ncol(df))]

# 用kable生成美观表格
library(knitr)
kable(df, caption = "加热器参数表")

方法2：tidyverse工具更简洁 #

用readr包的read_delim读取，自动处理空格并过滤空列：

library(readr)
library(dplyr)

df <- read_delim("你的文件名.txt", 
                 delim = "|", 
                 skip = 1, 
                 trim_ws = TRUE, 
                 show_col_types = FALSE) %>%
  # 移除全空的列（首尾的空列）
  select(-where(~all(is.na(.))))

# 用kableExtra美化表格
library(kableExtra)
kable(df, caption = "加热器参数表") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover"))

批量处理多个txt文件 #

如果要一次性处理所有txt文件，用purrr批量读取并生成表格：

library(tidyverse)
library(knitr)
library(kableExtra)

# 获取当前目录下所有txt文件路径
file_list <- list.files(pattern = "\\.txt$", full.names = TRUE)

# 循环处理每个文件，生成带标题的表格
walk(file_list, function(file_path) {
  # 读取并清理数据
  df <- read_delim(file_path, 
                   delim = "|", 
                   skip = 1, 
                   trim_ws = TRUE, 
                   show_col_types = FALSE) %>%
    select(-where(~all(is.na(.))))
  
  # 输出文件名为小标题
  cat("\n###", basename(file_path), "\n")
  
  # 输出美化后的表格
  print(
    kable(df) %>%
      kable_styling(full_width = FALSE)
  )
})

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