Crunchtabs allow for the automatic generation of toplines, crosstabulation and codebooks directly from a crunch dataset.
Quick Start
For a broader introduction please see our introductory vignette. For codebooks, see codebooks
1. Install tinytex
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.
Create a Topline
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 
Create a recontact or pre/post Topline
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.
- q1_pre
- q1_post
- q3_pre
- q3_post
<!-- --># 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)
Create a Tracking Report
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)
Create a Cross Tabulation
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 
Excel
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 