r语言 简单线性回归 predict预测提示'newdata'必需有947行 但变量里有407行 （行不匹配）
0
#1.读取数据
a<-read.csv("D:/diabetes.csv")
#2数据挖掘
#2.1数据清洗,删除缺失值
data<-na.omit(a)
summary(data)
#扩大控制台显示条数
options(max.print=100000000)
#2.2将离散型数据转为连续性数据（性别男0女1）
xb<-model.matrix(~data$性别,data)
data<-data.frame(data,xb)
data<-data[,-43]
#2.3查看相关性
#2.3.1去除日期、序号、id
library(PerformanceAnalytics)
library(corrplot)
library(psych)
data_n<-data[,(3:43)]
data_n<-data_n[,(-2)]
#2.3.2查看相关性
chart.Correlation(data_n)
q<-rcorr(as.matrix(data_n))
q
#2.4简单线性回归
ggplot(data_n,aes(data_n$血红蛋白,data_n$红细胞压积,colour="red"))+geom_point()+labs(x="血红蛋白",y="红细胞压积",title="相关性查看")+theme(plot.title=element_text(size=20,hjust=0.5))
#2.4.5生成训练集和测试集
total<-nrow(data_n)
index<-sample(1:total,total*0.7)
data_n.test<-data_n[index,]
data_n.train<-data_n[-index,]
#2.4.6构建模型
jdxx<-lm(formula = data_n.train$血红蛋白~data_n.train$红细胞压积+1,data=data_n.train)
summary(jdxx)
data_n.test.predict<-predict(jdxx,newdata = data_n.test)
Warning message: 'newdata'必需有947行 但变量里有407行
predict预测提示'newdata'必需有947行 但变量里有407行。找了好久还是没找到原因~求征求。
a<-read.csv("D:/diabetes.csv")
#2数据挖掘
#2.1数据清洗,删除缺失值
data<-na.omit(a)
summary(data)
#扩大控制台显示条数
options(max.print=100000000)
#2.2将离散型数据转为连续性数据（性别男0女1）
xb<-model.matrix(~data$性别,data)
data<-data.frame(data,xb)
data<-data[,-43]
#2.3查看相关性
#2.3.1去除日期、序号、id
library(PerformanceAnalytics)
library(corrplot)
library(psych)
data_n<-data[,(3:43)]
data_n<-data_n[,(-2)]
#2.3.2查看相关性
chart.Correlation(data_n)
q<-rcorr(as.matrix(data_n))
q
#2.4简单线性回归
ggplot(data_n,aes(data_n$血红蛋白,data_n$红细胞压积,colour="red"))+geom_point()+labs(x="血红蛋白",y="红细胞压积",title="相关性查看")+theme(plot.title=element_text(size=20,hjust=0.5))
#2.4.5生成训练集和测试集
total<-nrow(data_n)
index<-sample(1:total,total*0.7)
data_n.test<-data_n[index,]
data_n.train<-data_n[-index,]
#2.4.6构建模型
jdxx<-lm(formula = data_n.train$血红蛋白~data_n.train$红细胞压积+1,data=data_n.train)
summary(jdxx)
data_n.test.predict<-predict(jdxx,newdata = data_n.test)
Warning message: 'newdata'必需有947行 但变量里有407行
predict预测提示'newdata'必需有947行 但变量里有407行。找了好久还是没找到原因~求征求。
没有找到相关结果
重要提示：提问者不能发表回复，可以通过评论与回答者沟通，沟通后可以通过编辑功能完善问题描述，以便后续其他人能够更容易理解问题.
0 个回复