Сгруппировать, удалить дубликаты и поменять значение на основе условия в r - PullRequest
Новая
       9

Сгруппировать, удалить дубликаты и поменять значение на основе условия в r

1 голос
/ 22 октября 2019

У меня есть таблица с номером 

+----+--------+-------+------------+
| ID | Serial | VALUE |    DATE    |
+----+--------+-------+------------+
|  1 |     11 |    -1 | 2019-10-01 |
|  1 |     11 |    -2 | 2019-10-02 |
|  2 |     22 |    -9 | 2019-09-01 |
|  2 |     22 |   -10 | 2019-09-02 |
|  2 |     12 |     9 | 2019-09-03 |
|  3 |     12 |   -10 | 2019-08-01 |
|  3 |     12 |    -8 | 2019-08-03 |
|  3 |     13 |    -7 | 2019-08-04 |
+----+--------+-------+------------+

Я хочу сгруппировать таблицу на основе идентификатора и серийного номера, а затем сохранить только те ЗНАЧЕНИЯ в группе, которые отображаются самыми последними в ДАТА, при смене даты на более раннюю. значение Я также хотел бы сохранить строки, которые не имеют дубликатов в отношении идентификатора и серийного номера

Мой желаемый результат такой же, как в 

+----+--------+-------+------------+
| ID | Serial | VALUE |    DATE    |
+----+--------+-------+------------+
|  1 |     11 |    -2 | 2019-10-01 |
|  2 |     22 |   -10 | 2019-09-01 |
|  2 |     12 |     9 | 2019-09-03 |
|  3 |     12 |    -8 | 2019-08-01 |
|  3 |     13 |    -7 | 2019-08-04 |
+----+--------+-------+------------+

, код, над которым я мог работать, был сгруппировать пос помощью dplyr я не уверен, как мне поступить для остальных

Мой код до сих пор, как в 

df %>%
group by (ID, SERIAL)

1 Ответ

2 голосов
/ 22 октября 2019

Вот одна идея. 

library(tidyverse)

dat %>%
  mutate(DATE = as.Date(DATE)) %>%
  group_by(ID, Serial) %>%
  summarize(VALUE = last(VALUE), DATE = min(DATE)) %>%
  ungroup() %>%
  arrange(ID, DATE)
# # A tibble: 5 x 4
#      ID Serial VALUE DATE      
#   <dbl>  <dbl> <dbl> <date>    
# 1     1     11    -2 2019-10-01
# 2     2     22   -10 2019-09-01
# 3     2     12     9 2019-09-03
# 4     3     12    -8 2019-08-01
# 5     3     13    -7 2019-08-04

ДАННЫЕ 

# Create an example
dat <- tribble(
  ~ID, ~Serial, ~VALUE, ~DATE,
    1,      11,      -1, "2019-10-01",
    1,      11,      -2, "2019-10-02",
    2,      22,      -9, "2019-09-01",
    2,      22,     -10, "2019-09-02",
    2,      12,       9, "2019-09-03",
    3,      12,     -10, "2019-08-01",
    3,      12,      -8, "2019-08-03",
    3,      13,      -7, "2019-08-04"
)
...