counting code snippets in r

count the number in a grouop in r