使用 R 在多个列表中均匀分布重复的字符串

Question

假设我有一个长度为 150000 的字符向量。向量中的字符串不是唯一的，实际上它们是正态分布的，最常见的字符串出现 28 次，另外 24 次，超过 1000 次出现超过5次。我想将向量分成 28 个较小的向量，将字符串分布在较小的向量中，这样每个较小的向量中没有字符串出现超过两次，理想情况下只有一次（或不存在）。我需要保留每个字符串，所以我不能只做!duplicated() 理想情况下，向量的大小应该差不多。

我该怎么做呢？

我正在考虑像开始添加到第一个向量直到遇到第一个非唯一字符串，跳过它，继续填充跳过非唯一字符串直到达到 150000/28 = 5357，然后继续其他向量以相同的方式从父向量中删除字符串，一旦它们被分配给一个较小的向量？这有什么问题吗？没有令人讨厌的 for 循环森林的有效方法？

Answer 1

这似乎是一个非常有趣的问题，尽管它可能只是因为我误解了它才显得有趣——我在这里得到的解决方案创建length of character vector / frequency of most frequent item 子向量，然后将每个字符串放入这些子向量的f ，其中f 是该字符串的频率。这可能比您实际要求的要复杂。

library(plyr)
# I created a file with 10000 random strings and a roughly similar frequency 
# distribution using python, and now I can't remember exactly what I did
strings <- read.csv("random_strings.txt", header=FALSE,
                    stringsAsFactors=FALSE)$V1
freq_table <- table(strings)

num_sub_vectors <- max(freq_table)
# Create a list of empty character vectors
split_list <- alply(1:num_sub_vectors, 1, function(x) return(character(0)))
for (s in names(freq_table)) {
  # Put each string into f of the sub-vectors, where f is the string's 
  # frequency
  freq <- freq_table[[s]]
  # Choose f random indexes to put this string into
  sub_vecs <- sample(1:num_sub_vectors, freq)
  for (sub in sub_vecs) {
    split_list[[sub]] <- c(split_list[[sub]], s)
  }
}

要测试它是否有效，请选择一个字符串s 或频率f，并检查s 是否出现在子向量的f 中。重复直到你有信心为止。

> head(freq_table[freq_table==15])
strings
ad ak bj cg cl cy 
15 15 15 15 15 15 
> sum(sapply(split_list, function(x) "ad" %in% x))
[1] 15

Answer 2

这可以相当简洁地满足您的要求（每个字符串每个子向量只有一次），只需计算每个字符串出现的频率，然后根据“出现 i 次或更多次的字符串”进行分区：

inputs <- c("foo", "bar", "baz", "bar", "baz", "bar", "bar")
histo <- table(inputs)
lapply(1:max(histo), function(i) { names(histo)[histo>=i] } 

这当然会产生大小差异很大的分区，但您并不太清楚您在该区域的要求是什么。