Início / coding / Perguntas / 79240953
Accepted
Grasshopper_NZ
Asked: 2024-12-01 13:15:37 +0800 CST

Como combinar elementos de uma lista e garantir que somente o registro mais recente seja usado quando aplicável?

  • 772

Estou trabalhando com uma série de data.frameslistas, onde cada rodada adiciona um novo ano e remove o último ano, conforme mostrado na imagem abaixo:

insira a descrição da imagem aqui

Aqui está o código R para o exemplo mínimo reproduzível:

library(purrr)

# Define the year ranges:
(year_ranges <- map(0:2, \(increment) {(1991:1995) + increment}))


# Create data.frames:
(df_1 <- map(year_ranges, \(year_range) {
  
  map_dfc(year_range, \(col) {setNames(list(rnorm(n = 4)), as.character(col))})
  
}))

Gostaria de combiná-los em um data.framee manter apenas os dados da última rodada se houver vários registros:

insira a descrição da imagem aqui

Por exemplo, o ano 1992tem 2 rodadas de registros, somente o mais novo será usado (marcado em verde claro) e os mais antigos serão abandonados.

Como posso conseguir isso? Quaisquer comentários são bem-vindos.

2 respostas

  1. Aqui está uma abordagem básica do R que usa duplicated()para subconjunto a última ocorrência de cada nome:

    dat <- do.call(cbind, df_1)
dat[!duplicated(names(dat), fromLast = TRUE)]
#         1991       1992       1993        1994      1995       1996       1997
# 1 -2.5991600 -0.9621779  0.7901328 -0.51441785 1.6508529 -1.2604506  1.3905070
# 2 -0.8418027  0.9187921  0.1650032 -0.05987334 0.5572070 -2.0478516 -0.1336267
# 3  0.6176185  2.1625797  1.5277426 -1.60377711 0.1383535 -0.2871436 -0.3338140
# 4 -1.7544975 -0.7335684 -0.6778189  0.01732084 0.0369754  0.9178328  0.8352614
    • 7
  2. Best Answer

    Aqui está uma opção usando purrr::reduceand dplyr::bind_cols:

    library(purrr)
library(dplyr, warn = FALSE)

reduce(
  df_1,
  \(x, y) {
    dplyr::bind_cols(
      # Keep only columns from x not present in y
      x[!names(x) %in% names(y)],
      y
    )
  }
)
#> # A tibble: 4 × 7
#>   `1991` `1992` `1993`   `1994`  `1995` `1996` `1997`
#>    <dbl>  <dbl>  <dbl>    <dbl>   <dbl>  <dbl>  <dbl>
#> 1  0.319 -0.852 -0.924 -0.00283  0.639   0.523  0.257
#> 2  0.660 -0.385 -0.356  0.0836   0.290   0.705 -0.471
#> 3  0.699 -1.36  -0.825  0.459   -0.319   0.800  0.778
#> 4  1.11  -0.689 -2.08   0.425    0.0427  1.55   1.35
    • 5

relate perguntas