csiu November 8, 2015 In this directory, I attempt to tidy the candy survey data
Categories of questions in the survey related to candy:
| Category | Response | Ideal Response class | Done?/Script # | |:--------:|:--------:|:--------------------:|:-------:| | Timestamp | Timestamp | time | #3 | | Going trick or treating? | {yes, no} | logical | #3 | | Age | free text | should be int | #5 | | [the candy] | {joy, despair} | logical | #6 | | Other joy candy | free text | list | [] | | Other despair candy | free text | list | [] | | Comments | free text | text | [] |
Categories of questions in the survey not-related to candy:
| Category | Response | Ideal Response class | Tidied? | |:--------:|:--------:|:--------------------:|:-------:| | guess mints in hand | free text | should be int | #4 | | Betty or Veronica? | {Betty, Veronica, ??} | factor | #3 | | tears when | multiple choice (can select more than 1) | maybe factor | [] | | the dress | {blue and black, white and gold} | factor | #3 | | favorite font | free text | should be factor | [] | | intelligent design | multiple choice + other | should be factor | [] | | [separation] | {1, 2, 3+} | factor | [] | | Imitation | {Flattery, Laziness, Lazily flattering someone} | factor | #3 | | Friday vs Sunday | {Friday, Sunday} | factor | #3 |
The following will combine the tidy data from the separate csv files:
suppressPackageStartupMessages(library(dplyr))
library(readr)
infiles <- list.files(".", pattern = "\\d{2}_tidy\\d.*csv$")
round1 = TRUE
for (f in infiles){
dat1 <- read_csv(f)
if (round1){
round1 = FALSE
candysurvey <- dat1
next()
} else {
candysurvey <- left_join(candysurvey, dat1, by = "user")
}
}
candysurvey <- candysurvey %>%
arrange(user)
Write out tidy candy survey data
write_csv(candysurvey, path = "../inst/candydata.csv")
To Robject
## save integer info
candysurvey_age <- candysurvey$age
candysurvey_nmint <- candysurvey$n_mints
## convert everything to factor
candysurvey <- sapply(candysurvey, FUN = factor, USE.NAMES = FALSE) %>%
as.data.frame() %>%
tbl_df()
## convert integers
candysurvey$age <- candysurvey_age
candysurvey$n_mints <- candysurvey_nmint
## convert other
candysurvey <- candysurvey %>%
mutate(
user = as.character(user),
trick_or_treat = as.logical(trick_or_treat)
)
## save robject
devtools::use_data(candysurvey, overwrite = TRUE)
## Saving candysurvey to data/candysurvey.rda
title: "README.R" author: "csiu" date: "Fri Nov 20 21:06:43 2015"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.