сохранение результатов из цикла for

Question

У меня проблема с сохранением результатов из цикла for, и, вероятно, я ошибаюсь. Я пытаюсь использовать цикл for, чтобы взять первую букву из двух столбцов, и если любой из них является Т, то дайте значение для 'trail.type' 'foraging', иначе укажите значение «internest». Этот код работает для этого, но затем, когда я просматриваю каждый из кадров данных, столбец не был добавлен. Кто-нибудь знает, почему это может быть?

код я использую:

dfs <- Filter(function(x) is(x, "data.frame"), mget(ls())) 

for (name in dfs){ 
    name$fromf<-substr(name$from,1,1) 
    name$tof<-substr(name$to,1,1) 
    name$trail.type <- ifelse(name$fromf=='T', "foraging", 
            ifelse(name$tof=='T', "foraging", 
              'internest')) 
    name$fromf <- NULL 
    name$tof <- NULL 
} 

данные я использую:

from to strength 
N1 N2 1.67 
N1 T1 1.11 
N2 N3 0.67 
N3 N4 1.00 
N3 N5 0.29 
N5 N6 5.00 

Answer 1

Ну, если у нас есть список dataframes мы можем использовать lapply. Для каждого списка мы проверяем, если from или to столбца начинается с буквой T и основан на том, что мы относим значение в новый столбец trail.type

lapply(lst1, function(x) cbind(x, trail.type = ifelse(grepl("^T", x[["from"]]) 
           | grepl("^T", x[["to"]]), "foraging", "internest"))) 

где lst1 ваши списки dataframes.

Например,

lst1 <- list(name, name) 
lapply(lst1, function(x) cbind(x, trail.type = ifelse(grepl("^T", x[["from"]]) 
          | grepl("^T", x[["to"]]), "foraging", "internest"))) 

#[[1]] 
# from to strength trail.type 
#1 N1 N2  1.67 internest 
#2 N1 T1  1.11 foraging 
#3 N2 N3  0.67 internest 
#4 N3 N4  1.00 internest 
#5 N3 N5  0.29 internest 
#6 N5 N6  5.00 internest 

#[[2]] 
# from to strength trail.type 
#1 N1 N2  1.67 internest 
#2 N1 T1  1.11 foraging 
#3 N2 N3  0.67 internest 
#4 N3 N4  1.00 internest 
#5 N3 N5  0.29 internest 
#6 N5 N6  5.00 internest