**1）**假设small_v中至少有一个唯一元素（问题中就是这种情况，因为它假设small_v中的所有元素都是唯一的）：

min(table(big_v))
## [1] 3

或使用管道

big_v |> table() |> min()
## [1] 3

下面是一个更困难的测试，但它仍然有效，因为small_v2[2]在small_v2中是唯一的，即使small_v2的其他元素不是唯一的。

# test data
small_v2 <- c(small_v, small_v[-2])
big_v2 <- rep(small_v2, 3)

min(table(big_v2))
## [1] 3

**2）**如果我们知道small_v的第一个元素是唯一的（这是问题中的情况，因为它假设small_v中的所有元素都是唯一的），那么这将起作用：

sum(big_v[1] == big_v)
## [1] 3

**1）**如果元素都是重复的，并且没有其他值，则使用

length(big_v)/length(unique(big_v))
[1] 3

**2）**或使用

library(data.table)
max(rowid(big_v))
[1] 3

或者，我们可以使用rle和with来计算重复次数

with(rle(sort(big_v)), max(lengths))

创建于2023年2月4日，使用reprex v2.0.2

[1] 3