#我们以rms包的lung数据集为例

library(rms)

data<-lung

#这里有两种方法，

#第1是知道需要转化的变量在哪几列；

#第2知道需要转化的变量名

str(data)

#假设我们想转化inst/status/sex/三个变量的类型

#图1先看看变量类型和处于第几列

str(data)

#inst/status/sex为数值型，分别在第1列，第3列,第5列

#法1：需要转化的变量在哪几列

#转因子

for(i in names(data)

    [c(1,3,5)]){# 1,3,5代表第1列，第3列,第5列

  data[,i]<-as.factor(data[,i])

}

#图：变为了因子

str(data)

#转数值

for(i in names(data)

    [c(1,3,5)]){

  data[,i]<-as.numeric(data[,i])

}

#图：变为了数值

str(data)

#法2：知道需要转化的变量名：inst/status/sex

a<-c("inst","status","sex")#填入需要转化的变量名

data[,a]<-lapply(data[,a],as.factor)#转因子

data[,a]<-lapply(data[,a],as.numeric)#转数值