write.csv в списке фреймов данных

Question

Я пытаюсь сохранить несколько кадров данных из списка в отдельном каталоге. что-то случилось с моим кодом: Код

lapply(na_s, function (x) write.csv(na_s[[x]],file = paste('/na_s_daily/',names (na_s[x]),'.csv',sep=""), row.names = F)) 

Ошибка:

Error in na_s[[x]] : invalid subscript type 'list' 

Любой может видеть то, что я делаю неправильно?

Answer 1

Проблема в том, что вход x является числом, а не элементом списка. Попробуйте

lapply(1:length(na_sx), function (x) write.csv(na_s[[x]],file = paste('./na_s_daily/','na_', names (na_s[x]),'.csv',sep=""), row.names = F)) 

Обратите внимание, что выше, также будет возвращать список фреймов данных. Так что, если вам нужно просто сохранить каждый элемент списка в качестве кадра данных в каталоге вобще

for(x in 1:length(na_s)){ 
    write.csv(na_s[[x]],file = paste('./na_s_daily/','na_',names (na_s[x]),'.csv',sep=""), row.names = F) 
} 

Answer 2

Если вы хотите использовать имена в списке, я хотел бы предложить использовать mapply. Вы также должны быть уверены, что выходной каталог существует до его использования, иначе вы получите сообщение об ошибке. Я также изменил paste на paste0 (что составляет paste(x, sep = "")).

na_s <- list("one" = mtcars, "two" = mtcars, "three" = mtcars) 

mapply(function (x,y) write.csv(x, file = paste0('./na_s_daily/', y, '.csv'), row.names = F), na_s, names(na_s))