Question

我已经加载了多个data.frames（来自数据集包）我使用svDialogs包进行一些简单的数据输入

要求（svDialogs）

a＆lt; - iris
b＆lt; - attitued

> a
     Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
1            5.1         3.5          1.4         0.2     setosa
2            4.9         3.0          1.4         0.2     setosa
3            4.7         3.2          1.3         0.2     setosa
4            4.6         3.1          1.5         0.2     setosa
5            5.0         3.6          1.4         0.2     setosa
and so on

> b
   rating complaints privileges learning raises critical advance
1      43         51         30       39     61       92      45
2      63         64         51       54     63       73      47
3      71         70         68       69     76       86      48
4      61         63         45       47     54       84      35
5      81         78         56       66     71       83      47
and so on

加载的数据框并不总是相同，并且是从之前的步骤派生的，因此它们的命名和编号可能会发生变化。

我现在要做的是循环这些数据框并询问如何重命名列名和每个数据帧应该得到一个新的变量new.names [FILENAME]在这种情况下new.names.a和new.names.b，以便在后面的步骤中可以被指定为特定data.frames的新列名。

我认为我需要的第一件事就是将先前加载的数据帧存储在变量

中

files<- c("a", "b")

并应用以下内容：

new.names <- c()
for (x in files)  
  for (m in names(a))
    new.names <- c(new.names,dlgInput(sprintf('Enter new column name or press ok: "%s"', m), default=m, Sys.info()["n"])$res)
   for(i in files)
     assign(paste("new.names", i,sep=""), new.names)

它适用于一个数据帧但不适用于多个数据帧（它只是重复相同数据帧的列名称，而不是多个值在“文件”变量中）。并将输入的新列名分配给所有新创建的变量（new.namesa，new.namesb）。实际上，一旦它开始迭代第二个文件的名称（“b”），就应该跳到下一个变量（new.nameb）。

如果我不更改建议的原始列名，则输出为：

> new.namesa
 [1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"      "Sepal.Length"
 [7] "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"     
> new.namesb
 [1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"      "Sepal.Length"
 [7] "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"

那么有可能解决这个问题吗？我不想热衷于使用循环 - 我已多次读过R中应该避免的那些 - 如果有另一种解决方案（在最好的情况下但不一定不使用额外的包）。

任何帮助都会受到赞赏，因为我现在真的陷入困境。

Answer 1

你的代码有点混乱，这是一种更简单的方法来做你想做的事情：

require (svDialogs)
a <- iris
b <- attitude

dfs <- c("a", "b")

for(df in dfs) {
  df.tmp <- get(df)
  for(i in 1:length(names(df.tmp))){
    names(df.tmp)[i] <- dlgInput(sprintf('Enter new column name or press ok: "%s"', names(df.tmp)[i]), default=names(df.tmp)[i], Sys.info()["n"])$res
  }
  assign(df, df.tmp)
}

R：循环通过多个变量

1 个答案: