Assegna più oggetti a .GlobalEnv dall'interno di una funzione

Question

Un post qui su un giorno indietro mi chiede come assegnare valori a più oggetti nell'ambiente globale all'interno di una funzione. Questo è il mio tentativo di utilizzare lapply (assign potrebbe essere più sicuro di <<- ma non l'ho mai effettivamente utilizzato e non ho familiarità con esso).

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

Non esitate a ridurre qualsiasi/tutte le parti del mio codice per fare questo lavoro (o di lavorare meglio/più veloce).

Answer 1

Hai ragione che lo assign() è lo strumento giusto per il lavoro. L'argomento envir offre un controllo preciso su dove si svolge l'assegnazione, controllo non disponibile con <- o <<-.

Così, per esempio, per assegnare il valore di X ad un oggetto denominato NAME nel contesto globale, si dovrebbe fare:

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

Nel tuo caso:

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"