R脚本来处理文本文件,将每行中冒号“:”前后的文本分割成两列
# 读入文件
data <- readLines("pathways.txt") # 假设输入文件名为"pathways.txt"
# 分割每行为两部分
split_data <- strsplit(data, ": ")
# 转换为数据框
split_df <- do.call(rbind, lapply(split_data, function(x) data.frame(ID = x[1], Description = x[2])))
# 保存为新的文本文件
write.table(split_df, file = "split_pathways.txt", sep = "\t", row.names = FALSE, quote = FALSE)
这个脚本的工作流程如下:
- 使用
readLines()
函数读取原始文本文件。 - 使用
strsplit()
函数以冒号加空格(:
)为分隔符来分割每一行。 - 利用
lapply()
函数和data.frame()
将分割后的数据转换为数据框格式。 - 使用
write.table()
函数将结果保存为新的文本文件,格式为制表符分隔(\t
)。