फ़ंक्शन के भीतर से WebobalEnv को एकाधिक ऑब्जेक्ट असाइन करें

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"