Разделите строку сначала точкой с запятой, а затем пробелом и сохраните ее как фрейм данных

У меня есть строка:

a = c("112 271 [X];313 179 [X];125 162;123 131 [X];124 107")

Я хочу сначала разделить его точкой с запятой ;

b = as.list(strsplit(a, ";")[[1]])

> b
[[1]]
[1] "112 271 [X]"

[[2]]
[1] "313 179 [X]"

[[3]]
[1] "125 162"

[[4]]
[1] "123 131 [X]"

[[5]]
[1] "124 107"

затем я хочу разделить b на space и сохранить результат в виде фрейма данных с тремя столбцами.

Результат выглядит так:


    A   B   C
1 112 271 [X]
2 313 179 [X]
3 125 162    
4 123 131 [X]
5 124 107

Я не знаю, как это сделать. Спасибо за вашу помощь.

r string dataframe split data.table

16.11.2022 11:13

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

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

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

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

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

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

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

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

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

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

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

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

407

Перейти к ответу Данный вопрос помечен как решенный

Ответы 4

Ответ принят как подходящий

Замените точку с запятой на новую строку, затем прочтите на заливку и установите имена столбцов:

data.table::fread(gsub(";", "\n", a, fixed = TRUE),
                  fill = TRUE,
                  col.names = LETTERS[1:3])
#      A   B   C
# 1: 112 271 [X]
# 2: 313 179 [X]
# 3: 125 162    
# 4: 123 131 [X]
# 5: 124 107

16.11.2022 11:22

tidyverse решение; две функции separate и separate_rows взяты из tidyr (который является частью tidyverse):

library(tidyr)
data.frame(a) %>%
  separate_rows(a, sep = ";") %>%
  separate(a,
           into = c("A","B","C"),
           sep = "\\s")
# A tibble: 5 × 3
  A     B     C    
  <chr> <chr> <chr>
1 112   271   [X]  
2 313   179   [X]  
3 125   162   NA   
4 123   131   [X]  
5 124   107   NA

16.11.2022 12:28

Базовый вариант R с использованием read.table (аналогично решению @zx8754 data.table)

> read.table(text = gsub(";", "\n", a), fill = TRUE, col.names = head(LETTERS, 3))
    A   B   C
1 112 271 [X]
2 313 179 [X]
3 125 162
4 123 131 [X]
5 124 107

Можно было конечно и с базы :) Я по привычке автоматом использовал fread.

— 16.11.2022 12:42

16.11.2022 12:29

Вы также можете сделать это с помощью stringr::str_split(). В приведенном ниже примере я использую два последовательных вызова str_split() с упрощенными выводами для создания матрицы символов, которую затем можно преобразовать во фрейм данных.

## Question data --------------------------------------------------
a <- c("112 271 [X];313 179 [X];125 162;123 131 [X];124 107")

require(stringr)
#> Loading required package: stringr
## Split into character matrix ------------------------------------
str_split(a, ";", simplify = TRUE) |>
  str_split("[:space:]", simplify = TRUE) |> 

  ## convert to data frame ----------------------------------------
  as.data.frame() |> 
  setNames(c("A", "B", "C"))

#>     A   B   C
#> 1 112 271 [X]
#> 2 313 179 [X]
#> 3 125 162    
#> 4 123 131 [X]
#> 5 124 107

^{Created on 2022-11-16 with reprex v2.0.2}

16.11.2022 12:38