Как сохранить первые четыре строки в списке?

Question

У меня есть список из 49 строк. Каждая строка в списке содержит ряд строк, как показано ниже:

[[1]]
 [1] "ANGEL"   "Jan"     "R"       "26"      "PO"      "Box"     "40426"   "Olympia" "WA"      "98504"  

[[2]]
 [1] "BAILEY"  "Barbara" "R"       "10"      "PO"      "Box"     "40410"   "Olympia" "WA"      "98504"

Я пытаюсь выяснить, как сохранить первые четыре строки в каждой строке и удалить все остальное. У меня нет опыта работы со строками, и я изо всех сил пытаюсь это сделать. Кто-нибудь может сделать предложение?

Спасибо.

Answer 1

Как указано в комментариях @ Roland , вы можете использовать head

L <- replicate(2, month.abb, simplify=F)

lapply(L, head, n=5)
# [[1]]
# [1] "Jan" "Feb" "Mar" "Apr" "May"
# 
# [[2]]
# [1] "Jan" "Feb" "Mar" "Apr" "May"

Или, если элементы имеют пробелы, использовать функцию скобок (хотя также работает без пробелов).

lapply(L, `[`, c(1, 3, 5))
# [[1]]
# [1] "Jan" "Mar" "May"
# 
# [[2]]
# [1] "Jan" "Mar" "May"

Answer 2

Мы можем использовать также использовать magrittr::extract

library(purrr)
map(L, magrittr::extract, c(1, 3, 5))