R語(yǔ)言HousePrice預(yù)測(cè)房?jī)r(jià)數(shù)據(jù)挖掘分析報(bào)告附代碼數(shù)據(jù)

1、【原創(chuàng)】R語(yǔ)言報(bào)告論文（附代碼數(shù)據(jù)）有問(wèn)題到淘寶找“大數(shù)據(jù)部落”就可以了R語(yǔ)言HousePrice預(yù)測(cè)房?jī)r(jià)分析報(bào)告在這個(gè)分析中，我們將嘗試預(yù)測(cè)房子的交易價(jià)格。因?yàn)橛羞@么多變量，一些收縮回歸可能是很好的選擇以下是分析過(guò)程DataOverview數(shù)據(jù)概述加載要求的包library(dplyr)# #Attachingpackage:'dplyr'# #Thefollowingobjectsaremaskedfrom'package:stats':# # #filter,lag# #Thefollowingobjectsaremaskedfrom'packag

2、e:base':# # #intersect,setdiff,setequal,unionlibrary(ggplot2)library(mice)library(e1071)library(caret)# #Loadingrequiredpackage:latticelibrary(glmnet)# #Loadingrequiredpackage:Matrix# #Loadingrequiredpackage:foreach# #Loadedglmnet2.0-13library(xgboost)【原創(chuàng)】R語(yǔ)言報(bào)告論文(附代碼數(shù)據(jù))有問(wèn)題到淘寶找“大數(shù)據(jù)部落”就可以了# #Attac

3、hingpackage:'xgboost'# #Thefollowingobjectismaskedfrom'package:dplyr':# #sliceImportthedataandcreateacombineddataset.Browsethedatasort(names(full)str(full)nacol=which(colSums(is.na(full)>0)sort(colSums(sapply(fullnacol,is.na),decreasing=T)# #PoolQCMiscFeatureAlleyFenceFireplaceQu#

4、 #29092814272123481420# #LotFrontageGarageYrBltGarageFinishGarageQualGarageCond# #486159159159159# #GarageTypeBsmtCondBsmtExposureBsmtQualBsmtFinType2# #BsmtFinType1MasVnrTypeMasVnrAreaMSZoningUtilities# #79242342# #BsmtFullBathBsmtHalfBathFunctionalExterior1stExterior2nd# #22211# #Bsm

5、tFinSF1BsmtFinSF2BsmtUnfSFTotalBsmtSFElectrical# #11111【原創(chuàng)】R語(yǔ)言報(bào)告論文（附代碼數(shù)據(jù)）有問(wèn)題到淘寶找“大數(shù)據(jù)部落”就可以了# #KitchenQualGarageCarsGarageAreaSaleType# #1111【原創(chuàng)】R語(yǔ)言報(bào)告論文（附代碼數(shù)據(jù)）有問(wèn)題到淘寶找“大數(shù)據(jù)部落”就可以了BIEoca若fl言山Is,Mr力£菖擊n里總tflst<zMMdzM歸一生54MNEEffi003，目需口-¥c器>WE名J名E-l品£盤(pán)6甘用N-Hep匚nreoirder(NeighbortKjQd,

6、-Price3營(yíng)*05AmountGaraqeYrBItMissingValue缺失值【原創(chuàng)】R語(yǔ)言報(bào)告論文（附代碼數(shù)據(jù)）有問(wèn)題到淘寶找“大數(shù)據(jù)部落”就可以了PoolQCPoolQC中缺少2909個(gè)。我們推斷的原因是大多數(shù)家庭沒(méi)有泳池。所以我們將看到是否有任何PoolArea不是0與NA池QC然后我們根據(jù)PoolArea填充三個(gè)PoolQC,另一個(gè)填充沒(méi)有。poolna=which(is.na(full$PoolQC)full(full$PoolArea)>0&is.na(full$PoolQC),c("PoolArea","PoolQC"

7、)# #PoolAreaPoolQC# #2421368<NA># #2504444<NA># #2600561<NA>full%>%elect(PoolArea,PoolQC)%>%group_by(PoolQC)%>%summarise(mean=mean(PoolArea),count=n()# #Atibble:4x3# #PoolQCmeancount# #<chr><dbl><int># #1Ex359.75000004# #2Fa583.50000002# #3Gd648.50000004#

8、 #4<NA>0.47198352909full$PoolQCc(2421,2504)="Ex"full$PoolQC2600="Fa"full$PoolQCis.na(full$PoolQC)="None"MiscFeature當(dāng)我們談?wù)揗iscFeature時(shí)，只有一個(gè)MiscVal>0與NAMiscFeature。通過(guò)MiscVal對(duì)數(shù)據(jù)進(jìn)行排序，我們發(fā)現(xiàn)最廣泛的MiscVal來(lái)自第二個(gè)車(chē)庫(kù)。所以我們用“Gar2”填寫(xiě)了丟失的MiscFeature。misna=which(is.na(full$MiscFeature)fullfull$MiscVal>0&is.na(full$MiscFeature),c("MiscFeature","MiscVa