更改数据框列表中的名称

Question

我将工作目录中的所有文本文件读入列表,并剪切了一些列

all.files <- list.files(pattern = ".*.txt")
data.list <- lapply(all.files, function(x)read.table(x, sep="\t"))
names(data.list) <- all.files
data.list <- lapply(data.list, function(x) x[,1:3])

我最终得到了"2的清单"

> str(data.list)
List of 2
 $ 001.txt:'data.frame':    71330 obs. of  3 variables:
  ..$ V1: Factor w/ 71321 levels
  ..$ V2: Factor w/ 1382 levels
  ..$ V3: num [1:71330] 89.1 99.5 98.8 99.4 99.5 ...
 $ 002.txt:'data.frame':    98532 obs. of  3 variables
  ..$ V1: Factor w/ 98517 levels 
  ..$ V2: Factor w/ 1348 levels 
  ..$ V3: num [1:98532] 99.5 99 99.5 98.4 100 ...

我想根据改名V1,V2,V3

new.names<-c("query", "sbjct", "ident")

这怎么可能与lapply？

Answer 1

你可以试试 setNames

data.list <- lapply(data.list, setNames, new.names)