R Loop более тройного вложенного списка - PullRequest
Новая
       18

R Loop более тройного вложенного списка

0 голосов
/ 08 октября 2019

У меня есть тройной вложенный список в R. Структура похожа на мой список тестов ниже: 

df_yes = data.frame(replicate(2,sample(0:130,30,rep=TRUE)))
df_no = data.frame(replicate(2,sample(0:130,20,rep=TRUE)))

s1 = list(df_yes, df_no)
names(s1) = c("yes", "no")

df_yes = data.frame(replicate(2,sample(0:130,25,rep=TRUE)))
df_no = data.frame(replicate(2,sample(0:130,15,rep=TRUE)))

s2 = list(df_yes, df_no)
names(s2) = c("yes", "no")

DJF = list(s1, s2)
names(DJF) = c("s1", "s2")

df_yes = data.frame(replicate(2,sample(0:130,60,rep=TRUE)))
df_no = data.frame(replicate(2,sample(0:130,10,rep=TRUE)))

s1 = list(df_yes, df_no)
names(s1) = c("yes", "no")


df_yes = data.frame(replicate(2,sample(0:530,25,rep=TRUE)))
df_no = data.frame(replicate(2,sample(0:230,15,rep=TRUE)))

s2 = list(df_yes, df_no)
names(s2) = c("yes", "no")

JJA = list(s1, s2)
names(JJA) = c("s1", "s2")

total_list = list(DJF, JJA)
names(total_list) = c("DJF", "JJA")

Я хочу добавить сейчас $ x3 и $ x4 в кадрах данных yes и no. Содержимое должно быть первым числом x1 для x3) и первым числом x2 для x4.

Я знаю, как сделать это с одним кадром данных или простым вложенным списком: 

df1 = total_list$DJF$s1$yes

df1$x3 = substr(df1$X1, 1,1)
df1$x4 = substr(df1$X2, 1,1)

Или с циклом в обычном списке: 

for(i in 1:length(df)){
  df[[i]]$v3 = substr(df[[i]][,1], 1,1)}

Нокак я могу получить доступ к тройному вложенному списку с помощью цикла? Должен ли я сделать двойной цикл с 2 переменными, например [[i]] [[k]] [[1]]?

1 Ответ

1 голос
/ 08 октября 2019

это не самое подходящее решение, надеюсь, оно будет работать 

N <- names(total_list)
for (i in 1:length(N)) {

  name1 <- N[i]
  product1 = total_list[[name1]]
  K <- names(product1)

  for (n in 1:length(K)) {

    name2 <- K[n] 
    product2 = product1[[n]]
    dfnames = names(product2)

    for (l in dfnames) {

      df_t = product2[[l]]
      df_t$x3 = substr(df_t$X1, 1,1)
      df_t$x4 = substr(df_t$X2, 1,1)
      df_t$x3 <- as.numeric(df_t$x3)
      df_t$x4 <- as.numeric(df_t$x4)
      total_list[[name1]][[name2]][[l]] <- df_t
    }

  }

}
...