此问题的解决方案如下:
# 创建向量示例
vec <- c("A","B","B","B","C","D","A","D","D")
# 设置出现次数长度的条件
cond <- 3
# 创建列表[R]
R <- list()
# 使用for循环遍历向量中的值
for (i in unique(vec)) {
# 获取向量中该值的出现次数,并检查其是否符合条件
count <- length(grep(i,vec))
if (count >= cond) {
# 如果符合条件,则将子集添加到列表[R]中
sublist <- vec[grep(i,vec)]
R[[length(R)+1]] <- sublist
}
}
此代码会对向量中的每个唯一值进行循环,将符合条件的子集添加到列表[R]中。在此示例中,条件为出现次数必须至少为3。