Question

我编写了一个函数，可以创建一个数据框:(此函数修改全局环境！）

abc=function(x,y) {
   if(y>=11)
    stop("Noooooooooooooooooooooooooope!")
     value = NA
  for (i in 1:10) {
    a=2+i
    b=3
    value[i]=(x+a)*(b*y)
  }
  df=data.frame(ID=(1:10),Value=(value)) 
  assign("df",df,envir = .GlobalEnv)
  View(df)
}
abc(2,9)

此函数创建如下数据框：

    ID  Value
1   1   135
2   2   162
3   3   189
4   4   216
5   5   243
6   6   270
7   7   297
8   8   324
9   9   351
10  10  378

但现在我需要创建一个“大”数据框，其中将包含更多列。对于参数abc（1,9），abc（2,9），abc（3,9）...... abc（13,9）。新数据框将如下所示：

    ID  Value1  Value2 Value3 ...
1   1   108 135 ...
2   2   135 162 ...
3   3   162 189 ...
4   4   189 216 ...
5   5   216 243 ...
6   6   243 ... ...
7   7   270 ... ...
8   8   297 ... ...
9   9   324 ... ...
10  10  351 ... ...

我怎么能成功？

Answer 1

您可以从功能的数据框中删除ID列，而不是assign来电，只需return value向量。然后以这种方式继续：

df<- data.frame(ID=1:10, Value1=abc(1,9), Value2=abc(2,9), Value3=abc(3,9))

当然，根据您对＆＃34; big＆＃34;的定义，这可能效率低下或不可行。

Answer 2

不是最优雅，但也不是太糟糕：

首先我修改了你的功能，因为我发现View很烦人，而且很多更好地明确地返回一些东西，而不是仅仅把它放在全球环境中：

abc=function(x,y) {
    if(y>=11)
        stop("Noooooooooooooooooooooooooope!")
    value = NA
    for (i in 1:10) {
        a=2+i
        b=3
        value[i]=(x+a)*(b*y)
    }
    df=data.frame(ID=(1:10),Value=(value)) 
    #assign("df",df,envir = .GlobalEnv)
    #View(df)
}

现在为x = 1:13运行它并结合结果：

dflist = lapply(1:13, abc, y = 9)
for (i in seq_along(dflist)) {
    names(dflist[[i]])[2] = paste0("Value", i)
}
bigdf = Reduce(function(...) merge(..., all = T), dflist)

（使用this answer中的方法）

从R中的函数创建数据框

2 个答案: