mydata是一个全部为数值变量的数据框，我希望里面全部变成字符。

于是，编写了这段代码，请大家批评？指出更简洁、高效的方法。

mydata1<-matrix(data=NA,ncol=ncol(mydata),nrow=nrow(mydata))   #创建一个和mydata一样的空白矩阵。

#采用循环结果和as.character函数，修改mydata中的数据格式。
for(i in 1:length(mydata) ){
  mydata1[,i]<-as.character(mydata[,i])
}

#修改mydata1的格式。
mydata1<-as.data.frame(mydata1)
colnames(mydata1)<-colnames(mydata)#重新给mydata赋值