Как избежать цикла в R:выбор элементов из списка
Вопрос
Я мог бы решить это с помощью циклов, но я пытаюсь мыслить векторами, поэтому мой код будет более R-образным.
У меня есть список имен.Формат - 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"
Итак, как я могу сделать это без циклов?
Решение
Вы можете использовать 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"
Другие советы
И еще один подход:
t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan")
pieces <- strsplit(t,"_")
sapply(pieces, "[", 1)
Другими словами, последняя строка извлекает первый элемент каждого компонента списка, а затем упрощает его в вектор.
Как это работает?Что ж, вам нужно придумать альтернативный способ написания x[1]
является "["(x, 1)
, т. е.существует функция, вызываемая [
это делает подмножество.В sapply
call applies вызывает эту функцию один раз для каждого элемента исходного списка, передавая два аргумента: элемент списка и 1.
Преимущество этого подхода перед другими заключается в том, что вы можете извлечь несколько элементов из списка без необходимости повторно вычислять разбиения.Например, фамилия могла бы быть sapply(pieces, "[", 2)
.Как только вы привыкнете к этой идиоме, ее станет довольно легко читать.
Как насчет:
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
для подхода с регулярными выражениями?
о чем:
t <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan")
sub("_.*", "", t)
Я сомневаюсь, что это самое элегантное решение, но оно превосходит зацикливание:
t.df <- data.frame(tsplit)
t.df[1, ]
Преобразование списков во фреймы данных - это, пожалуй, единственный способ заставить их делать то, что я хочу.Я с нетерпением жду ответов людей, которые действительно понимают, как обращаться со списками.
У тебя почти получилось.IT действительно это всего лишь вопрос
- используя один из
*apply
функции для перебора вашего существующего списка, я часто начинаю сlapply
и иногда переключаться наsapply
- добавьте анонимную функцию, которая работает с одним из элементов списка одновременно
- вы уже знали, что это было
strsplit(string, splitterm)
и что вам нужно странное[[1]][1]
чтобы выделить первый член ответа - просто соедините все это вместе, начиная с предпочтительной переменной 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"
>
Вы могли бы использовать 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"
Возможно, существует лучший способ извлекать только записи с нечетным индексом, но в любом случае у вас не будет цикла.
И еще один подход, основанный на примере brentonk's unlist...
tlist <- c("bob_smith","mary_jane","jose_chung","michael_marx","charlie_ivan")
tsplit <- unlist(strsplit(tlist,"_"))
fnames <- tsplit[seq(1:length(tsplit))%%2 == 1]
Я бы использовал следующий метод, основанный на 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
структура;если кто-либо этого не сделает, то этот метод сломается.
с оригинала 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"