Сообщение здесь, в один прекрасный день, заставляет меня задаться вопросом, как назначать значения для нескольких объектов в глобальной среде изнутри функции. Это моя попытка с использованием 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]])
Пожалуйста, не стесняйтесь сокращать любые/все части моего кода, чтобы сделать эту работу (или работать лучше/быстрее).