数据合并选取数据newdata<-leadship[,c（1:6）]选取了q1到q5或者vars<-c("q1","q2","q3","q4","q5")Newdata<-leadship[,vars]>print(newdata)  q1q2q3q4q51 5 4 5 5 52 3 5 2 5 53 3 5 5