如何从R中的字符串中提取开头,结尾或中间字符?