如何在R向量中提取包含特定子字符串的字符串?