R语言怎么把数据框每列分割成两列，然后合并成新的数据框？

比如数据如下：
kk <- matrix(c("CG","CC","GG","GG","CG","CG","CC","CG","CG","CC","GG","GG"),3,4)
kk <- as.data.frame(kk)

把每一列的字符串分割成两个字符，然后各自成为新的列，再进行合并。
library(stringr)
split <- function(temp){
  return(str_split_fixed(temp, "", 2))
}

jj <- matrix(0,nrow(kk), ncol(kk))
for(i in 1:ncol(kk)){
  temp <- split(kk[,i])
  jj <- cbind(jj, temp)
}
jj <- jj[,-c(1:4)]

我自己实现的代码，但是jj合并太慢了，能否有更有效的办法，请大牛指导，多谢了！！！