Início / coding / Perguntas / 79375417
Accepted
Joe
Asked: 2025-01-22 01:39:59 +0800 CST

Adicionando 1 ao último e penúltimo números nos meus dados

  • 772

Tenho os seguintes dados para os quais estou tentando dividir de 1 para a última seção de números por a -. Meus dados são os seguintes;

dat
"4-3" "60-0 2-5" "10-1 3-2" "20-2 3-0" "3-0" "20-5 3-0"

O que estou tentando arquivar é que estamos adicionando separadamente 1 ao último número e 1 ao penúltimo número;

dat1
"5-3" "60-0 3-5" "10-1 4-2" "20-2 4-0" "4-0" "20-5 4-0"

dat2
"4-4" "60-0 2-6" "10-1 3-3" "20-2 3-1" "3-1" "20-5 3-1"

Acho que pode ser possível dividir os dados usando um gsub(), embora isso possa ser complicado, pois meus dados variam em comprimento entre 1 conjunto de números e 2, meu outro problema é que se eu usar um gsub, não consigo somar (até onde eu saiba). Minha teoria seria algo como identificar o último número e adicionar 1, então identificar o segundo último número e adicionar 1

4 respostas

  1. Best Answer

    1) gsubfn gsubfn é como gsubexceto que o argumento de substituição pode ser uma função e, como aqui, pode ser opcionalmente expresso usando uma notação de fórmula compacta. Os grupos de captura na expressão regular são passados ​​para a função e as variáveis ​​livres no corpo são atribuídas a eles em ordem de ocorrência. A saída da função então substitui a parte correspondida pela expressão regular.

    library(gsubfn)

res1 <- gsubfn("(\\d+)(-\\d+)$", ~ paste0(as.numeric(x) + 1, y), dat)
identical(res1, dat1)
## [1] TRUE

res2 <- gsubfn("(\\d+)$", ~ as.numeric(x) + 1, dat)
identical(res2, dat2)
## [1] TRUE

    2) Base R Usando apenas a base R, divida cada componente de datpor separadores não-dígitos, dando uma lista de vetores de caracteres, um desses vetores por componente de dat. Em seguida, aplique plus1a cada componente, ou seja, cada vetor de caracteres, na lista. Para cada um, converta-o em um vetor numérico nume, em seguida, incremente seu k-ésimo último elemento, onde k = 1 significa o último elemento e k=2 significa o segundo último. Finalmente, cole-o novamente inserindo os sinais de menos e espaços.

    plus1 <- function(x, k, num = as.numeric(x))
  replace(num, length(num) - k + 1, tail(num, k)[1] + 1) |>
    matrix(2) |>
    apply(2, paste, collapse = "-") |>
    paste(collapse = " ")

base1 <- sapply(strsplit(dat, "\\D+"), plus1, k = 2)
identical(base1, dat1)
## [1] TRUE

base2 <- sapply(strsplit(dat, "\\D+"), plus1, k = 1)
identical(base2, dat2)
## [1] TRUE

    Observação

    dat <- c("4-3", "60-0 2-5", "10-1 3-2", "20-2 3-0", "3-0", "20-5 3-0")
dat1 <- c("5-3", "60-0 3-5", "10-1 4-2", "20-2 4-0", "4-0", "20-5 4-0")
dat2 <- c("4-4", "60-0 2-6", "10-1 3-3", "20-2 3-1", "3-1", "20-5 3-1")
    • 5

  2. Podemos usar paste0nossa nova string usando uma função que encontra o caractere de comprimento n em uma string e adiciona a 1a ela. Que é a maneira mais precisa que consegui encontrar, embora meu cérebro quase tenha entrado em colapso enquanto escrevia.

    # Function to add 1 to the nchar(string)-n char in string
add_to_last <- function(x, n=0) { paste0(substr(x, 1, nchar(x) - 1-n), as.numeric(substr(x, nchar(x)-n, nchar(x)-n))+1, substr(x, nchar(x) -n+1, nchar(x)))}

dat <- c("4-3", "60-0 2-5", "10-1 3-2", "20-2 3-0", "3-0", "20-5 3-0")  

# Sapply 
> sapply(dat, add_to_last)
       4-3   60-0 2-5   10-1 3-2   20-2 3-0        3-0   20-5 3-0 
     "4-4" "60-0 2-6" "10-1 3-3" "20-2 3-1"      "3-1" "20-5 3-1" 
> sapply(dat, add_to_last, n=2)
       4-3   60-0 2-5   10-1 3-2   20-2 3-0        3-0   20-5 3-0 
     "5-3" "60-0 3-5" "10-1 4-2" "20-2 4-0"      "4-0" "20-5 4-0"
    • 2

  3. Você pode usar sub+ paste0como abaixo

    dat1 <- paste0(
  sub("\\d+-\\d+$", "", dat),
  as.integer(sub(".*(\\d+)-.*$", "\\1", dat)) + 1,
  sub(".*(-\\d+)$", "\\1", dat)
)

dat2 <- paste0(
  sub("\\d+$", "", dat),
  as.integer(sub(".*-", "", dat)) + 1
)

    tal que

    > dat1
[1] "5-3"      "60-0 3-5" "10-1 4-2" "20-2 4-0" "4-0"      "20-5 4-0"

> dat2
[1] "4-4"      "60-0 2-6" "10-1 3-3" "20-2 3-1" "3-1"      "20-5 3-1"

    Além disso, você pode encapsular tudo em uma função personalizada, onde idx=1significa o último número e idx=2significa o último segundo número

    f <- function(dat, idx = 1) {
  stopifnot(idx %in% c(1, 2))
  pat1 <- "(?<=\\D?)(?=\\d+-\\d+$)"
  pat2 <- "(?<=\\d)(?=-\\d+$)"
  pat3 <- "(?<=-)(?=\\d+$)"
  v <- strsplit(dat, paste0(c(pat1, pat2, pat3), collapse = "|"), perl = TRUE)
  sapply(v, \(x) {
    x[length(x) - 2 * (idx - 1)] <- as.numeric(x[length(x) - 2 * (idx - 1)]) + 1
    paste0(x, collapse = "")
  })
}

    tal que

    > f(dat)
[1] "4-4"      "60-0 2-6" "10-1 3-3" "20-2 3-1" "3-1"      "20-5 3-1"

> f(dat, 2)
[1] "5-3"      "60-0 3-5" "10-1 4-2" "20-2 4-0" "4-0"      "20-5 4-0"

> f(dat, 3)
Error in f(dat, 3) : idx %in% c(1, 2) is not TRUE
    • 2

  4. Você também pode usar str_replace_allfrom stringr:

    library(stringr)

str_replace_all(dat, "(\\d+)(?=-\\d+$)", ~as.numeric(.x) + 1)
[1] "5-3"      "60-0 3-5" "10-1 4-2" "20-2 4-0" "4-0"      "20-5 4-0"

str_replace_all(dat, "(\\d+)$", ~as.numeric(.x) + 1)
[1] "4-4"      "60-0 2-6" "10-1 3-3" "20-2 3-1" "3-1"      "20-5 3-1"

    Fazendo o mesmo no Base R:

    `regmatches<-`(dat, m <- regexpr("(\\d+)(?=-\\d+$)", dat, perl = TRUE), 
                value = as.numeric(regmatches(dat, m)) + 1)
[1] "5-3"      "60-0 3-5" "10-1 4-2" "20-2 4-0" "4-0"      "20-5 4-0"

`regmatches<-`(dat, m <- regexpr("\\d+$", dat), 
                value = as.numeric(regmatches(dat, m)) + 1)
[1] "4-4"      "60-0 2-6" "10-1 3-3" "20-2 3-1" "3-1"      "20-5 3-1"
    • 1

relate perguntas