R：将 doBy 与日期一起使用

Question

我正在用 R 编写一些代码。我正在尝试使用 doBy 包根据日期 (date) 和 id (id) 获取变量 (x) 的总分。 doBy 命令运行良好，我得到了这个输出。

data
id date       x
1  01/01/2021 1
1  01/02/2021 2
1  01/03/2021 3
2  02/01/2021 2
2  02/02/2021 3
2  02/02/2021 4
3  03/11/2021 3
3  03/12/2021 3
3  03/13/2021 2

我想重新编码日期，以便每个人的第一个日期 1 是 1，第二个日期是 2，第三个日期是 3，等等。我希望我的日期看起来像这样。

data2
id daycount x
1  1        1
1  2        2
1  3        3
2  1        2
2  2        3
2  3        4
3  1        3
3  2        3
3  3        2

我可以使用 order() 对日期进行排序，但我不确定如何让日期匹配。我想我需要某种序列或自动编号。此外，一些参与者可能有不同的天数。一些参与者可能有 1 天，而其他参与者可能有 10 天。

Answer 1

您可能希望通过 id 使用 group_by，然后使用 rank 或 dense_rank 创建一个新列（注意它们在处理重复项时的区别） .

为了重新创建您的数据，我使用了：

# recreate data frame
id_vec <- rep(c(1,2,3), each = 3)
date_vec <- c(
  '01/01/2021',
  '01/02/2021',
  '01/03/2021',
  '02/01/2021',
  '02/02/2021',
  '02/02/2021',
  '03/11/2021',
  '03/12/2021',
  '03/13/2021' 
)
x_vec <- rep(c(1,2,3), times = 3)
data <- data.frame(id = id_vec, date = date_vec, x = x_vec)

为了方便起见，我还将 data 列转换为实际的日期格式：

# convert string to date object
library(lubridate)
library(dplyr)
data <- data %>% mutate(date_formatted = mdy(date))

使用 rank 创建列：

data %>%
  group_by(id) %>%
  mutate(day_count = rank(date_formatted, ties.method = "first")) %>%
  ungroup()
# # A tibble: 9 x 5
# id date           x date_formatted day_count
# <dbl> <chr>      <dbl> <date>             <int>
# 1     1 01/01/2021     1 2021-01-01             1
# 2     1 01/02/2021     2 2021-01-02             2
# 3     1 01/03/2021     3 2021-01-03             3
# 4     2 02/01/2021     1 2021-02-01             1
# 5     2 02/02/2021     2 2021-02-02             2
# 6     2 02/02/2021     3 2021-02-02             3
# 7     3 03/11/2021     1 2021-03-11             1
# 8     3 03/12/2021     2 2021-03-12             2
# 9     3 03/13/2021     3 2021-03-13             3

正在使用 dense_rank 创建新列：

data %>%
  group_by(id) %>%
  mutate(day_count = dense_rank(date_formatted)) %>%
  ungroup()
# # A tibble: 9 x 5
# id date           x date_formatted day_count
# <dbl> <chr>      <dbl> <date>             <int>
# 1     1 01/01/2021     1 2021-01-01             1
# 2     1 01/02/2021     2 2021-01-02             2
# 3     1 01/03/2021     3 2021-01-03             3
# 4     2 02/01/2021     1 2021-02-01             1
# 5     2 02/02/2021     2 2021-02-02             2
# 6     2 02/02/2021     3 2021-02-02             2
# 7     3 03/11/2021     1 2021-03-11             1
# 8     3 03/12/2021     2 2021-03-12             2
# 9     3 03/13/2021     3 2021-03-13             3

Answer 2

1) doBy 假设日期已经在 id:

中排序

library(doBy)
transform_by(data, ~ id, countdays = seq_along(id))

给予：

  id       date x countdays
1  1 01/01/2021 1         1
2  1 01/02/2021 2         2
3  1 01/03/2021 3         3
4  2 02/01/2021 2         1
5  2 02/02/2021 3         2
6  2 02/02/2021 4         3
7  3 03/11/2021 3         1
8  3 03/12/2021 3         2
9  3 03/13/2021 2         3

2) Base R 也可以使用 transform 和 ave in base R.

transform(data, daycount = ave(id, id, FUN = seq_along))

给予：

  id       date x daycount
1  1 01/01/2021 1        1
2  1 01/02/2021 2        2
3  1 01/03/2021 3        3
4  2 02/01/2021 2        1
5  2 02/02/2021 3        2
6  2 02/02/2021 4        3
7  3 03/11/2021 3        1
8  3 03/12/2021 3        2
9  3 03/13/2021 2        3

备注

data 可重现形式：

Lines <- "id date       x
1  01/01/2021 1
1  01/02/2021 2
1  01/03/2021 3
2  02/01/2021 2
2  02/02/2021 3
2  02/02/2021 4
3  03/11/2021 3
3  03/12/2021 3
3  03/13/2021 2"
data <- read.table(text = Lines, header = TRUE)

R：将 doBy 与日期一起使用

R: Using doBy with Dates

r

date

autonumber

sequence

summarize

备注