Я попытался объединить разные файлы с разделителями табуляции в один файл, используя следующую команду R.
Если вы заметили, я даже сохраняю файл с помощью команды write.table.Теперь мне нужно прочитать те же файлы для дальнейшего анализа.Самая большая проблема, с которой я сталкиваюсь, заключается в том, что существует дополнительный столбец без какого-либо имени столбца, созданного автоматически. Если вы заметили, что столбец (красного цвета) создается автоматически при использовании функции write.table.Я хочу избавиться от этого столбца, поскольку он затрудняет все дальнейшие вычисления.
combine=function(file) {
split_list <- unlist(strsplit(file,split=","))
setwd("D:/combine")
dataset <- do.call("cbind",lapply(split_list,FUN=function(files) { read.table(files,header=TRUE, sep="\t") } ) )
names(dataset)[1]=paste("Probe_ID")
drop=c("ProbeID")
dataset=dataset[,!(names(dataset)%in%drop)]
dataset$X=NULL
write.table(dataset,file="D:/output/illumina.txt",sep="\t",col.names=NA)
return ("illumina.txt")
}