関数内から.GlobalEnvに複数のオブジェクトを割り当てよう

Question

ここでは、関数内からグローバル環境内の複数のオブジェクトに値を代入する方法が不思議です。これはlapply（assignは<<-よりも安全かもしれませんが、私はそれを実際に使ったことはなく、それに精通していません）を使用しています。

#fake data set 
df <- data.frame(
    x.2=rnorm(25), 
    y.2=rnorm(25), 
    g=rep(factor(LETTERS[1:5]), 5) 
) 

#split it into a list of data frames 
LIST <- split(df, df$g) 

#pre-allot 5 objects in R with class data.frame() 
V <- W <- X <- Y <- Z <- data.frame() 

#attempt to assign the data frames in the LIST to the objects just created 
lapply(seq_along(LIST), function(x) c(V, W, X, Y, Z)[x] <<- LIST[[x]]) 

私のコードの一部または全部を短縮して、この作業を改善してください（またはより速く/より速く動作するようにしてください）。

Answer 1

あなたは正しく、assign()が仕事に適したツールです。そのenvir引数は、割り当てがどこで行われるかを正確に制御できます。制御は<-または<<-で利用できません。

したがって、たとえば、あなたがどうなる地球環境におけるNAMEという名前のオブジェクトにXの値を割り当てるには：お使いの場合には

assign("NAME", X, envir = .GlobalEnv) 

：

df <- data.frame(
    x.2=rnorm(25), 
    y.2=rnorm(25), 
    g=rep(factor(LETTERS[1:5]), 5) 
) 
LIST <- split(df, df$g) 
NAMES <- c("V", "W", "X", "Y", "Z") 

lapply(seq_along(LIST), 
     function(x) { 
      assign(NAMES[x], LIST[[x]], envir=.GlobalEnv) 
     } 
) 

ls() 
[1] "df" "LIST" "NAMES" "V"  "W"  "X"  "Y"  "Z"