Может как то так?
# define a list
mylist <- list(A = 1:10, B = 1:100, C = data.frame(X = 1:2,Y = c("A","B")))
# you can subset a list like this
mylist[[1]]
mylist[[2]]
mylist[[3]]
# write data to files
for(i in 1:length(mylist)){
write.csv(mylist[[i]], paste0("testfile_",i))
}