R语言中可以使用tidyverse包中的dplyr库进行解决。首先，需要对数据进行分组，以便按照事件日期和ID进行填充订单。然后，可以使用mutate()函数在每个分组中添加一个新列，该列为事件日期排序后的序列号。最后，可以使用fill()函数填充订单，以使每个分组中的订单完全填充。

示例代码如下：

library(tidyverse)

# 创建示例数据集
df <- data.frame(ID = c(1, 1, 1, 2, 2, 3), 
                 order = c(NA, "order1", "order2", NA, "order3", NA), 
                 eventdate = c("2021-01-01", "2021-01-03", "2021-01-05", "2021-01-02", "2021-01-04", "2021-01-01"))

# 按照事件日期和ID对数据进行分组
df_grouped <- df %>% 
  group_by(ID) %>% 
  arrange(eventdate)

# 在每个分组中添加一个新列，该列为事件日期排序后的序列号
df_order_number <- df_grouped %>% 
  mutate(order_number = row_number(order = eventdate))

# 使用fill()函数填充订单
df_order_filled <- df_order_number %>% 
  fill(order)

df_order_filled

运行代码后，df_order_filled数据集中的订单已经完全填充。