我们可以sample组中的行数（* 减3 *），大小为1，然后加上0:3来选择我们保留的行。

set.seed(42)
df %>%
  group_by(group) %>%
  filter(row_number() %in% c(sample(max(1, n()-3), size=1) + 0:3)) %>%
  ungroup()
# # A tibble: 16 × 2
#    group value
#    <dbl> <chr>
#  1     1 A    
#  2     1 B    
#  3     1 C    
#  4     1 D    
#  5     2 E    
#  6     2 F    
#  7     2 G    
#  8     2 H    
#  9     3 J    
# 10     3 K    
# 11     3 L    
# 12     3 M    
# 13     4 Q    
# 14     4 R    
# 15     4 S    
# 16     4 T

字符串
安全步骤：

• max(1, n()-3)确保我们不会尝试对负数（或零）行进行采样
• 如果我们有一个少于4行的组，这仍然有效（选择所有行），因为row_number() %in% ...永远不会尝试索引不存在的行，即使c(sample(.) + 0:3)可能 * 建议 * 比存在的更多的行。

您可以尝试使用embed（但不如answer by @r2evans高效）

df %>%
    filter(
        value %in% embed(value, 4)[sample.int(n() - 3, 1), ],
        .by = group
    )

字符串
或

df %>%
    summarise(
        value = list(embed(value, 4)[sample.int(n() - 3, 1), 4:1]),
        .by = group
    ) %>%
    unnest(value)

型