SPSS to R

A set of functions that takes SPSS syntax as input and outputs R commands to do the same analysis or data management tasks.

Current Features

• Aggregate
• Correlations
• Crosstab
• Sort Cases
• Descriptives
• One sample t-test
• Independent sample t-test
• Get for sav files
• Master SPSStoR function
• Graphics
• Frequencies

Upcoming Features

• More Get commands to read in csv, txt, etc.
• Dataset commands
• Value Labels
• Further arguments for descriptives
• Modeling functions
  • t-test (two sample with cut score and paired)
  • analysis of variance
  • regression
  • generalized models
• if else statements
• Examine

Installing Function

library(devtools)
install_github("SPSStoR", username = "lebebr01")
library(SPSStoR)

Examples

Multiple commands

spss_to_r("inst/SPSSsyntax/getDescExamp.txt")

## [1] "# x is the name of your data frame"                                                          
## [2] "library(foreign)"                                                                            
## [3] "x <- read.spss('/data/hubtemp.sav', to.data.frame = TRUE)"                                   
## [4] "x <- x[order(DIVISION, STORE, -AGE), ]"                                                      
## [5] "library(SPSStoR)"                                                                            
## [6] "with(x, descmat(x = list(longmon, tollmon, equipmon, cardmon, wiremon), mean, sd, min, max))"

Aggregate to R Example

spss_to_r("inst/SPSSsyntax/aggregateExamp.txt")

##  [1] "# x is the name of your data frame"                                                                                                           
##  [2] "library(data.table)"                                                                                                                          
##  [3] "x <- data.table(x)"                                                                                                                           
##  [4] "temp <- x[order(gender, marital), list(age_mean=mean(age), age_median=median(age), income_median=median(income)), by = list(gender, marital)]"
##  [5] "temp <- x[, list(age_mean=mean(age), age_median=median(age), income_median=median(income)), ]"                                                
##  [6] "x[, age_mean:=mean(age), ]"                                                                                                                   
##  [7] "x[, age_median:=median(age), ]"                                                                                                               
##  [8] "x[, income_median:=median(income), ]"                                                                                                         
##  [9] "x[order(gender, marital), age_mean:=mean(age), by = list(gender, marital)]"                                                                   
## [10] "x[order(gender, marital), age_median:=median(age), by = list(gender, marital)]"                                                               
## [11] "x[order(gender, marital), income_median:=median(income), by = list(gender, marital)]"

Correlation to R Example

spss_to_r("inst/SPSSsyntax/correlationsExamp.txt")

## [1] "# x is the name of your data frame"                         
## [2] "with(x, cor(cbind(sales, mpg)),use = pairwise.complete.obs)"

Crosstab to R Example

spss_to_r("inst/SPSSsyntax/crosstabExamp.txt")

##  [1] "# x is the name of your data frame"                     
##  [2] "library(catspec)"                                       
##  [3] "ctab(with(x, table(grade,M_part)), type = c('n','r'))"  
##  [4] "ctab(with(x, table(race,M_part)), type = c('n','r'))"   
##  [5] "ctab(with(x, table(lepflag,M_part)), type = c('n','r'))"
##  [6] "ctab(with(x, table(FRL,M_part)), type = c('n','r'))"    
##  [7] "ctab(with(x, table(SpEd,M_part)), type = c('n','r'))"   
##  [8] "ctab(with(x, table(grade,R_part)), type = c('n','r'))"  
##  [9] "ctab(with(x, table(race,R_part)), type = c('n','r'))"   
## [10] "ctab(with(x, table(lepflag,R_part)), type = c('n','r'))"
## [11] "ctab(with(x, table(FRL,R_part)), type = c('n','r'))"    
## [12] "ctab(with(x, table(SpEd,R_part)), type = c('n','r'))"

Sort Cases to R Example

spss_to_r("inst/SPSSsyntax/sortCasesExamp.txt")

## Error: 'as.character(list("sortcases_to_r", "sortcases_to_r"))' is not a
## function, character or symbol

Descriptives to R Example

spss_to_r("inst/SPSSsyntax/descriptivesExamp.txt")

## Error: 'as.character(list("descriptives_to_r", "descriptives_to_r"))' is
## not a function, character or symbol

One Sample T-test Example

spss_to_r("inst/SPSSsyntax/ttestOneSampExamp.txt")

## [1] "# x is the name of your data frame"               
## [2] "with(x, t.test(brake, mu = 322, conf.level = .90)"

Indpendent Sample T-test Example

spss_to_r("inst/SPSSsyntax/ttestTwoSampValExamp.txt")

## [1] "# x is the name of your data frame"                                             
## [2] "library(car)"                                                                   
## [3] "leveneTest(dollars ~ insert, data = x)"                                         
## [4] "t.test(dollars ~ insert, data = x, mu = 0, conf.level = .95, var.equal = TRUE)" 
## [5] "t.test(dollars ~ insert, data = x, mu = 0, conf.level = .95, var.equal = FALSE)"

Get Command Example

spss_to_r("inst/SPSSsyntax/getExamp.txt")

## [1] "# x is the name of your data frame"                       
## [2] "library(foreign)"                                         
## [3] "x <- read.spss('/data/hubtemp.sav', to.data.frame = TRUE)"

Graphics

spss_to_r("inst/SPSSsyntax/graphExamps.txt")

##  [1] "# x is the name of your data frame"                                                                                                                                                                
##  [2] "library(ggplot2)"                                                                                                                                                                                  
##  [3] "p <- ggplot(x, aes(x = PF)) + geom_histogram(aes(y = ..density..), stat = 'bin')+ stat_function(geom='line', fun = dnorm, arg = list(mean = mean(PF), sd = sd(PF)))+ labs(title = 'Points Scored')"
##  [4] "p"                                                                                                                                                                                                 
##  [5] "p <- ggplot(x, aes(x = PF)) + geom_histogram()+ labs(title = 'Points Scored')"                                                                                                                     
##  [6] "p"                                                                                                                                                                                                 
##  [7] "p <- ggplot(x, aes(ymax = max(PF), ymin = min(PF), y = mean(PF), x = W.L)) + geom_pointrange()"                                                                                                    
##  [8] "p"                                                                                                                                                                                                 
##  [9] "p <- ggplot(x, aes(ymax = max(PF), ymin = min(PF), x = W.L)) + geom_ribbon()"                                                                                                                      
## [10] "p"                                                                                                                                                                                                 
## [11] "library(GGally)"                                                                                                                                                                                   
## [12] "ggpairs(x[, c('PF', 'PA')])"                                                                                                                                                                       
## [13] "p <- ggplot(x, aes(y = ..count.., x = PF)) + geom_bar(position = 'dodge')+ labs(title = 'Points Scored by WinLoss')"                                                                               
## [14] "p"                                                                                                                                                                                                 
## [15] "p <- ggplot(x, aes(y = ..count.., x = PF, fill = W.L)) + geom_bar(position = 'dodge')"                                                                                                             
## [16] "p"                                                                                                                                                                                                 
## [17] "p <- ggplot(x, aes(y = mean(PF), x = W.L)) + geom_line()"                                                                                                                                          
## [18] "p"                                                                                                                                                                                                 
## [19] "p <- ggplot(x, aes(y = PA, x = PF)) + geom_point()+ labs(title = 'Points Scored by Points Against')"                                                                                               
## [20] "p"                                                                                                                                                                                                 
## [21] "p <- ggplot(x, aes(y = PF, x = W.L)) + geom_errorbar()"                                                                                                                                            
## [22] "p"                                                                                                                                                                                                 
## [23] "p <- ggplot(x, aes(y = mean(PF), x = W.L)) + geom_area()"                                                                                                                                          
## [24] "p"

Frequencies

spss_to_r("inst/SPSSsyntax/frequenciesExamp.txt")

##  [1] "# x is the name of your data frame"                                                
##  [2] "with(x, table(is.na(dept)))"                                                       
##  [3] "with(x, table(is.na(race)))"                                                       
##  [4] "with(x, table(dept))"                                                              
##  [5] "with(x, table(race))"                                                              
##  [6] "ggplot(x, aes(x = factor(1), fill = dept)) + geom_bar() + coord_polar(theta = 'y')"
##  [7] "ggplot(x, aes(x = factor(1), fill = race)) + geom_bar() + coord_polar(theta = 'y')"
##  [8] "with(x, table(is.na(sale)))"                                                       
##  [9] "library(SPSStoR)"                                                                  
## [10] "library(e1071)"                                                                    
## [11] "with(x, descmat(x = list(sale), sd, min, max, mean, median, skewness, kurtosis))"  
## [12] "quantile(x, probs = seq(0, 1, 1/4), type = 6)"                                     
## [13] "quantile(x, probs = seq(0, 1, 1/5), type = 6)"                                     
## [14] "quantile(x, probs = c(10, 25, 33.3, 66.7, 75), type = 6)"                          
## [15] "ggplot(x, aes(x = factor(1), fill = sale)) + geom_histogram()"