当某些观测值少于n行时，用dplyr在数据Frame中每组随机采样n行

Question

samples<-c("A","A","A","A","B","B")
groups<-c(1,1,1,2,1,1)
df<- data.frame(samples,groups)
df
  samples groups
1       A      1
2       A      1
3       A      1
4       A      2
5       B      1
6       B      1

  samples groups
1       A      1
2       A      1
3       A      2
4       B      1
5       B      1

Answer 1

您可以对每个组的最小行数或x进行采样：

library(dplyr)

x <- 2
df %>% group_by(samples, groups) %>% sample_n(min(n(), x))

#  samples groups
#  <chr>    <dbl>
#1 A            1
#2 A            1
#3 A            2
#4 B            1
#5 B            1

但是，请注意，sample_n()已经为slice_sample添加了超级种子，但是n()不能用于slice_sample。这里有一个开放的问题。

但是，正如@tmfmnk提到的，我们不需要在这里调用n()。尝试：

df %>% group_by(samples, groups) %>% slice_sample(n = x)