#我们以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)#转数值