#install.packages("qualtRics")
library(qualtRics)
library(dplyr)
library(ggplot2)
library(psych)
registerOptions(api_token="9o8PBSWtorVtXtxJMqNBHBFSiEhHT8eXr4vGOO3e",
root_url="https://smithcollege.qualtrics.com",
useLabels = FALSE)
surveys <- getSurveys() #gets list of surveys
questions <- getSurveyQuestions(surveyID = surveys$id[8]) #gets questions
BotanicGarden <- getSurvey(surveyID = surveys$id[8], force_request = TRUE) #actually downloads data##
|
| | 0%
|
|=================================================================| 100%head(BotanicGarden)## ResponseID ResponseSet IPAddress
## 1 R_PAOub3wFS33xdGV Default Response Set 144.121.36.212
## 2 R_3em3ksQ9TwnEKPb Default Response Set 144.121.36.212
## 3 R_31Ehorc2XUIAfBs Default Response Set 131.229.39.101
## 4 R_2y3meLuKoRl36PF Default Response Set 144.121.36.210
## 5 R_yDSetphBoIzp2ZH Default Response Set 131.229.39.121
## 6 R_3FRpvp38lw822dY Default Response Set 131.229.39.115
## StartDate EndDate RecipientLastName
## 1 2018-04-12 11:00:48 2018-04-12 11:02:28 <NA>
## 2 2018-04-12 11:00:51 2018-04-12 11:02:35 <NA>
## 3 2018-04-12 11:00:49 2018-04-12 11:02:54 <NA>
## 4 2018-04-12 11:00:41 2018-04-12 11:02:56 <NA>
## 5 2018-04-12 11:00:40 2018-04-12 11:03:24 <NA>
## 6 2018-04-12 11:02:16 2018-04-12 11:03:27 <NA>
## RecipientFirstName RecipientEmail ExternalDataReference Finished Status
## 1 <NA> <NA> <NA> 1 0
## 2 <NA> <NA> <NA> 1 0
## 3 <NA> <NA> <NA> 1 0
## 4 <NA> <NA> <NA> 1 0
## 5 <NA> <NA> <NA> 1 0
## 6 <NA> <NA> <NA> 1 0
## image text Q15 Q17 Q18 mimg_mtext mimg_otext oimg_mtext
## 1 original manipulated 1 1 1 NA NA 1
## 2 original manipulated 1 1 1 NA NA 1
## 3 original original 1 1 1 NA NA NA
## 4 manipulated manipulated 1 1 1 1 NA NA
## 5 original manipulated 1 1 1 NA NA 1
## 6 manipulated original 1 1 1 NA 1 NA
## oimg_otext Q22 Q23 Q24 Q1 Q2 Q3 Q4 Q5_1 Q6_1 Q7_1 Q8_1 Q9_1 Q10_1 Q11_1
## 1 NA 3 3 2 4 2 4 3 3 3 2 3 1
## 2 NA 3 2 2 2 2 4 2 3 3 2 2 3
## 3 1 3 2 1 3 2 5 4 5 3 2 4 3
## 4 NA 3 2 1 3 2 3 2 2 4 4 3 1
## 5 NA 3 1 1 2 4 4 5 4 5 5 3 3
## 6 NA 3 2 1 4 4 5 5 3 2 2 3 4
## Q12_1 RO.BR.FL_7 LocationLatitude
## 1 3 original image + manipulated text 42.1951
## 2 3 original image + manipulated text 42.1951
## 3 5 original image + original text 42.3251
## 4 3 manipulated image + manipulated text 42.1951
## 5 4 original image + manipulated text 42.3251
## 6 5 manipulated image + original text 42.3251
## LocationLongitude LocationAccuracy
## 1 -72.1038 -1
## 2 -72.1038 -1
## 3 -72.6412 -1
## 4 -72.1038 -1
## 5 -72.6412 -1
## 6 -72.6412 -1BotanicGarden <- BotanicGarden %>%
select(ResponseID, image:Q12_1)Clean data as usual… the rename() functions necessary here!
head(BotanicGarden)## ResponseID image text Q15 Q17 Q18 mimg_mtext
## 1 R_PAOub3wFS33xdGV original manipulated 1 1 1 NA
## 2 R_3em3ksQ9TwnEKPb original manipulated 1 1 1 NA
## 3 R_31Ehorc2XUIAfBs original original 1 1 1 NA
## 4 R_2y3meLuKoRl36PF manipulated manipulated 1 1 1 1
## 5 R_yDSetphBoIzp2ZH original manipulated 1 1 1 NA
## 6 R_3FRpvp38lw822dY manipulated original 1 1 1 NA
## mimg_otext oimg_mtext oimg_otext Q22 Q23 Q24 Q1 Q2 Q3 Q4 Q5_1 Q6_1 Q7_1
## 1 NA 1 NA 3 3 2 4 2 4 3 3
## 2 NA 1 NA 3 2 2 2 2 4 2 3
## 3 NA NA 1 3 2 1 3 2 5 4 5
## 4 NA NA NA 3 2 1 3 2 3 2 2
## 5 NA 1 NA 3 1 1 2 4 4 5 4
## 6 1 NA NA 3 2 1 4 4 5 5 3
## Q8_1 Q9_1 Q10_1 Q11_1 Q12_1
## 1 3 2 3 1 3
## 2 3 2 2 3 3
## 3 3 2 4 3 5
## 4 4 4 3 1 3
## 5 5 5 3 3 4
## 6 2 2 3 4 5