Chỉ định nhiều đối tượng cho .GlobalEnv từ bên trong một hàm

Question

Một bài đăng trên đây một ngày trở lại đây khiến tôi tự hỏi cách gán giá trị cho nhiều đối tượng trong môi trường toàn cục từ bên trong một hàm. Đây là nỗ lực của tôi khi sử dụng lapply (assign có thể an toàn hơn <<- nhưng tôi chưa bao giờ thực sự sử dụng nó và không quen thuộc với nó).

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

Vui lòng rút ngắn bất kỳ/tất cả các phần mã của tôi để thực hiện công việc này (hoặc hoạt động tốt hơn/nhanh hơn).

Answer 1

Bạn nói đúng rằng assign() là công cụ thích hợp cho công việc. Đối số envir của bạn cho phép bạn kiểm soát chính xác vị trí diễn ra - kiểm soát không có sẵn với <- hoặc <<-.

Vì vậy, ví dụ, để gán giá trị của X đến một đối tượng tên là NAME trong môi trường toàn cầu, bạn sẽ làm gì:

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

Trong trường hợp của bạn:

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"