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)