r语言选取包含特定字符的行