Crunchtabs allow for the automatic generation of toplines, crosstabulation and codebooks directly from a crunch dataset.
To make PDF reports, you'll need a working LaTeX installation. One way to get this is with the tinytex package. Or, see https://www.latex-project.org/get/ to install everything. We strongly recommend installing tinytex because it reduces the number of potential problems.
# install.packages("remotes") remotes::install_github("Crunch-io/crunchtabs")
Generating a topline report is quick and easy!
# library(crunchtabs) # login() ds = loadDataset("Example dataset") # Use ds = newExampleDataset() if not found! toplines_summary <- crosstabs(dataset = ds) writeLatex(toplines_summary, filename = "output", pdf = TRUE) # output.pdf will be written
Let's say you have a datasaet where you have asked the same question twice. Once "before" and once "after".
recontact_topline generates a report that shows these two side by side as if they were a categorical array. Making it easier for reviewers to identify differences over time.
The function assumes your "before" and "after" questions are named in the same way with a suffix.
# library(crunchtabs) # login() ds <- loadDataset("Your Recontact Survey") rc <- recontact_toplines( ds, questions = c("q1", "q3"), # The base question name without suffixes suffixes = c("_pre", "_post"), # The suffixes labels = c("Pre", "Post"), # The labels associated with the pre/post weights = c("weight1", "weight2") # The weights associated with the pre/post ) writeLatex(rc, pdf = TRUE)
Depending on your preferences you can also flip grids if have more categories than waves:
theme <- themeNew( default_theme = themeDefaultLatex(), latex_flip_specific_grids = c("q1") ) writeLatex(rc, theme = theme, pdf = TRUE)
While recontact reports are designed for questions asked in the same dataset, we also have the ability to present questions asked in multiple datasets in a similar fashion. There are some critical nuances here that should be understood - we recommend reviewing the eponymously named vignette.
# library(crunchtabs) # login() theme <- themeNew( default_theme = themeDefaultLatex(), latex_flip_grids = TRUE ) ds1 <- loadDataset("My DS Wave 1") ds2 <- loadDataset("My DS Wave 2") ds3 <- loadDataset("My DS Wave 3") ct <- trackingReport( dataset_list = list(ds1, ds2, ds3), vars = c("question_alias1", "question_alias2", "question_alias3"), wave_labels = NULL ) writeLatex(ct, pdf = TRUE, theme = theme)
The only additional step required for a cross tab report is to create a
banner object. Then, setting it as the
banner argument for the
crosstabs function. Below, we create a cross tabulation report that shows the type of pet(s) respondents own to our survey for every question in the survey. Once you have run the code, we encourage you to open the resulting
output.pdf file. Inside of the report you will find a cross tabulation of all questions by pet ownership.
# library(crunchtabs) # login() ds = loadDataset("Example dataset") # Use ds = newExampleDataset() if not found! ct_banner <- banner(ds, vars = list(`banner 1` = c('allpets'))) ct_summary <- crosstabs(dataset = ds, banner = ct_banner) # banner parameter set here writeLatex(ct_summary, filename = "output", pdf = TRUE) # output.pdf will be written
To create documents in excel, the process is the same as that for creating PDF reports. However, in the last line of our example scripts we use
writeExcel instead of
writeLatex while also removing the
pdf = TRUE argument. As with PDF reports, there are a large amount of options that can be set to adjust the look and feel of the resulting Excel spreadsheets.
# ... cross tab writeExcel(ct_summary, filename = "output") # output.xlsx will be written # ... topline, not yet implemented # writeExcel(toplines_summary, filename = "output") # output.xlsx will be written
Generating a codebook is easy!
# library(crunchtabs) # login() ds = loadDataset("Example dataset") # Use ds = newExampleDataset() if not found! writeCodeBookLatex(ds)