df <- data.frame(sample_ids = c('a','a','a','b','b','b','c','c','c','d','d','d'), cell = c("c1","c2","c1","c2","c2","c1","c1","c1","c2",
                                                                               "c2","c2","c1"))


如上图，有四个样本，abcd,每个样本中含有2种细胞类型；
请问大神，如何简单的计算出每一个样本中每种细胞占全部细胞数量的百分比