Question

我正在尝试使用for循环读取多个数据帧，并尝试在数据框中分配变量名称。我想为所有数据帧提供相同的列名。

我使用的for循环如下：

for (i in 1:15){
  assign(paste0("watersurf",i),read.table(paste0("D:/water-surf/","water-surf-",i,".dat"),header=F,skip=1,sep=""))
}

通过使用上面的代码，我能够创建15个数据帧。如何为所有数据框指定名称？我使用了以下代码：

for (i in 1:15){
  assign(paste0("watersurf",i),read.table(paste0("D:/water-surf/","water-surf-",i,".dat"),header=F,skip=1,sep=""))
  names(paste0("watersurf",i))<- c("X","Y","Z")
}

我得到的错误如下：

Error in names(paste("watersurf", i)) <- c("X", "Y", "Z") : 
  target of assignment expands to non-language object

任何人都可以建议我如何摆脱上述错误或一次性重命名所有数据框中的列的任何有效方法。当然我可以尝试单独指定名称，但我正在寻找一个简单而优雅的解决方案。

我正在处理的一个csv文件的示例数据如下：

* , Water Levels, Depth Averaged
   407902.775  3437067.475        0.331
   406719.675  3436930.750        0.327
   405754.025  3436197.650        0.325
   404614.375  3435972.650        0.322
   404273.050  3434775.450        0.321
   403347.425  3433981.900        0.320
   404118.025  3433179.975        0.318
   404798.100  3432441.075        0.317
   403701.000  3432521.400        0.317
   402682.750  3432727.350        0.316
   402835.400  3431561.150        0.315
   403957.775  3431203.900        0.313
   405159.775  3431120.150        0.309
   405918.250  3430149.075        0.307
   405902.700  3428908.500        0.306
   405051.075  3428616.450        0.306
   404963.950  3427407.225        0.304
   405570.675  3426347.950        0.304
   406407.800  3425479.275        0.304
   406799.425  3424354.200        0.303
   407590.800  3423501.200        0.302
   408119.375  3422490.975        0.301
   408033.050  3421648.575        0.300
   407924.425  3420566.700        0.300

Answer 1

在有人提出更好的解决方案之前，请将第一个循环更改为：

for (i in 1:15){
  Data <- read.table(paste0("D:/water-surf/","water-surf-",i,".dat"),header=F,skip=1))
  names(Data) <- c("X", "Y", "Z")
  assign(paste0("watersurf", i), Data)
}

Answer 2

如果我理解您的问题，您尝试将多个文本文件合并到一个数据框中，然后重命名列。您可以使用plyr

轻松完成此操作

require(plyr)
# set working directory
setwd("D:/water-surf/")

# check that works for 1 file
table_1 <- read.table("./water-surf-1.dat", header= F, skip= 1, sep= "")

# import all files
files <- dir("D:/water-surf/") # declare the file directory
table_all <- ldply(files, read.table, stringsAsFactors= TRUE, header= F, 
  skip= 1, sep= "")

# rename the columns
names(table_all) <- c("var_1", "var_2", "var_3")

将多个csv文件作为新数据框读取并重命名列

2 个答案: