I made a public fork of the original RSurveyGizmo package to accommodate the API Secret, as the original package sometimes errored out with authentication issues.
If you’re familiar with the expression, or perhaps have seen the eponymous film, you understand the idea of something with far less importance or weight driving a much bigger process. In the film’s case, the expression was used to characterize a completely fabricated war shifting attention away from an actual scandal. For our purposes here, consider it this way: a business purchasing their end-use BI tool before crafting the strategy behind what they want and how they want to use it.
It’s a tempting situation. Vendors do a very good job of promoting their business intelligence tools, and there’s nothing wrong with that. But a company can’t rely on that alone to solve the big questions. You wouldn’t buy a dishwasher and then build a house around it…so why rush to invest in a BI tool before you’ve determined exactly what you want out of it and what questions the business wants to answer?
This over-reliance on proprietary tools has, at least for me, encouraged a focus on open-source BI tools. My most common tools of choice are MySQL for relational databases, RStudio for ETL and analytics, Shiny for R-based deployable visualizations, Orange for GUI-based analytics, and Git for source control. There are other tools, to be sure, and the beauty of the open-source sphere is the constant evolution. Beyond that, you are guaranteed not to invest in a proprietary solution that will be obsolete in a few years.
But more importantly–and where this fits into my point of wagging the dog–an open-source solution allows your company to pilot potential tools and solutions without the same level of risk and investment a proprietary solution may yield. I have seen companies invest plenty of money in proprietary solutions before they thought through the business process and wound up spending a tremendous amount time and money trying to make that solution work for what they needed even after they realized the tool was not right for them. They let the tail wag the dog.
Software is a tool, not a solution. Be sure you know what a tool needs to do for you before you choose it.
For further reading:
In his book Everybody Lies, Seth Stephens-Davidowitz discusses the Doppelgänger Discovery method used most notably in baseball, in the case of slugger David Ortiz. Doppelgänger Discovery is a way to load up a model with as many data points about a person as possible and find their statistical twins. In the case of David Ortiz, it proved that he wasn’t quite out of his prime, based on the career arcs of other players just like him.
We are slightly modifying the scenario here. Let’s assume you are charged with selecting participants for a particularly difficult professional development program that requires a specific personality profile and resume for someone to truly get the most out of it. You have 3 spots open, and 3 idealized candidate profiles that represent those individuals who would be best suited to participate. There are 4 key factors to match on, and just sorting names in a spreadsheet doesn’t really cut it. As with most analytics scenarios, there’s an R package for that. There are several. I’ve used and prefer MatchIt.
First, get your data straight. In this case, we want a spreadsheet with our individual identifiers (names, Person X, or participant numbers), groups (control vs selection), and the factors to match on. Something like this:
Let’s figure out who would be our ideal candidates. First, install the MatchIt library via your package loader. Next, load your spreadsheet (assuming a CSV format) as a dataframe named matching.
The following script calls the MatchIt package and performs the matching:
# Call the library library(MatchIt) # Initialize set.seed(1234) # Run matching function; all 4 factors are equally weighted match.it <- matchit(Group ~ Factor1 + Factor2 + Factor3 + Factor4, data = matching, method="nearest", ratio=1) a <- summary(match.it) # Put matched set in a new data frame df.match <- match.data(match.it)[1:ncol(matching)] # Plot the results plot(match.it, type = 'jitter', interactive = FALSE)
Now, you have a data frame with the 3 prototypical candidates and the 3 chosen candidates. Keep in mind you do not have a 1:1 correspondence here, as these are nearest-neighbor matches. See the documentation for more information on alternate methods and exact matching.
Those who have been in any sort of sociological research field should very familiar with the available survey platforms out on the web now (e.g., SurveyMonkey, SurveyGizmo, or LimeSurvey). Getting your results usually involves a multi-step generate/export/import cycle. Is there a better way?
I asked the question when using R to digest a survey deployed on SurveyGizmo. With so many R packages out there, I had a hunch there was something to help me get my results from SG into R without having to run through the generate/export/import cycle. Enter RSurveyGizmo, a package that does exactly that.
Beyond aggregates and analytics, the survey results in SurveyGizmo should be stored elsewhere for future use. This raises more questions about ETL from the website itself to your database of choice. In this case, let’s assume we have a MySQL database running on Amazon AWS. I recommend this over a MSSQL instance because of the difficulty of using an ODBC connection on anything other than Windows (but it can be done).
- SurveyGizmo account with surveys already active
- MySQL database established on Amazon AWS
- You know your host, port, dbname, username, and password for your MySQL database on Amazon AWS
- R version 3.4.2
Part I: SurveyGizmo
- Log into your SurveyGizmo account and head over to your API access options. Find that under Account > Integrations > Manage API.
- If you don’t have an active API key listed, Create an API Key. You will then see the API key listed for your user account. Copy that key to a text editor, as you will need it momentarily.
- Go back to your SurveyGizmo home page and view the surveys you have out there. Choose one and click on it.
- You’ll be taken to the survey build page and the address will be something like https://app.surveygizmo.com/builder/build/id/xxxxxxx where xxxxxxx is a unique number. Copy that number to a text editor, as you will need it momentarily too.
Part II: R + SurveyGizmo
- Install RSurveyGizmo via devtools.
- Construct the script to grab your survey. You will need the API key and survey number.
library(Rsurveygizmo) api <- "your_api_key" my.data <- pullsg(survey_number, api, completes_only=T)
- You will see loading progress and, depending on the size of your survey, will have a frame full of data in just a few moments. (Sometimes I get a JSON error, but it resolves itself in a few minutes.) SurveyGizmo does have API call limits, so please be judicious with how many times you do this. It’s generally good to run the process once you have enough data to start writing your analytics scripts, then again once the survey is closed.
- This is the simplest of the methods in the RSurveyGizmo package. You will want to explore the package documentation to learn all it can do for you.
Part III: R + MySQL
- Install the RMySQL package via your package loader.
- Construct the script to establish your connection, filling in your specific details.
# load RMySQL library(RMySQL) # establish the MySQL connection con <- dbConnect(RMySQL::MySQL(), username = "user", password = "password", host = "name.something.zone.rds.amazonaws.com", port = 3306, dbname = "mydb" )
- Now con will serve as your pipeline for the RMySQL calls.
- Two common methods are dbWriteTable and dbSendQuery. As you might expect, to write an R data frame to a table in your MySQL database, you use dbWriteTable:
dbWriteTable(con, "table_name", dataframe.name, overwrite=TRUE)
Using overwrite=TRUE means your table is essentially dropped and recreated, rather than appended.
To get an existing MySQL table into a new R data frame, you’d use dbSendQuery:
newframe = dbSendQuery(con, "SELECT * FROM mydb.mytable")
- Here’s a wrinkle, though. SurveyGizmo downloads come with concatenated column names that may not be very helpful. I prefer to convert all my column names to a standard format and establish a reference table with all the original questions matched up. The following script grabs all the column names from an existing data frame and creates a table with a standard “qxxx” format matched to the original question name.
# get question text into vector Question_Text <- colnames(mydata.original) # get length of that vector sq <- length(Question_Text) # generate sequence based on that length QKey <- sprintf("q%03d",seq(1:sq)) # make a new data frame with the QKeys matched to the original question text mydata.questions <- data.frame(QKey, Question_Text) # replace original question text with the those keys colnames(mydata.original) = as.character(QKey);
Now you have two frames: mydata.original with uniform column names, and mydata.questions with those column names matched to the original text.
Assuming you want to get those frames into your MySQL database, use the following:
dbWriteTable(con, "mydata_questions",mydata.questions, overwrite=TRUE) dbWriteTable(con, "mydata_original",mydata.original, overwrite=TRUE)
/usr/bin/ruby -e "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/install)"
brew update brew install unixodbc
3. Install freeTDS via Terminal
brew install freetds --with-unixodbc
[MSSQL] Description = Microsoft SQL Server driver Driver = /usr/local/Cellar/freetds/0.95.18/lib/libtdsodbc.so
[MY_SQL_SERVER] host = myazureserver.database.windows.net port = 1433 tds version = 7.0
[myazureserver] Driver=/usr/local/lib/libtdsodbc.so Trace=No Server=myazureserver.database.windows.net Port=1433 TDS_Version=8.0 Database=myazuredatabase
isql -v myazureserver user pass
ln -vs /usr/local/Cellar/freetds/0.95.18/etc/freetds.conf ~/.freetds.conf ln -vs /usr/local/Cellar/unixodbc/2.3.2_1/etc/odbc.ini ~/.odbc.ini ln -vs /usr/local/Cellar/unixodbc/2.3.2_1/etc/odbcinst.ini ~/.odbcinst.ini
# install RODBC package (can comment this out once run) install.packages("RODBC", type = "source") # call RODBC package library(RODBC) # create a connection mycon <- odbcConnect("myazureserver", uid="user", pwd="pass") # see what it looks like: mycon # Select the top 100 records from table dbo.Table and load into dataframe "rs" rs <- sqlQuery(mycon, "SELECT TOP (100) * FROM dbo.Table")