https://github.com/kapsner/sjtable2df

Convert 'sjPlot' HTML-Tables to R 'data.frame'
https://github.com/kapsner/sjtable2df

converter cran data-frame r r-package sjplot tables

Last synced: 18 days ago
JSON representation

Convert 'sjPlot' HTML-Tables to R 'data.frame'

• Host: GitHub
• URL: https://github.com/kapsner/sjtable2df
• Owner: kapsner
• License: gpl-3.0
• Created: 2021-11-15T21:26:56.000Z (over 3 years ago)
• Default Branch: main
• Last Pushed: 2024-06-07T07:05:39.000Z (12 months ago)
• Last Synced: 2024-08-08T23:45:55.671Z (10 months ago)
• Topics: converter, cran, data-frame, r, r-package, sjplot, tables
• Language: R
• Homepage: https://cran.r-project.org/web/packages/sjtable2df/vignettes/Overview.html
• Size: 83 KB
• Stars: 4
• Watchers: 1
• Forks: 1
• Open Issues: 1
• Metadata Files:
  • Readme: README.md
  • License: LICENSE.md

Awesome Lists containing this project

README

        


# sjtable2df

[![](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://lifecycle.r-lib.org/articles/stages.html#experimental)

[![](https://www.r-pkg.org/badges/version/sjtable2df)](https://cran.r-project.org/package=sjtable2df)

[![CRAN

checks](https://badges.cranchecks.info/worst/sjtable2df.svg)](https://cran.r-project.org/web/checks/check_results_sjtable2df.html)

[![](http://cranlogs.r-pkg.org/badges/grand-total/sjtable2df?color=blue)](https://cran.r-project.org/package=sjtable2df)

[![](http://cranlogs.r-pkg.org/badges/last-month/sjtable2df?color=blue)](https://cran.r-project.org/package=sjtable2df)

[![Dependencies](https://tinyverse.netlify.app/badge/sjtable2df)](https://cran.r-project.org/package=sjtable2df)

[![R build

status](https://github.com/kapsner/sjtable2df/workflows/R%20CMD%20Check%20via%20%7Btic%7D/badge.svg)](https://github.com/kapsner/sjtable2df/actions)

[![R build

status](https://github.com/kapsner/sjtable2df/workflows/lint/badge.svg)](https://github.com/kapsner/sjtable2df/actions)

[![R build

status](https://github.com/kapsner/sjtable2df/workflows/test-coverage/badge.svg)](https://github.com/kapsner/sjtable2df/actions)

[![](https://codecov.io/gh/https://github.com/kapsner/sjtable2df/branch/main/graph/badge.svg)](https://codecov.io/gh/https://github.com/kapsner/sjtable2df)

The [`sjPlot`](https://CRAN.R-project.org/package=sjPlot) R package is a

great package for visualizing results.

However, the tables created using the functions

[`sjPlot::tab_model`](https://www.rdocumentation.org/packages/sjPlot/versions/2.8.4/topics/tab_model)

or

[`sjPlot::tab_xtab`](https://www.rdocumentation.org/packages/sjPlot/versions/2.8.4/topics/tab_xtab)

return HTML tables and are not straightforward to use in R, especially

when trying to integrate them into pdf- or word-documents using

Rmarkdown.

The `sjtable2df` R package’s goal is to overcome this and to provide an

easy interface for converting `sjPlot`’s HTML tables to `data.frame`,

`data.table`, or `kable` objects for further usage in R or Rmarkdown.

Currently, `sjtable2df` provides two functions to convert tables created

from `sjPlot`’s functions

[`tab_model`](https://www.rdocumentation.org/packages/sjPlot/versions/2.8.4/topics/tab_model)

and

[`tab_xtab`](https://www.rdocumentation.org/packages/sjPlot/versions/2.8.4/topics/tab_xtab):

`sjtable2df::mtab2df` and `sjtable2df::xtab2df`.

## Install

``` r

install.packages("sjtable2df")

```

The development version is available from GitHub:

``` r

install.packages("remotes")

remotes::install_github("kapsner/sjtable2df")

```

## Example

Further details and examples are given in the package’s

[vignette](https://cran.r-project.org/web/packages/sjtable2df/vignettes/Overview.html).

``` r

library(sjtable2df)

set.seed(1)

dataset <- data.table::data.table(

  "var1" = sample(

    x = c("yes", "no"),

    size = 100,

    replace = TRUE,

    prob = c(.3, .7)

  ),

  "var2" = sample(

    x = c("yes", "no"),

    size = 100,

    replace = TRUE

  )

)

xtab <- sjPlot::tab_xtab(

  var.row = dataset$var1,

  var.col = dataset$var2,

  show.summary = TRUE,

  use.viewer = FALSE

)

sjtable2df::xtab2df(xtab = xtab, output = "data.table")

#>     var1 var2 no var2 yes                               Total

#> 1:    no      29       39                                  68

#> 2:   yes      18       14                                  32

#> 3: Total      47       53                                 100

#> 4:                        χ2=1.116 · df=1 · φ=0.127 · p=0.291

sjtable2df::xtab2df(xtab = xtab, output = "kable", format = "latex")

#> \begin{tabular}[t]{l|l|l|l}

#> \hline

#> var1 & var2 no & var2 yes & Total\\

#> \hline

#> no & 29 & 39 & 68\\

#> \hline

#> yes & 18 & 14 & 32\\

#> \hline

#> Total & 47 & 53 & 100\\

#> \hline

#> \multicolumn{4}{l}{\textsuperscript{} $χ2=1.116 · df=1 · φ=0.127 · p=0.291$}\\

#> \end{tabular} 

```

## More Information

- [sjPlot R

  package](https://cran.r-project.org/web/packages/sjPlot/index.html)