Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/crunch-io/crunchtabs
Report generation for Crunch and generic datasets in R
https://github.com/crunch-io/crunchtabs
codebook cross-tabulation crunch pdf-reports topline
Last synced: 28 days ago
JSON representation
Report generation for Crunch and generic datasets in R
- Host: GitHub
- URL: https://github.com/crunch-io/crunchtabs
- Owner: Crunch-io
- License: lgpl-3.0
- Created: 2017-03-10T18:06:03.000Z (almost 8 years ago)
- Default Branch: main
- Last Pushed: 2024-08-17T00:54:11.000Z (5 months ago)
- Last Synced: 2024-08-17T20:33:15.968Z (5 months ago)
- Topics: codebook, cross-tabulation, crunch, pdf-reports, topline
- Language: R
- Homepage: https://crunch-io.github.io/crunchtabs/articles/Overview.html
- Size: 4.31 MB
- Stars: 4
- Watchers: 42
- Forks: 0
- Open Issues: 3
-
Metadata Files:
- Readme: README.md
- Changelog: NEWS.md
- License: license.MD
Awesome Lists containing this project
README
# crunchtabs
Crunchtabs allow for the automatic generation of toplines, crosstabulation and codebooks directly from a crunch dataset.
[](https://github.com/Crunch-io/crunchtabs/actions/workflows/check-standard.yaml) [](https://codecov.io/gh/Crunch-io/crunchtabs)
## Quick Start
For a broader introduction please see our [introductory vignette](https://crunch-io.github.io/crunchtabs/articles/Overview.html). For codebooks, see [codebooks](https://crunch-io.github.io/crunchtabs/articles/Codebooks.html)
### 1. Install tinytex
To make PDF reports, you'll need a working LaTeX installation. One way to get this is with the [tinytex](https://yihui.name/tinytex/) package. Or, see to install everything. We strongly recommend installing tinytex because it reduces the number of potential problems.
install.packages('tinytex')
tinytex::install_tinytex()
### 2. Install crunchtabs
# install.packages("remotes")
remotes::install_github("Crunch-io/crunchtabs")
### 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
```{=html}
```
# 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
## Generating Codebooks
Generating a codebook is easy!
# library(crunchtabs)
# login()
ds = loadDataset("Example dataset")
# Use ds = newExampleDataset() if not found!
writeCodeBookLatex(ds)