повторяющаяся задача в R с символьной строкой с использованием sapply или цикла for

Question

У меня есть повторяющаяся задача извлечения частей списка и сохранения их в новое имя переменной.

я могу использовать aaa_report <- original[["aaa"]] и у меня есть новая переменная с именем aaa_report, которая является раздел aaa из переменной списка original

Теперь я хотел бы автоматизировать повторяющиеся задачи:

aaa_report <- original[["aaa"]]

bbb_report <- original[["bbb"]]

ccc_report <- original[["ccc"]]

...

У меня есть отдельный список «символов» переменный с именем dept со всеми именами dept <- c("aaa", "bbb", "ccc", "...")

я пытаюсь использовать sapply и получить эту ошибку.

sapply(dept, function(x) x"_report" <- original[[x]]) 

Error: unexpected string constant in "sapply(dept, function(x) x"_report""

Я попробовал все apply семью и for loop не повезло.

for(x in dept){ 
    x"_report" <- original[[x]] 
} 

Я новичок в R и программирование в целом, поэтому любой совет будет очень полезен.

Answer 1

Вы были близки, используйте assign функцию:

for(x in dept) assign(paste0(x, "_report"), original[[x]]) 

Это не будет работать с apply функциями, так как задание будет находиться в локальной среде функции apply.

Как указано в комментариях, сохранить все в списке всегда лучше.