Поскольку блок данных группируется, он пытается получить 500 наблюдений от каждой группы. ungroup
датафрейм, а затем использовать sample_n
.
library(dplyr)
samp <- df %>% ungroup() %>% sample_n(500)
В базе R мы можем использовать sample
напрямую без разгруппировки.
samp <- df[sample(nrow(df), 500), ]