R 提取等于某些字符的行