Присвоить значения между датами кадру данных в r - PullRequest
Новая
       13

Присвоить значения между датами кадру данных в r

0 голосов
/ 03 мая 2018

Как мне удается использовать дату, которая у меня есть, в кадре данных, скажем, в кадре данных 1, в качестве ссылки для выбора значения, которое находится в другом кадре данных, dataframe2, когда моя дата в кадре данных находится между переменной даты начала и переменная конечной даты в кадре данных 2?

Например, у меня есть два кадра данных. Первый - это датафрейм, в котором есть только даты, мы назовем его «даты». 

library(lubridate)

date <-  ymd(c("2017-06-01", "2013-01-01", "2014-03-01", "2008-01-01","2011-03-01","2009-03-01","2012-03-01","2015-08-01","2008-08-01"))

date <- as.data.frame(date)

> date
        date
1 2017-06-01
2 2013-01-01
3 2014-03-01
4 2008-01-01
5 2011-03-01
6 2009-03-01
7 2012-03-01
8 2015-08-01
9 2008-08-01

Мой другой фрейм данных, "df2", содержит даты начала и окончания и значение, которое должно быть назначено фрейму данных "date" в случае, если дата $ date попадает между датой начала и датой окончания фрейма данных " df2 ". 

start_date <- dmy(c("1/6/2001","1/6/2002","1/6/2003","1/10/2011","1/11/2015","1/1/2016","1/1/2017","1/1/2018"))

end_date <-dmy(c("1/5/2002","1/5/2003","1/9/2011","1/10/2015","1/12/2015","1/12/2016","1/12/2017","1/12/2018"))

value <- c(2400,3600,4800,7000,7350,7717.5,8103.38,8508.54)

df2 <- data.frame(start_date, end_date, value)


> df2
  start_date     end_date     value
1 2001-06-01   2002-05-01   2400.00
2 2002-06-01   2003-05-01   3600.00
3 2003-06-01   2011-09-01   4800.00
4 2011-10-01   2015-10-01   7000.00
5 2015-11-01   2015-12-01   7350.00
6 2016-01-01   2016-12-01   7717.50
7 2017-01-01   2017-12-01   8103.38
8 2018-01-01   2018-12-01   8508.54

В итоге я бы получил такой результат: 

        date     value
1 2017-06-01   8103.38
2 2013-01-01   7000.00
3 2014-03-01   7000.00
4 2008-01-01   4800.00
5 2011-03-01   4800.00
6 2009-03-01   4800.00
7 2012-03-01   7000.00
8 2015-08-01   7000.00
9 2008-08-01   4800.00

1 Ответ

0 голосов
/ 03 мая 2018

Используя data.table, вы можете указать условие соединения мухи: 

library(data.table)
setDT(date1)  # date data frame
setDT(df1)

date1[df2, on = .(date >= start_date, date <= end_date), value := i.value]
print(date1)

         date   value
1: 2008-01-01 4800.00
2: 2008-08-01 4800.00
3: 2009-03-01 4800.00
4: 2011-03-01 4800.00
5: 2012-03-01 7000.00
6: 2013-01-01 7000.00
7: 2014-03-01 7000.00
8: 2015-08-01 7000.00
9: 2017-06-01 8103.38
...