编辑代码

library(foreign)
sdata<-read.spss("C:/Users/lenovo/Desktop/3-5.sav")
sdata<-as.data.frame(sdata)
rownames(sdata)<-sdata[,1]
sdata<-sdata[,-1]
stars(sdata,flip.labels=FALSE)