R 获取数据帧中每个日期的前n行

目前，我正在尝试对数据集中的每个日期的前n个观测值进行子集。例如，假设

n=2

。这是数据集的外观：

Date             Measure  
2019-02-01       5  
2019-02-01       4  
2019-02-01       3  
2019-02-01       6  
   …             …   
2019-02-02       5  
2019-02-02       5  
2019-02-02       2  
   …             …   

我希望看到以下输出：

Date             Measure  
2019-02-01       5  
2019-02-01       4  
2019-02-02       5  
2019-02-02       5  
   …             … 

---

不幸的是，这不是我能做的定义。我处理的数据超过1000万行，因此解决方案需要是动态的，以便为每个唯一的日期选择

n

。

一个选项是按“日期”分组，并对“n”行的顺序进行切片

library(dplyr)
n <- 2
df1 %>%
    group_by(Date) %>%
    slice(seq_len(n))

库（dplyr）
n%
分组单位（日期）%>%
切片（序号（n））