子集来自 lubridate 数据集的随机季度时间数据

Question

如何使用 match() 函数生成随机季度（如 Jan、Feb、March）并选择数据的子集：对应于生成的随机季度和第一列和第三列的行。

假设我们有一个 12 行 3 列的时间数据，如下所示：

      dates     strings    numbers
1  2017-01-31       S       5
2  2017-02-28       T       1
3  2017-03-31       C       8
4  2017-04-30       Q       2
5  2017-05-31       D       6
6  2017-06-30       X      12
7  2017-07-31       N      10
8  2017-08-31       Y       9
9  2017-09-30       P      11
10 2017-10-31       G       4
11 2017-11-30       F       7
12 2017-12-31       R       3

我的意思是很容易在数据集中随机选择 3 行，并且只选择第 1 列和第 3 列的子集。像这样，

df[sample(nrow(df), 3),c("dates","numbers")]

因此，我有，

        dates    numbers
5  2017-05-31       1
9  2017-09-30       4
11 2017-11-30      12

但是如何通过使用 match() 来实现这样的随机财政季度，

        dates    numbers
1  2017-01-31       5
2  2017-02-28       1
3  2017-03-30       8

Answer 1

也许这有帮助

library(zoo)
library(tidyverse)
df %>% 
   group_by(qtr = format(as.yearqtr(dates), 'Q%q')) %>% 
   select(-strings) %>%
   sample_n(1) %>% 
   ungroup() %>% 
   sample_n(3) %>% 
   select(-qtr)