R Count Specific Characters In String