R语言字母大小转换自己编写代码