how to selecting top 20 for each period in R tibble code example

Example: dtidyverser get first x rows

# slice()
dt <- dt %>%
  slice(1:4)