Итерацию через таблицу данных

Question

у меня есть 3 таблицы как

tbl.1 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.2 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.3 <- data.table("A" = runif(5), "B" = runif(5)) 

Я хотел бы итерацию через таблицу с петлей такой как

for (i in 1:3) { 
    # Open tbl.i 
    # Do something 
} 

Как это можно сделать? Я могу поместить таблицы в список итерации по списку, который работает нормально. Тем не менее, я пытаюсь сохранить таблицы как уникальные объекты по разным причинам. Спасибо.

Answer 1

Если вы не хотите хранить data.tables в списке. Вы можете обратиться к ним в своей среде. В этом примере это глобальная среда. Если ваши data.tables будут заполнены внутри другого пакета, вам нужно будет изменить среду.

library(data.table) 
tbl.1 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.2 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.3 <- data.table("A" = runif(5), "B" = runif(5)) 
for (i in paste0("tbl.",1:3)) { 
    # Open tbl.i: get 
    # Do something: str 
    str(get(i, envir = .GlobalEnv)) 
} 

Answer 2

Как уже указывали другие, это не похоже на «data.table» способ делать что-то, и поскольку вы не очень четко понимаете, что делаете, когда говорите «что-то», это трудно сделать хорошую рекомендацию.

Сказанное: петля for может быть прекрасной, если ваше «сделать что-то» означает назначение по ссылке (например, используя set или :=).

Это может быть сделано с простой:

tbl.1 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.2 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.3 <- data.table("A" = runif(5), "B" = runif(5)) 

x <- ls(pattern = "tbl") 

for (i in seq_along(x)) { 
    get(x[i])[, C := A + B] 
} 

tbl.2 

---

Если вы не имеем дело с чем-то, что будет решена с назначением в качестве ссылки, например, вы Подменю или суммируя данные и хотите для замены оригинала data.table, тогда вам нужно будет использовать get и assign. (Тьфу.)

tbl.1 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.2 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.3 <- data.table("A" = runif(5), "B" = runif(5)) 

x <- ls(pattern = "tbl") 

for (i in seq_along(x)) { 
    assign(x[i], get(x[i])[1, ]) 
} 

Answer 3

LDBerriz,

Я считаю, что это можно делать то, что вы пытаетесь сделать, обернув через имена переменных и получать их от .GlobalEnv, который представляет рабочее пространство.

Однако, я полагаю, как и несколько других комментаторов есть, это гораздо проще хранить ваши таблицы в списке, и цикл по списку, чем к перебрать переменные в .GlobalEnv:

tbl.1 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.2 <- data.table("A" = runif(5), "B" = runif(5)) 
tbl.3 <- data.table("A" = runif(5), "B" = runif(5)) 

tblList <- list(tbl.1, tbl.2, tbl.3) 

for (i in 1:3) { 
    tbl <- tblList[[i]] 
    # Do something with tbl. 
} 

Ради этого ответа я предполагаю, что таблицы на самом деле разные, или есть некоторые причины, по которым у вас есть, что они должны быть отдельными таблицами. Конечно, если в столбцах таблиц были все одинаковые данные/переменные, например, tbl.1, tbl.2 и tbl.3 в вашем примере, вы могли бы просто объединить их в одну таблицу и сделать материал для одна таблица:

masterTbl <- rbind(tbl.1,tbl.2,tbl.3) 

можно даже добавить столбец к ним, так что вы можете определить, какая таблица первоначально они пришли, если вам необходимо:

tbl.1$from <- 1 
tbl.2$from <- 2 
tbl.3$from <- 3 

masterTbl <- rbind(tbl.1,tbl.2,tbl.3) 

Бест, Бен.