Is there way to perform 2 operation for each group. Example shown below
> asd <- data.frame(Cat = c("A","B","B","A",
