substr(文本,起始位置,结束位置)   用于截取指定位置文本


data <- matrix(c("as","sa","da","fa","ds","ds","","fc","cs"),ncol=3)
m <- nrow(data); ##记录数据矩阵行数
data1 <- vector("character",length=length(data)) ##初始化左字符矩阵
data2 <- vector("character",length=length(data))  ##初始化右字符矩阵
for(i in 1:length(data)){
   if(nchar(data[i])==2){  ##字符串长度为2时执行，否则为空
    data1[i] <- substr(data[i],1,1) ##substr(文本,起始位置,结束位置) 截取文本
    data2[i] <- substr(data[i],2,2)
  }
} #左字符存在data1，右字符存在data2
data1 <- data.frame(matrix(data1,nrow=m))
data2 <- data.frame(matrix(data2,nrow=m))
   

谢谢哈，但是这个不是我想要的结果。我只是想把每个变量拆分为两列，但还得放在一个数据框内。

我都拆好了你自己放不就完了

谢谢！