R 如何标记日期系列中的第一个和最后一个日期

这将是我对tidyverse的态度

库（tidyverse）
数据%
分组依据（ID）%>%
变异（行id=行编号（））%>%
当（row\u id==max（row\u number（））~“l”时，进行变异（TypeOfDate=case\u），
行id==min（行编号（））~“f”，
TRUE~as.character（“o”））
#>#tibble:12 x 4
#>#组：ID[3]
#>ID日期行\ ID类型日期
#>             
#>1日期1楼
#>2 1日期2 2 o
#>3 1日期3 3 o
#>4 1日期4 4 l
#>5 2日期1 1楼
#>6 2日期2 2 o
#>7 2日期3 3 l
#>8 3日期1 1楼
#>9月3日2时
#>10日3时30分
#>11月3日4时
#>12 3日期5 l

---

由（v0.3.0）创建于2020-12-04是的，我忘了提到它。我的真实数据中有很多人只有一行（日期）。如果ID只有一行，则必须是

f

如果有一个ID，则您选中的答案为“l”。是的，这是真的。我没有想过每个ID只能有一行的选项，即使答案与我的问题一致。

data<-data.frame(
ID=c(1,1,1,1,2,2,2,3,3,3,3,3),
Date=c("date1", "date2","date3","date4","date1", "date2","date3","date1",
       "date2","date3","date4","date5"))

    ID  Date TypeOfDate
1   1 date1          f
2   1 date2          o
3   1 date3          o
4   1 date4          l
5   2 date1          f
6   2 date2          o
7   2 date3          l
8   3 date1          f
9   3 date2          o
10  3 date3          o
11  3 date4          o
12  3 date5          l