Вот способ решить вашу проблему. Сначала создайте список p_text_top10_list
, не прибегая к assign
. Список создается с окончательной длиной, чтобы не продолжать его расширять, что неэффективно.
p_text_top10_list <- vector("list", length = length(p_text_tm_list))
for(i in seq_along(p_text_tm_list)){
p_text_top10_list[[i]] <- head(p_text_tm_list[[i]], 10)
}
Другой гораздо более простой способ - использовать lapply
.
p_text_top10_list <- lapply(p_text_tm_list, head, 10)
Это Это. Этот однострочник делает то же самое, что и предыдущий for
l oop.
Теперь назначьте имена с 3 цифрами , чтобы они располагались в правильном порядке.
names(p_text_top10_list) <- sprintf("p_text_top10_list_%03d", seq_along(p_text_top10_list))