Birden çok nesneyi .GlobalEnv öğesine bir işlev içinden atayın

Question

Bir gün burada bir gönderi, bir işlev içinde global ortamda birden fazla nesneye değer atamanın nasıl yapıldığını merak ediyor. Bu benim lapply (assign<<- daha güvenli olabilir, ancak aslında hiç kullanmadım ve aşina değilim) kullanma girişimi.

#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]]) 

herhangi kısaltmak için çekinmeyin/bu işi yapmak (veya daha iyisi/hızlı çalışmasına) benim tüm kod parçaları.

Answer 1

assign() iş için doğru bir araçtır. Onun envir argümanı, atama nerede gerçekleştiği üzerinde tam kontrol sağlar - <- veya <<- ya da mevcut olmayan kontrol.

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"