【R语言 数据读取】R语言读取sav格式文件

rm(list=ls())
gc()

options(scipen = 200)


#读取数据集
# haven包读取sav格式文件
library(haven)

data <- read_sav("C:/pic/data/BESExpertSurveyData2017.sav")

#数据探索
summary(data)
names(data)



#####提取自变量和因变量
# 因变量是leftrightcon  自变量femalequalitycon和gayequalitycon


data1 <- data[,c(4,84,92)]
summary(data1)


######将缺失值na替换0

#data1[is.na(data1)] <- 0

##############femalequalitycon和gayequalitycon 共缺失14个。

###删除具有缺失值的行
data2 <- data1[complete.cases(data1),] 


#######直方图
hist(data2$leftrightCon03)
hist(data2$femaleequalityCon03)
hist(data2$gayequalityCon03)

######相关性探索
# install.packages("psych")

library(psych)
pairs.panels(data2[c("leftrightCon03","femaleequalityCon03","gayequalityCon03")])

#######进行多元线性回归##########


ins_model <- lm(leftrightCon03~femaleequalityCon03+gayequalityCon03,data=data2)

######查看模型表达式
ins_model

# 评估模型的性能

summary(ins_model)
展开阅读全文
©️2020 CSDN 皮肤主题: 编程工作室 设计师: CSDN官方博客 返回首页
实付0元
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值