R：關於使用 lapply() function 而不是 for 循環的問題

Question

我一直在成功運行以下 for 循環 function：

for (i in 1:10){
   X=get(paste0("Y_lines",i))
   X <- tm_map(X, content_transformer(tolower))
   assign(paste0("Y_lines",i), X)
rm(X)}

我想改用 lapply() function，因為它更省時。 我玩過 function 但沒有找到任何成功。 這是我最近的努力：

lapply(X = Y_lines[1:10], FUN = tm_map(X, content_transformer(tolower)))

這是我第一次使用 lapply，如果我犯了基本錯誤，請見諒。

先感謝您。

Answer 1

嘗試一下，注意這是未經測試的，您可能需要在list2env()和lapply()函數之間插入一個setNames() function：（根據附加問題進行編輯）：我們可以存儲第一部分的結果匿名 function，然后像這樣在其上應用另一個 function：

list2env(lapply(mget(ls(.GlobalEnv, pattern = "Y_lines"), envir = .GlobalEnv), function(x){
    y <- tm_map(x, content_transformer(tolower))
    tm_map(y, removeWords, stopwords("english"))
  }
), .GlobalEnv)

或者我們可以 function 重載：

list2env(lapply(mget(ls(.GlobalEnv, pattern = "Y_lines"), envir = .GlobalEnv), function(x){
    tm_map(tm_map(x, content_transformer(tolower)), removeWords, stopwords("english"))
  }
), .GlobalEnv)