Início / coding / Perguntas / 77605623
Accepted
Basil
Asked: 2023-12-05 18:53:06 +0800 CST

Junção temporal em R

  • 772

Eu tenho duas tabelas chamadas datese items:

#dates table
from <- c(as.Date("2022/1/1"), as.Date("2022/3/1"), as.Date("2022/5/1"))
to <- c(as.Date("2022/1/25"), as.Date("2022/3/17"), as.Date("2022/5/30"))
id <- c(1,1,2)
dates <- data.frame(from, to, id)

#items table
item_id <- c(1, 1, 2)
date <- c(as.Date("2022/1/5"), as.Date("2022/3/4"), as.Date("2022/1/4"))
items <-data.frame(item_id, date)

#end result
from <- c(as.Date("2022/1/1"), as.Date("2022/3/1"), NA)
to <- c(as.Date("2022/1/25"), as.Date("2022/3/17"), NA)

end_result <- data.frame(item_id, date, from, to)

O datesdf precisa se juntar ao itemsdf onde o ID corresponde e também onde a data do itemsdf está entre as datas de e para do datesdf. O end_resultdataframe mostra os resultados esperados.

Alguém tem alguma sugestão sobre como conseguir isso?

2 respostas

  1. Best Answer

    1) sqldf Uniu os itens à esquerda nas datas usando os critérios de associação indicados. from e to são palavras reservadas do SQL, então coloque-as entre colchetes.

    library(sqldf)

result <- sqldf("select items.item_id, items.date, dates.[from], dates.[to]
  from items left join dates on dates.id = items.item_id and
    items.date between dates.[from] and dates.[to]")

# check
identical(result, end_result)
## [1] TRUE

    2) dplyr Funciona da mesma maneira.

    library(dplyr)

result2 <- items %>%
  left_join(dates, join_by(item_id == id, between(date, from, to)))

# check
identical(result2, end_result)
## [1] TRUE
    • 1

  2. Uma data.tablesolução:

    library(data.table)
end_result <- as.data.table(items)[dates,
                                   on=.(item_id==id, date>=from, date<=to),
                                   `:=` (from=from, to=to)]

    O acima é atribuído a uma nova tabela end_result, mas você pode evitar fazer uma cópia extra de todos os dados atualizando itemsno local. Basta começar com setDT(items)[dates,em vez de end_result <- as.data.table(items)[dates,.

    • 0

relate perguntas