Início / coding / Perguntas / 79159062
Accepted
David
Asked: 2024-11-05 20:14:37 +0800 CST

Dividir uma string em linhas por delimitador e adicionar coluna com ordem

  • 772

Eu sei como dividir uma string em linhas por um delimitador de

V1 V2
1 ele
2 eu, eu, o

para

V1 V2
1 o
1 e
2 eu
2 eu
2 o

com tidyr::separate_longer_delim(V2, delim = ",")mas como posso adicionar uma coluna com a ordem original das partes individuais da string como em

V1 V2 ordem
1 o 1
1 e 2
2 eu 1
2 eu 2
2 o 3

?

3 respostas

  1. Best Answer

    Usando purrr::mappara obter a variável de ordemunnest e, em seguida, para obter os elementos por linha

    library(dplyr)
library(tidyr)

df %>% 
  mutate(V2 = strsplit(V2, ","), 
         order = purrr::map(lengths(V2), ~ seq_len(.x))) %>% 
  unnest(-V1)
# A tibble: 5 × 3
     V1 V2    order
  <int> <chr> <int>
1     1 h         1
2     1 e         2
3     2 l         1
4     2 l         2
5     2 o         3
    Dados
    df <- structure(list(V1 = 1:2, V2 = c("h,e", "l,l,o")), class = "data.frame", 
row.names = c(NA, -2L))
    • 1

  2. Adicione a mutatelinha mostrada. daté definido de forma reproduzível na Nota no final.

    library(dplyr)
library(tidyr)

dat %>%
  separate_longer_delim(V2, delim = ",") %>%
  mutate(V2, order = row_number(), .by = V1)

    dando

      V1 V2 order
1  1  h     1
2  1  e     2
3  2  l     1
4  2  l     2
5  2  o     3

    Observação

    Entrada. Execute isto primeiro.

    dat <- data.frame(V1 = 1:2, V2 = c("h,e", "l,l,o"))
    • 1

  3. base R

    assumindo que V1não há coluna de identificação.

    > i = strsplit(df0$V2, ",", fixed = TRUE); n = lengths(i)
> data.frame(V1 = rep(df0$V1, n), V2 = unlist(i), O = unlist(lapply(n, seq)))
  V1 V2 O
1  1  h 1
2  1  e 2
3  2  l 1
4  2  l 2
5  2  o 3

    Observação

    df0 = structure(list(V1 = 1:2, V2 = c("h,e", "l,l,o")), class = "data.frame", row.names = c(NA, -2L))
    • 0

relate perguntas