回答編集履歴
1
Update
test
CHANGED
@@ -1,16 +1,20 @@
|
|
1
|
-
`NaN` を除去します。
|
2
1
|
```r
|
2
|
+
data <- data %>%
|
3
|
+
rowwise() %>%
|
4
|
+
mutate(diff_min =
|
3
|
-
|
5
|
+
nth(c_across(starts_with("Event")),
|
4
|
-
|
6
|
+
which.min(across(starts_with("Event"), ~abs(.-Reference)))))
|
7
|
+
|
8
|
+
print(data)
|
5
9
|
|
6
10
|
#
|
7
|
-
subject_id Reference Event_1 Event_2 Event_3 diff_
|
11
|
+
subject_id Reference Event_1 Event_2 Event_3 diff_min
|
8
|
-
<dbl> <date> <date> <date> <date> <d
|
12
|
+
<dbl> <date> <date> <date> <date> <date>
|
9
|
-
1 1 2011-01-05 2012-01-01 2013-01-04 NA
|
13
|
+
1 1 2011-01-05 2012-01-01 2013-01-04 NA 2012-01-01
|
10
|
-
2 1 2013-01-06 2012-01-01 2013-01-04 NA 3
|
14
|
+
2 1 2013-01-06 2012-01-01 2013-01-04 NA 2013-01-04
|
11
|
-
3 2 2014-01-07 2012-01-07 NA NA
|
15
|
+
3 2 2014-01-07 2012-01-07 NA NA 2012-01-07
|
12
|
-
4 3 2012-01-08 2012-01-08 2011-01-08 2011-01-08
|
16
|
+
4 3 2012-01-08 2012-01-08 2011-01-08 2011-01-08 2012-01-08
|
13
|
-
5 3 2013-01-10 2012-12-25 2015-02-01 2016-11-10
|
17
|
+
5 3 2013-01-10 2012-12-25 2015-02-01 2016-11-10 2012-12-25
|
14
|
-
6 5 2015-02-04 2012-12-25 2015-02-01 2016-11-10
|
18
|
+
6 5 2015-02-04 2012-12-25 2015-02-01 2016-11-10 2015-02-01
|
15
19
|
```
|
16
20
|
|