使用group_by和summary在子组中查找百分比

I am new to dplyr and trying to do the following transformation without any luck. I've searched across the internet and I have found examples to do the same in ddply but I'd like to use dplyr.I am new to dplyr and trying to do the followin