Никак не могу сообразить решения без цикла. Есть data.frame
+-------------------+-----------------+
| "key (ordered 1)" | day (ordered 2) |
+-------------------+-----------------+
| k1 | 01.02.2015 |
| k1 | 23.03.2015 |
| k1 | 01.11.2015 |
| k2 | 15.03.2015 |
| k2 | 16.08.2015 |
| k3 | 05.09.2015 |
| k3 | 10.09.2015 |
| k3 | 01.10.2015 |
| k3 | 01.11.2015 |
+-------------------+-----------------+
Надо по каждому ключу посчитать число дней прошедших до текущей точки и после. Для первых последних записей df
- можно поставить NA
.
То есть в результате должна получиться такая таблица:
+-----------------+-----------------+------------+-----------+
| key (ordered 1) | day (ordered 2) | day_before | day_after |
+-----------------+-----------------+------------+-----------+
| k1 | 01.02.2015 | NA | 50 |
| k1 | 23.03.2015 | 50 | 223 |
| k1 | 01.11.2015 | 223 | NA |
| k2 | 15.03.2015 | NA | 154 |
| k2 | 16.08.2015 | 154 | NA |
| k3 | 05.09.2015 | NA | 5 |
| k3 | 10.09.2015 | 5 | 21 |
| k3 | 01.10.2015 | 21 | 31 |
| k3 | 01.11.2015 | 31 | NA |
+-----------------+-----------------+------------+-----------+
UPD. Вот результат dput(mydata)
d <-
structure(list(
key = c("k1", "k1", "k1", "k2", "k2", "k3", "k3", "k3", "k3"),
day = c("01.02.2015", "23.03.2015", "01.11.2015", "15.03.2015",
"16.08.2015", "05.09.2015", "10.09.2015", "01.10.2015", "01.11.2015")),
.Names = c("key", "day"), class = "data.frame", row.names = c(NA, -9L))
dput(mydata)
.