如何将文本文件中单个字符转为单列？strplit尝试未达预期

安全阿岳

2026-8-25

问题：将文本文件中每个字符拆分为单独列

我有多个文本文件，希望把文件中的每个字符转换为单独的一列，尝试用strsplit函数处理后未得到预期结果。

原始文件内容

test1.txt
ATTGCATGTACGTATCGTTGAC

test2.txt
ACCCGCGGGGNNCGTATCGAAGAC

预期输出

test1.txt

V1 V2 V3 V4 V5 ...
A   T T  G   C

test2.txt
V1 V2 V3 V4 V5 ...
A  C  C   C  G

解决方案（R语言）

直接循环处理每个文件，拆分字符后转置为数据框即可实现需求：

# 获取当前目录下所有txt格式文件
file_list <- list.files(pattern = "\\.txt$")

# 逐个处理文件
for (file in file_list) {
  # 读取文件内容并过滤空行
  content <- readLines(file)
  seq_content <- content[content != ""]
  
  # 将序列拆分为单个字符的列表
  char_list <- strsplit(seq_content, "")[[1]]
  
  # 转置为数据框并设置列名
  result_df <- as.data.frame(t(char_list))
  colnames(result_df) <- paste0("V", 1:ncol(result_df))
  
  # 输出文件名及结果
  cat(file, "\n\n")
  print(result_df, row.names = FALSE)
  cat("\n")
}