SPSS import R with Variable Labels
| library(foreign) # foreign paketi yükleniyor | |
| # read.spss komutu ile değer etiketlerini almasını ve bunu liste olarak değil de data.frame olarak kaydetmesini istiyoruz | |
| mydata <- read.spss("mydata.sav", use.value.labels = TRUE, to.data.frame = TRUE) | |
| # aktardığımız data.frame'in özellikleri (attr) içinde değişkenlerin etiketleri var, bunları dışarı çıkartıyoruz | |
| VariableLabels <- as.data.frame(attr(mydata, "variable.labels")) | |
| # elde ettiğimiz data.frame'deki satır isimleri değişkenlerin isimleri oluyor, karşılarında da değişken etiketleri var | |
| # satır isimlerini de dışarı çıkartıyoruz | |
| VariableLabels$original <- rownames(VariableLabels) | |
| # Değişken etiketi olanları etiketleri ile diğerlerini olduğu gibi saklıyoruz | |
| VariableLabels$label[VariableLabels$label ==""] <- NA | |
| VariableLabels$colname <- VariableLabels$original | |
| VariableLabels$colname[!is.na(VariableLabels$label)] <- as.vector(VariableLabels$label[!is.na(VariableLabels$label)]) | |
| # son olarak da data.frame'deki sütun isimlerini değiştiriyoruz | |
| names(mydata) <- VariableLabels$colname |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment