如何获取多个 Sample() 向量输出并将它们组合成一个数据框

Question

sorry if this is a somewhat basic question. But I am wanting to take a random sample sample of data from each day (coming from separate files), using the sample() function, and then combine each of those sampled rows from the day data and combine it all into a week data frame of only my sampled data from the day datasets.

Answer 1

Assume that the data is held in files name for their day, like mydata_2020_05_17.csv

library(tidyverse)
readDay <- function(date, dir, sampleN){
  path <- paste0(dir, "/", "mydata_", date, ".csv")
  read_csv(path) %>% 
    as_tibble() %>% 
      # You many not need this if the records already have the date
    mutate(DATE = date) %>% 
    sample_n(sampleN, replace = FALSE)
}

Lets start on the first Sunday of the month

answerWeek = map_df(seq.Date(from = as_date("2020-05-03"), length.out = 6, by = 1),
                    ~ readDay(.x, "~/nefarious/data", sampleN = 20))

NOT RUN because I don't have a folder full of dated csv data.
Let us know if I've mis-interpreted what you're looking for.