explore_table: Summary statistics and plots of the table columns.

In mz74/mzfun: mz's r functions

Description

Summary statistics and plots of the table columns.

Usage

explore_table(
  ftable,
  ftarget = NA,
  fassign_classes = TRUE,
  fadd_tables = TRUE,
  ft_format = TRUE,
  ftmax_levels = 50,
  fadd_plots = FALSE,
  fprm_na = FALSE,
  fptext_labels = FALSE,
  fpmax_numlevels = 0,
  fpmax_faclevels = 20
)

Arguments

ftable	data.frame or data.table
ftarget	string: columname of ftable including the target. Optional. Use ftarget = NA to explore the table without target column.
fassign_classes	TRUE or FALSE. TRUE assigns a new class to each column.
fadd_tables	TRUE or FALSE. Add or not add a table.
ft_format	TRUE or FALSE. Format or not format the table values.
ftmax_levels	Integer. Maximum number of table rows. Set NA to ignore constraint.
fadd_plots	TRUE or FALSE. Add or not add a plot.
fprm_na	TRUE or FALSE. Remove or not remove NAs before plotting.
fptext_labels	TRUE or FALSE. Add or not add text labels to bar plots.
fpmax_numlevels	Integer. If number of numerics is smaller, then plot bar plot instead of line plot.
fpmax_faclevels	Integer. Maximum number of bars to be plotted for each segment.

Value

list with several elements: summary: the summary statistics. plot$name$count: ggplots of absolute frequencies of each column. plot$name$rel: ggplots of relative frequencies of each column.

Examples

## Not run: 
---
title: "My document"
date: "`r Sys.Date()`"
author: mz
output:
  rmdformats::downcute:
  self_contained: true
  thumbnails: true
  lightbox: true
  gallery: false
  highlight: tango
---

<style>
.page-content img.image-thumb {
width: 400px;
border: 1px solid #CCC;
padding: 0;
}

li {
height: 30px;
}

summary:focus {
outline: none;
}

summary:hover {
text-decoration: underline;
}

</style>

```{r, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(message = FALSE)
```

```{r}
library(mzfun)
library(magrittr)
library(data.table)
library(ggplot2)
library(flextable)
library(knitr)
library(DT)
library(htmltools)
```

```{r}
et1 = explore_table(copy(d3[1:1000]), ftarget ='Anrede', fassign_classes = TRUE,
  fadd_tables = TRUE, fadd_plots = TRUE, fpmax_numlevels = 20, fprm_na = FALSE,
  fpmax_faclevels = 50, fptext_labels = TRUE, ft_format = FALSE)
```

```{r, results='asis'}
dnames = et1$plot %>% names
i = dnames[1]
cat('# Summary', '\n\n')
datatable(et1$summary)
out = NULL
cat('\n\r')
for (i in dnames){
  cat('#', i, '\n')
  et1$plot[[i]]$count %>% print
  et1$plot[[i]]$rel %>% print
  cat('\n\r')
  cat('<details>')
  cat('\n\r')
  cat('<summary>Tabelle</summary>')
  cat('\n\r')
  dtable = et1$table[[i]] %>% flextable() %>%
    align(align = 'right', part = 'all') %>%
    align(j = 1, align = 'left', part = 'all')
  cat(knit_print(dtable))

  cat('\n\r')
  cat('</details>')
  cat('\n\r')
  cat('\n\r')
}
```

## End(Not run)

mz74/mzfun documentation built on April 14, 2021, 4:17 a.m.