通过分配函数包含动态变量时 Rbind 不起作用

Question

我的代码行是

df1<-rbind(df1,assign(paste(x,"_name_",_Date,sep=""),Result))

基本上

assign(paste(x,"_name_",_Date,sep=""),Result)

与

相同

df2

当我做的时候

df1<-rbind(df1,df2)

它有效，但这需要动态且不断变化，因为我每周都会进行这些更新。

Answer 1

我们需要 get 到 return 对象名称字符串中的值，即 assign 仅将其分配给一个对象，而不是 return 值。

rbind(df1, {
       nm1 <- paste(x,"_name_",_Date,sep="")
       assign(nm1, Result)
       get(nm1)})

使用一个可重现的小例子

rbind(head(iris), {
       nm1 <- 'newobj'
       assign(nm1, tail(iris))
       get(nm1)})
#    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
#6            5.4         3.9          1.7         0.4    setosa
#145          6.7         3.3          5.7         2.5 virginica
#146          6.7         3.0          5.2         2.3 virginica
#147          6.3         2.5          5.0         1.9 virginica
#148          6.5         3.0          5.2         2.0 virginica
#149          6.2         3.4          5.4         2.3 virginica
#150          5.9         3.0          5.1         1.8 virginica

通过分配函数包含动态变量时 Rbind 不起作用

Rbind not working when including dynamic variable through assign function

r

dynamic

rbind