Início / coding / Perguntas / 79410705
Accepted
denis
Asked: 2025-02-04 14:02:28 +0800 CST

Como preencher um texto fornecido até outro texto fornecido e assim por diante em R?

  • 772

Provavelmente já respondido, mas estou com dificuldade para encontrar a resposta para esta pergunta: Em uma nova coluna 'new_text', como preencher um texto fornecido com outro texto fornecido, e assim por diante...

No exemplo abaixo, como preencher 'Potter' com 'Wisley' e depois 'Wisley' com 'Granger', etc...?

A ideia é aplicar a solução proposta a dataframes de milhares de linhas (obtidos com pdftools::pdf_data) selecionando uma sequência de palavras específicas para preencher dessa maneira.

Obrigado pela ajuda.

> dat0
      text new_text
1   Potter   Potter
2     hj7d   Potter
3    kl8ep   Potter
4      f3d   Potter
5   rtyzs2   Potter
6   Wisley   Wisley
7     lq6s   Wisley
8      2fg   Wisley
9  Granger  Granger
10    r8ka  Granger
11      h9  Granger
12   qm9ne  Granger

Dados:

dat0 <-
structure(list(text = c("Potter", "hj7d", "kl8ep", "f3d", "rtyzs2", 
"Wisley", "lq6s", "2fg", "Granger", "r8ka", "h9", "qm9ne"), new_text = c("Potter", 
"Potter", "Potter", "Potter", "Potter", "Wisley", "Wisley", "Wisley", 
"Granger", "Granger", "Granger", "Granger")), class = "data.frame", row.names = c(NA, 
-12L))

2 respostas

  1. Best Answer

    Uma maneira é converter os não-nomes para NA e então usar fillfrom tidyr. Você precisará configurar as palavras específicas (nomes) que deseja manter primeiro.

    library(tidyr)

Names <- c("Potter", "Wisley", "Granger")

transform(dat0, text=ifelse(text %in% Names, text, NA)) |>
  fill(text)
      text new_text
1   Potter   Potter
2   Potter   Potter
3   Potter   Potter
4   Potter   Potter
5   Potter   Potter
6   Wisley   Wisley
7   Wisley   Wisley
8   Wisley   Wisley
9  Granger  Granger
10 Granger  Granger
11 Granger  Granger
12 Granger  Granger
    • 4

  2. Obviamente que a solução do @Edwardfill é a opção mais concisa para o seu problema, você definitivamente não vai querer perder isso.

    Minha solução é construída na base R (se você estiver interessado e jogar por diversão), onde você pode usar cumsum+ %in%+ avecomo abaixo

    nms <- c("Potter", "Wisley", "Granger")
transform(
    df,
    new_text = nms[ave(
        match(text, nms),
        cumsum(text %in% nms),
        FUN = na.omit
    )]
)

    o que dá

          text new_text
1   Potter   Potter
2     hj7d   Potter
3    kl8ep   Potter
4      f3d   Potter
5   rtyzs2   Potter
6   Wisley   Wisley
7     lq6s   Wisley
8      2fg   Wisley
9  Granger  Granger
10    r8ka  Granger
11      h9  Granger
12   qm9ne  Granger
13  Potter   Potter
14    abcd   Potter
15    d9k2   Potter
16    89kx   Potter
17    dkdi   Potter

    dados

    df <- structure(list(text = c(
    "Potter", "hj7d", "kl8ep", "f3d", "rtyzs2",
    "Wisley", "lq6s", "2fg", "Granger", "r8ka", "h9", "qm9ne",
    "Potter", "abcd", "d9k2", "89kx", "dkdi"
)), row.names = c(
    NA,
    -17L
), class = "data.frame")

> df
      text
1   Potter
2     hj7d
3    kl8ep
4      f3d
5   rtyzs2
6   Wisley
7     lq6s
8      2fg
9  Granger
10    r8ka
11      h9
12   qm9ne
13  Potter
14    abcd
15    d9k2
16    89kx
17    dkdi
    • 3

relate perguntas