r - 如何根据列表的长度拆分字符向量

Question

我有一个这样的字符向量:

a<-c("tanaman","cabai","banget","hama","sakit","tanaman","koramil","nogosari",
    "melaks","ecek","hama","tanaman","padi","ppl","ds","rambun") 

我想根据如下列表的长度将字符向量拆分为列表:

split.char<-list(c("tanaman", "cabai"),c("banget", "hama", 
"penyakit", "tanaman"),c("koramil", "nogosari", "melaks", "pengecekan", "hama",
 "tanaman"  , "padi", "ppl", "ds", "rambun"))  

我正在尝试使用 sapply(split.char, length) 来定义列表的长度 split.char

Length <- sapply(split.char, length)
for(i in Length){
  split(a, Length(i))
 } 

但我没有得到所需的输出，而且我不断收到此警告消息:

1: In split.default(ok, Length) : data length is not a multiple of split variable
2: In split.default(ok, Length) : data length is not a multiple of split variable
3: In split.default(ok, Length) : data length is not a multiple of split variable

Answer 1

您可以尝试以下方法:

split(x=a, f=rep(seq_along(Length), Length))

f 必须与 x 的长度相同(如果它的长度为 1 或 x 的分频器，它将被回收).