Question

我有一堆数据框由：

生成

for(i in 1:100){
    assign(paste("df", i, sep=""), data.frame(1,2))
}

我想将所有这100个数据帧的第一列重命名为Column1。（请注意，在我的实际数据中，每个第一列都是唯一的，与此处的示例不同，它们各自为X1。）这对于所有数据帧都是相同的。

对于任何一个人，我都可以这样做。例如：

names(df45)[1]<-"Column1"

但是，我在尝试自动化过程时遇到了问题。这是我尝试的（错误）代码：

names(eval(parse(text=paste("df", i, sep=""))))[1] <- "Column1"

我该如何修改？并且有更快的方法来访问循环中的变量吗？

我遇到过其他答案，说最好把这些东西放在一个列表中并像这样处理它：

#put into a list
l.df <- lapply(ls(pattern="df[0-9]+"), function(x) get(x))

for(i in 1:100){
    names(l.df[[i]])[1] <- "Column1"
}

但是，我希望能够将所有数据框合并在一起，如下所示：

df <- merge(df1, df2, df3, df4, ....... df100, by="Column1")

Answer 1

首先，我会处理一个（data.frames）列表。您可以使用lapply来“攀登”每个列表元素。我正在借用@baptiste的合并方法（在评论中发布）。

xy <- replicate(10, data.frame(a = 1:10, b = runif(10)), simplify = FALSE)
xy <- lapply(xy, function(x) {names(x)[1] <- "Golum1"; x})
Reduce(function(x,y) merge(x,y,by="Golum1"), xy)

   Golum1          b.x        b.y        b.x        b.y       b.x        b.y       b.x       b.y        b.x        b.y
1       1 0.0002497286 0.44790338 0.12656118 0.85306085 0.9502253 0.92816557 0.6727456 0.3615492 0.71520420 0.26933313
2       2 0.1416911036 0.56330792 0.03834924 0.95777112 0.4763716 0.28533075 0.8729803 0.7035205 0.49824660 0.15685903
3       3 0.3454216446 0.42778131 0.35065726 0.35513107 0.6610847 0.21600874 0.9611296 0.2527102 0.62142047 0.32401890
4       4 0.2128049061 0.20300980 0.35529195 0.19681124 0.6105881 0.85292309 0.3311055 0.4953804 0.05079081 0.98322541
5       5 0.5967234119 0.93926727 0.74456886 0.25971581 0.3739592 0.01498909 0.2683361 0.9895955 0.45829244 0.76854781
6       6 0.4843087369 0.04535037 0.29100912 0.05801034 0.1010084 0.31980135 0.7572697 0.6022717 0.86408382 0.10516840
7       7 0.0624480459 0.58510411 0.62256365 0.97236759 0.6910560 0.21823825 0.8169870 0.3162987 0.79414611 0.43907780
8       8 0.1764713391 0.05768646 0.30316764 0.25180931 0.9378119 0.06416274 0.6814944 0.9889381 0.13944101 0.51939788
9       9 0.9533833019 0.70950657 0.04435285 0.92314396 0.4208451 0.34137729 0.8876309 0.9789025 0.43711122 0.71978702
10     10 0.7814107563 0.93566272 0.76036172 0.71139862 0.5308587 0.19734855 0.8359664 0.6903358 0.22433803 0.09343658

# warnings are due to name collisions

Answer 2

也许这对你有用

 for(i in 1:100){
  assign(paste("df", i, sep=""), data.frame(1,2))
}

require(naturalsort)
data<-do.call(rbind,sapply(ls(pattern="df[0-9]+"),function(x) get(x),simplify = F))
data<-data[naturalorder(rownames(data)),]

colnames(data)[1] <-'Column1'

head(data)

更改for循环中许多数据框的列名

2 个答案: