要安排的分层数据

Question

要安排分层数据。 想象一下，给出了df。 （这里我用一些假数据生成df）

df1 <-data.frame("Col1" = rep("a",8), "Col2"= c(rep("M",3),rep("N",2), rep("O", 2), rep("P",1)), "Col3" = LETTERS[1:8])
df2 <-data.frame("Col1" = rep("b",13), "Col2"= c(rep("p",4),rep("q",5),rep("r",3),rep("s",1)), "Col3" = LETTERS[1:13])
df <- rbind(df1,df2)

对于Col1的每个元素，我们必须以排序的方式获取集合

最后，我要查找的是列表清单：   列表a：（1,2,2,3）   清单b：（1,3,4,5）

Answer 1

ll <- split(df, df$Col1)
lapply(ll, function(dat){
    v <- Filter(function(v) !is.na(v), with(dat, tapply(Col1, Col2, length)))
    v[order(v)]
})