извлечь первый символ из набора строк

Question

У меня есть этот список аннотаций с номером хромосомы.Я хотел бы извлечь первый символ из каждой строки

[[1]]
[1] "KQ415812.1"

[[2]]
 [1] "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" 
[12] "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" "KQ415813.1" 


[[3]]
 [1] "KQ415814.1" "KQ415814.1" "KQ415814.1" "KQ415814.1" "KQ415814.1" "KQ415813.1"
[12] "KQ415814.1"

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

[[1]]
[1] "KQ415812.1"

[[2]]
 [1] "KQ415813.1" 
[12] "KQ415813.1" 

[[3]]
 [1] "DKQ415814.1"
 [12] "DKQ415814.1"

Любая помогает?спасибо

Answer 1

purrr решение:

library(purrr)

yours_list %>%
  map(~.x[1])

Answer 2

Переберите list (lapply), создайте логическое выражение, чтобы получить первый элемент

lapply(lst1, function(x) x[!duplicated(x)])