as.matrix(data)就行了。不過矩陣?yán)锩嫠性乇仨毷峭瑯宇愋偷?，也就是說按你的要求做了之后矩陣?yán)锼性囟际亲址?/div>
numeric(add$addc)>str(add)>input<-mtcars[]>print(input)>str(input)>>add_new<-cbind(input,add)>str(add_new)再進(jìn)行回歸分析就不會出現(xiàn)以上問題了問題解決！另外補(bǔ)充將file中的數(shù)據(jù)轉(zhuǎn)換成numeric：
hr_base_list<-cbind(hr_base_list,data.table(稅金扣款=as.list(rowSums(hr_base_list[,..list_insurance]))))hr_base_list[,稅金扣款:=rowSums(hr_base_list[,..list_insurance])]
將原始數(shù)據(jù)和要添加的某列用data.frame函數(shù)重新生成新的數(shù)據(jù)框cbind和rbind函數(shù)不僅適用于數(shù)據(jù)框也適用于矩陣
1.paste函數(shù)paste(v1,v2,sep="")拼接對象是向量2.rbind(df1,df2)行合并cbind(df1,df2)列合并3.merge按共有變量進(jìn)行合并（匹配）merge(x,y,by=intersect(names(x),names(y)),by.x=by,by.y=...
用cbind()吧。比如：x<-cbind(a,b,c,d)如果都存在一個list（比如叫data）里的話還可以x<-sapply(data,function(x)x)
2024/8/1
2024/8/1