Как извлечь результаты из R strsplit ()

Вопрос о :

У меня есть строковый вектор foo:

>foo = c("1x2","3x4","5x6","7x8","9x10")

Я разделяю отдельные строки по «x» и наклеиваю результат на goo:

>goo = strsplit(foo, "x")
>goo
[[1]]
[1] "1" "2"

[[2]]
[1] "3" "4"

[[3]]
[1] "5" "6"

[[4]]
[1] "7" "8"

[[5]]
[1] "9"  "10"

Как мне извлечь первую и вторую «колонку» из этого списка? (Я хочу (1,3,5,7,9) и (2,4,6,8,10))

sapply(goo, identity) затем нарежьте ряды.

— 09.04.2018 22:26

read.table(text = foo, sep = 'x')[, 1]

— 09.04.2018 22:32

r strsplit

09.04.2018 22:20

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

1 083

Ответы 5

Используйте sapply для последовательного "извлечения" с помощью "[[":

 sapply(goo, "[[" , 1)
[1] "1" "3" "5" "7" "9"

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

09.04.2018 22:25

Самый простой способ - заключить результаты в оператор sapply.

odd_results <- sapply(goo, function(x) x[1])

а также

even_results <- sapply(goo, function(x) x[2])

09.04.2018 22:25

Обзор

Вам нужно будет указать извлечение элементов списка по позиции.

# load data
foo <- c("1x2","3x4","5x6","7x8","9x10")

# split foo by 'x'
foo.list <- strsplit( x = foo, split = "x", fixed = TRUE )

# store the first and second elements of each list in a data frame
foo.df <-
data.frame(
    First_Element = unlist( lapply( X = foo.list, FUN = "[[", FUN.VALUE = 1 ) )
    , Second_Element = unlist( lapply( X = foo.list, FUN = "[[", FUN.VALUE = 2 ) )
  )

09.04.2018 22:26

Для разнообразия вы можете использовать

goo <- unlist(strsplit(foo, "x"))

a <- goo[seq(1, length(goo), 2)]
b <- goo[seq(2, length(goo), 2)]

Который дает

[1] "1" "3" "5" "7" "9"

а также

[1] "2"  "4"  "6"  "8"  "10"

соответственно.

09.04.2018 22:28

> result <-  do.call(rbind, goo)
> result
     [,1] [,2]
[1,] "1"  "2" 
[2,] "3"  "4" 
[3,] "5"  "6" 
[4,] "7"  "8" 
[5,] "9"  "10"
> result[, 1] # column 1
[1] "1" "3" "5" "7" "9"
> result[, 2] # column 2
[1] "2"  "4"  "6"  "8"  "10"

09.04.2018 22:28