在R中导入多个文本文件（带扭曲）

Question

美好的一天，

我在目录中有33 * .tsv（标签分隔）。所有文件都具有相同的row.names，但列不同。 我想同时导入所有文件，最终产品应该是33个数据框（或矩阵）的列表，其名称根据文件名。

1. data <-lapply(dir(), read.table)未按预期工作。生成的列表条目是由row.names引起的因素。
2. data <- lapply(dir(), read.table, row.names=1, header = TRUE, sep = "\t", dec = ".")不起作用，因为双row.names错误。

在应用提交here的解决方案时也是如此。

另一种选择是导入一个大的单个文件，然后按标题名称拆分成33个对象（由_1，_2，_3等分隔（也包括下划线后面的字符串）。

任何帮助都会像往常一样受到赞赏。

Answer 1

不是很优雅，但是怎么样

data <- lapply(dir(), read.table, header = TRUE, sep = "\t", dec = ".")
data <- lapply(data, function(x) rownames(x) <- x[,1] )