Как избежать цикла в R: выбор элементов из списка

Question

Я мог бы решить это с помощью циклов, но я стараюсь думать в векторах, поэтому мой код будет больше R-esque.

У меня есть список имен. Формат имеет имя firstname_lastname. Я хочу вывести из этого списка отдельный список только с именами. Я не могу понять, как это сделать. Вот некоторые примеры данных:

t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan") 
tsplit <- strsplit(t,"_") 

, который выглядит следующим образом:

> tsplit 
[[1]] 
[1] "bob" "smith" 

[[2]] 
[1] "mary" "jane" 

[[3]] 
[1] "jose" "chung" 

[[4]] 
[1] "michael" "marx" 

[[5]] 
[1] "charlie" "ivan" 

я мог получить то, что я хочу с помощью петель, как это:

for (i in 1:length(tsplit)){ 
    if (i==1) {t_out <- tsplit[[i]][1]} else{t_out <- append(t_out, tsplit[[i]][1])} 
} 

, который дал бы мне это:

t_out 
[1] "bob"  "mary" "jose" "michael" "charlie" 

Так как я могу делать это без циклов?

Answer 1

Вы можете использовать apply (или sapply)

t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan") 
f <- function(s) strsplit(s, "_")[[1]][1] 
sapply(t, f) 

bob_smith mary_jane jose_chung michael_marx charlie_ivan 

     "bob"  "mary"  "jose" "michael" "charlie" 

См: A brief introduction to “apply” in R

Answer 2

У вас его почти было. It действительно это просто вопрос

1. с помощью одного из *apply функций в цикле над существующий список, я часто начинаются с lapply и иногда переключаться на sapply
2. добавить анонимную функцию, которая работает на одном из элементы списка в то время
3. вы уже знали, что это strsplit(string, splitterm) и что вам нужно нечетное [[1]][1] обрывать первое слагаемое ответа
4. просто поставить все это вместе, начиная с предпочтительным VARI возможность namne (как мы держаться подальше от t или c и друзей)

который дает

> tlist <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan") 
> fnames <- sapply(tlist, function(x) strsplit(x, "_")[[1]][1]) 
> fnames 
    bob_smith mary_jane jose_chung michael_marx charlie_ivan 
     "bob"  "mary"  "jose" "michael" "charlie" 
> 

Answer 3

Вы можете использовать unlist():

> tsplit <- unlist(strsplit(t,"_")) 
> tsplit 
[1] "bob"  "smith" "mary" "jane" "jose" "chung" "michael" 
[8] "marx" "charlie" "ivan" 
> t_out <- tsplit[seq(1, length(tsplit), by = 2)] 
> t_out 
[1] "bob"  "mary" "jose" "michael" "charlie" 

Там может быть лучше, чтобы вытащить только записи с нечетным индексом, но в любом случае у вас не будет цикла.

Answer 4

Я сомневаюсь, что это самое элегантное решение, но оно бьется зацикливание:

t.df <- data.frame(tsplit) 
t.df[1, ] 

Преобразование списков для фреймов данных о единственном пути я могу заставить их делать то, что я хочу. Я с нетерпением жду чтения ответов людьми, которые действительно понимают, как обрабатывать списки.

Answer 5

Как о:

tlist <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan")
fnames <- gsub("(_.*)$", "", tlist)
# _.* matches the underscore followed by a string of characters
# the $ anchors the search at the end of the input string
# so, underscore followed by a string of characters followed by the end of the input string

для подхода RegEx?

Answer 6

И один другой подход, основанный на unlist примере brentonk в ...

tlist <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan")
tsplit <- unlist(strsplit(tlist,"_"))
fnames <- tsplit[seq(1:length(tsplit))%%2 == 1]

Answer 7

И еще один подход:

t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan") 
pieces <- strsplit(t,"_") 
sapply(pieces, "[", 1) 

В словах, последняя строка извлекает первый элемент каждого компонента списка и затем упрощает его в вектор.

Как это работает? Ну, вам нужно реализовать альтернативный способ написания x[1]: "["(x, 1), то есть функция, называемая [, которая выполняет подмножество. Вызов sapply применяет эту функцию один раз для каждого элемента исходного списка, передавая два аргумента, элемент списка и 1.

Преимущество этого подхода над другими заключается в том, что вы можете извлечь несколько элементов из списка без вынуждены пересчитывать расщепления. Например, фамилия будет sapply(pieces, "[", 2). Как только вы привыкнете к этой идиоме, ее довольно легко прочитать.

Answer 8

насчет:

t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan") 

sub("_.*", "", t) 

Answer 9

Я хотел бы использовать следующую unlist() - метод, основанный:

> t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan") 
> tsplit <- strsplit(t,"_") 
> 
> x <- matrix(unlist(tsplit), 2) 
> x[1,] 
[1] "bob"  "mary" "jose" "michael" "charlie" 

Большое преимуществом этого метода является то, что она решает эквивалентную задачу для фамилий в то то же время:

> x[2,] 
[1] "smith" "jane" "chung" "marx" "ivan" 

Недостатком является то, что вам нужно быть уверенным, что все имена соответствуют структура firstname_lastname; если нет, то этот метод будет нарушен.

Answer 10

из исходного списка tsplit объекта, приведенного в начале, эта команда будет делать:

unlist(lapply(tsplit,function(x) x[1])) 

извлекает первый элемент из всех элементов списка, а затем преобразует список в вектор. Отказываясь сначала к матрице, тогда извлечение первого столбца также нормально, но тогда вы зависите от того факта, что все элементы списка имеют одинаковую длину.Вот результат:

> tsplit 

[[1]] 
[1] "bob" "smith" 

[[2]] 
[1] "mary" "jane" 

[[3]] 
[1] "jose" "chung" 

[[4]] 
[1] "michael" "marx" 

[[5]] 
[1] "charlie" "ivan" 

> lapply(tsplit,function(x) x[1]) 

[[1]] 
[1] "bob" 

[[2]] 
[1] "mary" 

[[3]] 
[1] "jose" 

[[4]] 
[1] "michael" 

[[5]] 
[1] "charlie" 

> unlist(lapply(tsplit,function(x) x[1])) 

[1] "bob"  "mary" "jose" "michael" "charlie"