data-raw/02_add-user-column.md
In csiu/candyplay: 2015 Hallowe'een Candy Hierarchy survey data
02_add-user-column.R
csiu
November 6, 2015
At a glance
- add
user id column to the raw candy data
Code
suppressPackageStartupMessages(library(dplyr))
library(readr)
Load raw candy data:
candy_survey <- read_csv("candy-survey-2015.csv")
Remove whitespace space in front of column names:
colnames(candy_survey) <- sub('^\\s+', '', colnames(candy_survey))
Add user id column:
candy_survey <- candy_survey %>%
mutate(user = sprintf("ID-%04d", order(Timestamp)))
colnames(candy_survey)
## [1] "Timestamp"
## [2] "How old are you?"
## [3] "Are you going actually going trick or treating yourself?"
## [4] "[Butterfinger]"
## [5] "[100 Grand Bar]"
## [6] "[Anonymous brown globs that come in black and orange wrappers]"
## [7] "[Any full-sized candy bar]"
## [8] "[Black Jacks]"
## [9] "[Bonkers]"
## [10] "[Bottle Caps]"
## [11] "[Box’o’ Raisins]"
## [12] "[Brach products (not including candy corn)]"
## [13] "[Bubble Gum]"
## [14] "[Cadbury Creme Eggs]"
## [15] "[Candy Corn]"
## [16] "[Vials of pure high fructose corn syrup, for main-lining into your vein]"
## [17] "[Candy that is clearly just the stuff given out for free at restaurants]"
## [18] "[Cash, or other forms of legal tender]"
## [19] "[Chiclets]"
## [20] "[Caramellos]"
## [21] "[Snickers]"
## [22] "[Dark Chocolate Hershey]"
## [23] "[Dental paraphenalia]"
## [24] "[Dots]"
## [25] "[Fuzzy Peaches]"
## [26] "[Generic Brand Acetaminophen]"
## [27] "[Glow sticks]"
## [28] "[Broken glow stick]"
## [29] "[Goo Goo Clusters]"
## [30] "[Good N' Plenty]"
## [31] "[Gum from baseball cards]"
## [32] "[Gummy Bears straight up]"
## [33] "[Creepy Religious comics/Chick Tracts]"
## [34] "[Healthy Fruit]"
## [35] "[Heath Bar]"
## [36] "[Hershey’s Kissables]"
## [37] "[Hershey’s Milk Chocolate]"
## [38] "[Hugs (actual physical hugs)]"
## [39] "[Jolly Rancher (bad flavor)]"
## [40] "[Jolly Ranchers (good flavor)]"
## [41] "[Kale smoothie]"
## [42] "[Kinder Happy Hippo]"
## [43] "[Kit Kat]"
## [44] "[Hard Candy]"
## [45] "[Lapel Pins]"
## [46] "[LemonHeads]"
## [47] "[Licorice]"
## [48] "[Licorice (not black)]"
## [49] "[Lindt Truffle]"
## [50] "[Lollipops]"
## [51] "[Mars]"
## [52] "[Mary Janes]"
## [53] "[Maynards]"
## [54] "[Milk Duds]"
## [55] "[LaffyTaffy]"
## [56] "[Minibags of chips]"
## [57] "[JoyJoy (Mit Iodine)]"
## [58] "[Reggie Jackson Bar]"
## [59] "[Pixy Stix]"
## [60] "[Nerds]"
## [61] "[Nestle Crunch]"
## [62] "[Now'n'Laters]"
## [63] "[Pencils]"
## [64] "[Milky Way]"
## [65] "[Reese’s Peanut Butter Cups]"
## [66] "[Tolberone something or other]"
## [67] "[Runts]"
## [68] "[Junior Mints]"
## [69] "[Senior Mints]"
## [70] "[Mint Kisses]"
## [71] "[Mint Juleps]"
## [72] "[Mint Leaves]"
## [73] "[Peanut M&M’s]"
## [74] "[Regular M&Ms]"
## [75] "[Mint M&Ms]"
## [76] "[Ribbon candy]"
## [77] "[Rolos]"
## [78] "[Skittles]"
## [79] "[Smarties (American)]"
## [80] "[Smarties (Commonwealth)]"
## [81] "[Chick-o-Sticks (we don’t know what that is)]"
## [82] "[Spotted Dick]"
## [83] "[Starburst]"
## [84] "[Swedish Fish]"
## [85] "[Sweetums]"
## [86] "[Those odd marshmallow circus peanut things]"
## [87] "[Three Musketeers]"
## [88] "[Peterson Brand Sidewalk Chalk]"
## [89] "[Peanut Butter Bars]"
## [90] "[Peanut Butter Jars]"
## [91] "[Trail Mix]"
## [92] "[Twix]"
## [93] "[Vicodin]"
## [94] "[White Bread]"
## [95] "[Whole Wheat anything]"
## [96] "[York Peppermint Patties]"
## [97] "Please leave any remarks or comments regarding your choices."
## [98] "Please list any items not included above that give you JOY."
## [99] "Please list any items not included above that give you DESPAIR."
## [100] "Guess the number of mints in my hand."
## [101] "Betty or Veronica?"
## [102] "Check all that apply: \"I cried tears of sadness at the end of ____________\""
## [103] "\"That dress* that went viral early this year - when I first saw it, it was ________\""
## [104] "Fill in the blank: \"Taylor Swift is a force for ___________\""
## [105] "What is your favourite font?"
## [106] "If you squint really hard, the words \"Intelligent Design\" would look like."
## [107] "Fill in the blank: \"Imitation is a form of ____________\""
## [108] "Please estimate the degree(s) of separation you have from the following celebrities [JK Rowling]"
## [109] "Please estimate the degree(s) of separation you have from the following celebrities [JJ Abrams]"
## [110] "Please estimate the degree(s) of separation you have from the following celebrities [Beyoncé]"
## [111] "Please estimate the degree(s) of separation you have from the following celebrities [Bieber]"
## [112] "Please estimate the degree(s) of separation you have from the following celebrities [Kevin Bacon]"
## [113] "Please estimate the degree(s) of separation you have from the following celebrities [Francis Bacon (1561 - 1626)]"
## [114] "[Sea-salt flavored stuff, probably chocolate, since this is the \"it\" flavor of the year]"
## [115] "[Necco Wafers]"
## [116] "Which day do you prefer, Friday or Sunday?"
## [117] "Please estimate the degrees of separation you have from the following folks [Bruce Lee]"
## [118] "Please estimate the degrees of separation you have from the following folks [JK Rowling]"
## [119] "Please estimate the degrees of separation you have from the following folks [Malala Yousafzai]"
## [120] "Please estimate the degrees of separation you have from the following folks [Thom Yorke]"
## [121] "Please estimate the degrees of separation you have from the following folks [JJ Abrams]"
## [122] "Please estimate the degrees of separation you have from the following folks [Hillary Clinton]"
## [123] "Please estimate the degrees of separation you have from the following folks [Donald Trump]"
## [124] "Please estimate the degrees of separation you have from the following folks [Beyoncé Knowles]"
## [125] "user"
Save data:
write_csv(candy_survey, "02_candy-survey.csv")
title: "02_add-user-column.R"
author: "csiu"
date: "Fri Nov 6 20:24:24 2015"
csiu/candyplay documentation built on May 14, 2019, 12:24 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
02_add-user-column.R
csiu November 6, 2015
At a glance
- add
userid column to the raw candy data
Code
suppressPackageStartupMessages(library(dplyr))
library(readr)
Load raw candy data:
candy_survey <- read_csv("candy-survey-2015.csv")
Remove whitespace space in front of column names:
colnames(candy_survey) <- sub('^\\s+', '', colnames(candy_survey))
Add user id column:
candy_survey <- candy_survey %>%
mutate(user = sprintf("ID-%04d", order(Timestamp)))
colnames(candy_survey)
## [1] "Timestamp"
## [2] "How old are you?"
## [3] "Are you going actually going trick or treating yourself?"
## [4] "[Butterfinger]"
## [5] "[100 Grand Bar]"
## [6] "[Anonymous brown globs that come in black and orange wrappers]"
## [7] "[Any full-sized candy bar]"
## [8] "[Black Jacks]"
## [9] "[Bonkers]"
## [10] "[Bottle Caps]"
## [11] "[Box’o’ Raisins]"
## [12] "[Brach products (not including candy corn)]"
## [13] "[Bubble Gum]"
## [14] "[Cadbury Creme Eggs]"
## [15] "[Candy Corn]"
## [16] "[Vials of pure high fructose corn syrup, for main-lining into your vein]"
## [17] "[Candy that is clearly just the stuff given out for free at restaurants]"
## [18] "[Cash, or other forms of legal tender]"
## [19] "[Chiclets]"
## [20] "[Caramellos]"
## [21] "[Snickers]"
## [22] "[Dark Chocolate Hershey]"
## [23] "[Dental paraphenalia]"
## [24] "[Dots]"
## [25] "[Fuzzy Peaches]"
## [26] "[Generic Brand Acetaminophen]"
## [27] "[Glow sticks]"
## [28] "[Broken glow stick]"
## [29] "[Goo Goo Clusters]"
## [30] "[Good N' Plenty]"
## [31] "[Gum from baseball cards]"
## [32] "[Gummy Bears straight up]"
## [33] "[Creepy Religious comics/Chick Tracts]"
## [34] "[Healthy Fruit]"
## [35] "[Heath Bar]"
## [36] "[Hershey’s Kissables]"
## [37] "[Hershey’s Milk Chocolate]"
## [38] "[Hugs (actual physical hugs)]"
## [39] "[Jolly Rancher (bad flavor)]"
## [40] "[Jolly Ranchers (good flavor)]"
## [41] "[Kale smoothie]"
## [42] "[Kinder Happy Hippo]"
## [43] "[Kit Kat]"
## [44] "[Hard Candy]"
## [45] "[Lapel Pins]"
## [46] "[LemonHeads]"
## [47] "[Licorice]"
## [48] "[Licorice (not black)]"
## [49] "[Lindt Truffle]"
## [50] "[Lollipops]"
## [51] "[Mars]"
## [52] "[Mary Janes]"
## [53] "[Maynards]"
## [54] "[Milk Duds]"
## [55] "[LaffyTaffy]"
## [56] "[Minibags of chips]"
## [57] "[JoyJoy (Mit Iodine)]"
## [58] "[Reggie Jackson Bar]"
## [59] "[Pixy Stix]"
## [60] "[Nerds]"
## [61] "[Nestle Crunch]"
## [62] "[Now'n'Laters]"
## [63] "[Pencils]"
## [64] "[Milky Way]"
## [65] "[Reese’s Peanut Butter Cups]"
## [66] "[Tolberone something or other]"
## [67] "[Runts]"
## [68] "[Junior Mints]"
## [69] "[Senior Mints]"
## [70] "[Mint Kisses]"
## [71] "[Mint Juleps]"
## [72] "[Mint Leaves]"
## [73] "[Peanut M&M’s]"
## [74] "[Regular M&Ms]"
## [75] "[Mint M&Ms]"
## [76] "[Ribbon candy]"
## [77] "[Rolos]"
## [78] "[Skittles]"
## [79] "[Smarties (American)]"
## [80] "[Smarties (Commonwealth)]"
## [81] "[Chick-o-Sticks (we don’t know what that is)]"
## [82] "[Spotted Dick]"
## [83] "[Starburst]"
## [84] "[Swedish Fish]"
## [85] "[Sweetums]"
## [86] "[Those odd marshmallow circus peanut things]"
## [87] "[Three Musketeers]"
## [88] "[Peterson Brand Sidewalk Chalk]"
## [89] "[Peanut Butter Bars]"
## [90] "[Peanut Butter Jars]"
## [91] "[Trail Mix]"
## [92] "[Twix]"
## [93] "[Vicodin]"
## [94] "[White Bread]"
## [95] "[Whole Wheat anything]"
## [96] "[York Peppermint Patties]"
## [97] "Please leave any remarks or comments regarding your choices."
## [98] "Please list any items not included above that give you JOY."
## [99] "Please list any items not included above that give you DESPAIR."
## [100] "Guess the number of mints in my hand."
## [101] "Betty or Veronica?"
## [102] "Check all that apply: \"I cried tears of sadness at the end of ____________\""
## [103] "\"That dress* that went viral early this year - when I first saw it, it was ________\""
## [104] "Fill in the blank: \"Taylor Swift is a force for ___________\""
## [105] "What is your favourite font?"
## [106] "If you squint really hard, the words \"Intelligent Design\" would look like."
## [107] "Fill in the blank: \"Imitation is a form of ____________\""
## [108] "Please estimate the degree(s) of separation you have from the following celebrities [JK Rowling]"
## [109] "Please estimate the degree(s) of separation you have from the following celebrities [JJ Abrams]"
## [110] "Please estimate the degree(s) of separation you have from the following celebrities [Beyoncé]"
## [111] "Please estimate the degree(s) of separation you have from the following celebrities [Bieber]"
## [112] "Please estimate the degree(s) of separation you have from the following celebrities [Kevin Bacon]"
## [113] "Please estimate the degree(s) of separation you have from the following celebrities [Francis Bacon (1561 - 1626)]"
## [114] "[Sea-salt flavored stuff, probably chocolate, since this is the \"it\" flavor of the year]"
## [115] "[Necco Wafers]"
## [116] "Which day do you prefer, Friday or Sunday?"
## [117] "Please estimate the degrees of separation you have from the following folks [Bruce Lee]"
## [118] "Please estimate the degrees of separation you have from the following folks [JK Rowling]"
## [119] "Please estimate the degrees of separation you have from the following folks [Malala Yousafzai]"
## [120] "Please estimate the degrees of separation you have from the following folks [Thom Yorke]"
## [121] "Please estimate the degrees of separation you have from the following folks [JJ Abrams]"
## [122] "Please estimate the degrees of separation you have from the following folks [Hillary Clinton]"
## [123] "Please estimate the degrees of separation you have from the following folks [Donald Trump]"
## [124] "Please estimate the degrees of separation you have from the following folks [Beyoncé Knowles]"
## [125] "user"
Save data:
write_csv(candy_survey, "02_candy-survey.csv")
title: "02_add-user-column.R" author: "csiu" date: "Fri Nov 6 20:24:24 2015"
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.