str<-'1122333344'charlist<-strsplit(str, "") print(charlist[[1]])out<-''for (i in 1:nchar(str)){ if(i==1||charlist[[1]][i]!=charlist[[1]][i-1]) out=paste(out,charlist[[1]][i])}print(out)我是这么做的