Início / coding / Perguntas / 78400093
Accepted
hans jablonsky
Asked: 2024-04-29 09:13:17 +0800 CST

Existe uma maneira de fazer combinações da função paste0 com uma lista?

  • 772

Eu tenho um vetor de nomes:

names <- c("a", "b", "c", "d", "e", "f", "g", "h")

Quero fazer séries de combinações desses nomes com esses números respectivamente:

numbers <- c(0, 0:2, 0:3, 0:1, 0:1, 0, 0, 0)

Então minhas combinações seriam:

a0 b0 b1 b2 c0 c1 c2 c3 d0 d1 e0 e1 f0 g0 h0

Como eu posso fazer isso? Prefiro usar uma função vetorizada do que iterar.

Tentei esses códigos, mas obtive resultados errados (possivelmente devido a reciclagem ou algo assim):

paste0(names, numbers, recycle0 = F)
paste0(names, numbers, recycle0 = T)
paste0(names, numbers |> as.list())
purrr::map_chr(names, paste0(c(0, 0:2, 0:3, 0:1, 0:1, 0, 0, 0)))

e alguns outros que não consigo lembrar com clareza.

3 respostas

  1. Best Answer

    1) São cumsum(...)os índices em nomes, ou seja, 1 2 2 2 3 3 3 3 4 4 5 5 6 7 8, então indexe em namese cole numbersno final. Nenhum pacote externo é usado.

    paste0(names[cumsum(numbers == 0)], numbers)
## [1] "a0" "b0" "b1" "b2" "c0" "c1" "c2" "c3" "d0" "d1" "e0" "e1" "f0" "g0" "h0"

    2) Uma segunda abordagem, também baseada em cumsum(...), é usar rlepara obter a duração das corridas, repetir cada nome esse número de vezes e depois colar os números. Isso também não usa pacotes.

    paste0(rep(names, rle(cumsum(numbers == 0))$lengths), numbers)
## [1] "a0" "b0" "b1" "b2" "c0" "c1" "c2" "c3" "d0" "d1" "e0" "e1" "f0" "g0" "h0"

    3) Este não usa cumsum, mas usa um pacote. Substitua numbersos 0 pelos nomes e os demais números por NA. Em seguida, use na.locf0para preencher os NA e colar os números.

    library(zoo)

paste0(na.locf0(replace(NA * numbers, numbers == 0, names)), numbers)
## [1] "a0" "b0" "b1" "b2" "c0" "c1" "c2" "c3" "d0" "d1" "e0" "e1" "f0" "g0" "h0"

    Observação

    Entrada da pergunta

    names <- c("a", "b", "c", "d", "e", "f", "g", "h")
numbers <- c(0, 0:2, 0:3, 0:1, 0:1, 0, 0, 0)
    • 5

  2. Aqui está uma solução usando numberscomo vetor com a sequência máxima

    names <- c("a", "b", "c", "d", "e", "f", "g", "h")

numbers <- c(0, 2, 3, 1, 1, 0, 0, 0)

library(purrr)

unlist(map2(.x = names,.y = numbers,.f = \(.x,.y) paste0(.x,0:.y)))

[1] "a0" "b0" "b1" "b2" "c0" "c1" "c2" "c3" "d0" "d1" "e0" "e1" "f0" "g0" "h0"
    • 2

  3. Você pode usar mapply:

    names <- c("a", "b", "c", "d", "e", "f", "g", "h")
numbers <- list(0, 0:2, 0:3, 0:1, 0:1, 0, 0, 0)
unlist(mapply(function(name, nums) paste0(name, nums), names, numbers))

    Saída:

       a   b1   b2   b3   c1   c2   c3   c4   d1   d2   e1   e2    f    g    h 
"a0" "b0" "b1" "b2" "c0" "c1" "c2" "c3" "d0" "d1" "e0" "e1" "f0" "g0" "h0"
    • 2

relate perguntas