I would like to develop a project that can take new survey data each term (either directly from Qualtrics via an API or from downloaded .csv files) and quickly create a report. Portions of this project would include 1. A process to import and clean the data each term. 2. One or more standard visualizations of Likert-type item data. 3. Organization and/or parsing of open-ended text responses. 4. Report Template
Loading Packages
library(tidyverse)
library(readr)Using Dummy Data
AAA_111 <- read_csv("survey_project/data/AAA_111_Survey_Responses.csv")
AAA_112 <- read_csv("survey_project/data/AAA_112_Survey_Responses.csv")
AAA_111_no_hd <- AAA_111[-c(1,2), ]
AAA_112_no_hd <- AAA_112[-c(1,2), ]
all_surveys <- rbind(AAA_111_no_hd,AAA_112_no_hd)
all_likert <- all_surveys[ , -c(1:8, 10:17, 22, 29:38, 47, 49, 51, 53, 55, 57, 59, 61, 64:86)]
all_likert <- gather(all_likert, key = "Question", value = "Response", -ResponseId)str(all_likert)## Classes 'tbl_df', 'tbl' and 'data.frame': 270 obs. of 3 variables:
## $ ResponseId: chr "R_97kH4zXkLAbN6yh" "R_6rAfN47miobYqL2" "R_jrp4Dd3joK3vr4q" "R_DHG4C89nPPMYc3L" ...
## $ Question : chr "1 - Course Design_1" "1 - Course Design_1" "1 - Course Design_1" "1 - Course Design_1" ...
## $ Response : chr "Strongly agree" "Strongly agree" "Agree" "Strongly agree" ...head(all_likert, n=20)Copyright © 2018 Allen Brown. All rights reserved.