L oop для извлечения data.frame из списка - PullRequest
Новая
       27

L oop для извлечения data.frame из списка

0 голосов
/ 21 апреля 2020

Я пытаюсь изменить несколько фреймов данных с помощью всех oop команд.

Это то, что я пробовал: 

F.list2 <- list(AUDTTO, BRLTTO, CADTTO, CHFTTO, EURTTO, GBPTTO, JPYTTO, MXNTTO, NZDTTO, RBLTTO, ZARTTO)
res3 <- lapply(
  F.list2, 
  function(x)
  {
    names(x)[names(x) == "Leveraged Funds Longs"] <- "Long"
    names(x)[names(x) == "Leveraged Funds Shorts"] <- "Short"
    select(x, "Date", "Long", "Short")
  }  
)

# ADD THIS PART TO THE LOOP?

AUDTTO <- res3[[1]]
BRLTTO <- res3[[2]]
CADTTO <- res3[[3]]
CHFTTO <- res3[[4]]
EURTTO <- res3[[5]]
GBPTTO <- res3[[6]]
JPYTTO <- res3[[7]]
MXNTTO <- res3[[8]]
NZDTTO <- res3[[9]]
RBLTTO <- res3[[10]]
ZARTTO <- res3[[11]]

Как упоминалось в коде, я бы хотел бы добавить последнюю часть к l oop.

1 Ответ

0 голосов
/ 21 апреля 2020

Использовать именованный список.

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

F.list2 <- tibble::lst(AUDTTO, BRLTTO, CADTTO, CHFTTO, EURTTO, GBPTTO, 
                       JPYTTO, MXNTTO, NZDTTO, RBLTTO, ZARTTO)

res3 <- lapply(F.list2, function(x){
           names(x)[names(x) == "Leveraged Funds Longs"] <- "Long"
           names(x)[names(x) == "Leveraged Funds Shorts"] <- "Short"
           dplyr::select(x, "Date", "Long", "Short")
         })

res3 теперь снова именованный список. Вы можете получить отдельные кадры с помощью list2env. 

list2env(res3, .GlobalEnv)
...