examples/stackoverflow/55850716_reprex.md
In dewittpe/qwraps2: Quick Wraps 2
The ordering of the columns defaults to the order the levels of the factor.
To illustrate this the mtcars2 data frame is presented with the cylinders
column as a factor. The example provided in the vignette intentionally
ordered the factor in a non-increasing order to demonstrate the behavior.
Update: As of version 0.5.0 of qwraps2 the mtcars2 data set is exported
as part of the package and the use of the .data pronoun is no longer
needed.
library(qwraps2)
options(qwraps2_markup = "markdown")
data(mtcars2, package = "qwraps2")
our_summary1 <-
list("Miles Per Gallon" =
list("min" = ~ min(mpg),
"max" = ~ max(mpg),
"mean (sd)" = ~ qwraps2::mean_sd(mpg)),
"Displacement" =
list("min" = ~ min(disp),
"median" = ~ median(disp),
"max" = ~ max(disp),
"mean (sd)" = ~ qwraps2::mean_sd(disp)),
"Weight (1000 lbs)" =
list("min" = ~ min(wt),
"max" = ~ max(wt),
"mean (sd)" = ~ qwraps2::mean_sd(wt)),
"Forward Gears" =
list("Three" = ~ qwraps2::n_perc0(gear == 3),
"Four" = ~ qwraps2::n_perc0(gear == 4),
"Five" = ~ qwraps2::n_perc0(gear == 5))
)
by_cyl <- summary_table(mtcars2, summaries = our_summary1, by = "cyl_factor")
by_cyl
#>
#>
#> | |6 cylinders (N = 7) |4 cylinders (N = 11) |8 cylinders (N = 14) |
#> |:----------------------|:---------------------|:---------------------|:---------------------|
#> |**Miles Per Gallon** | | | |
#> | min |17.8 |21.4 |10.4 |
#> | max |21.4 |33.9 |19.2 |
#> | mean (sd) |19.74 ± 1.45 |26.66 ± 4.51 |15.10 ± 2.56 |
#> |**Displacement** | | | |
#> | min |145 |71.1 |275.8 |
#> | median |167.6 |108 |350.5 |
#> | max |258 |146.7 |472 |
#> | mean (sd) |183.31 ± 41.56 |105.14 ± 26.87 |353.10 ± 67.77 |
#> |**Weight (1000 lbs)** | | | |
#> | min |2.62 |1.513 |3.17 |
#> | max |3.46 |3.19 |5.424 |
#> | mean (sd) |3.12 ± 0.36 |2.29 ± 0.57 |4.00 ± 0.76 |
#> |**Forward Gears** | | | |
#> | Three |2 (29) |1 (9) |12 (86) |
#> | Four |4 (57) |8 (73) |0 (0) |
#> | Five |1 (14) |2 (18) |2 (14) |
If we build the same table, but using the cyl_character to group by we will
get the columns in a different order based on the default coercion from
character to factor.
summary_table(mtcars2, summaries = our_summary1, by = "cyl_character")
#>
#>
#> | |4 cylinders (N = 11) |6 cylinders (N = 7) |8 cylinders (N = 14) |
#> |:----------------------|:---------------------|:---------------------|:---------------------|
#> |**Miles Per Gallon** | | | |
#> | min |21.4 |17.8 |10.4 |
#> | max |33.9 |21.4 |19.2 |
#> | mean (sd) |26.66 ± 4.51 |19.74 ± 1.45 |15.10 ± 2.56 |
#> |**Displacement** | | | |
#> | min |71.1 |145 |275.8 |
#> | median |108 |167.6 |350.5 |
#> | max |146.7 |258 |472 |
#> | mean (sd) |105.14 ± 26.87 |183.31 ± 41.56 |353.10 ± 67.77 |
#> |**Weight (1000 lbs)** | | | |
#> | min |1.513 |2.62 |3.17 |
#> | max |3.19 |3.46 |5.424 |
#> | mean (sd) |2.29 ± 0.57 |3.12 ± 0.36 |4.00 ± 0.76 |
#> |**Forward Gears** | | | |
#> | Three |1 (9) |2 (29) |12 (86) |
#> | Four |8 (73) |4 (57) |0 (0) |
#> | Five |2 (18) |1 (14) |2 (14) |
Created on 2020-09-14 by the reprex package (v0.3.0)
devtools::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#> setting value
#> version R version 4.0.2 (2020-06-22)
#> os macOS Catalina 10.15.6
#> system x86_64, darwin17.0
#> ui X11
#> language (EN)
#> collate en_US.UTF-8
#> ctype en_US.UTF-8
#> tz America/Denver
#> date 2020-09-14
#>
#> ─ Packages ───────────────────────────────────────────────────────────────────
#> package * version date lib source
#> assertthat 0.2.1 2019-03-21 [1] CRAN (R 4.0.0)
#> backports 1.1.9 2020-08-24 [1] CRAN (R 4.0.2)
#> callr 3.4.4 2020-09-07 [1] CRAN (R 4.0.2)
#> cli 2.0.2 2020-02-28 [1] CRAN (R 4.0.0)
#> crayon 1.3.4 2017-09-16 [1] CRAN (R 4.0.0)
#> desc 1.2.0 2018-05-01 [1] CRAN (R 4.0.0)
#> devtools 2.3.1 2020-07-21 [1] CRAN (R 4.0.2)
#> digest 0.6.25 2020-02-23 [1] CRAN (R 4.0.0)
#> ellipsis 0.3.1 2020-05-15 [1] CRAN (R 4.0.0)
#> evaluate 0.14 2019-05-28 [1] CRAN (R 4.0.0)
#> fansi 0.4.1 2020-01-08 [1] CRAN (R 4.0.0)
#> fs 1.5.0 2020-07-31 [1] CRAN (R 4.0.2)
#> glue 1.4.2 2020-08-27 [1] CRAN (R 4.0.2)
#> highr 0.8 2019-03-20 [1] CRAN (R 4.0.0)
#> htmltools 0.5.0 2020-06-16 [1] CRAN (R 4.0.0)
#> knitr 1.29 2020-06-23 [1] CRAN (R 4.0.0)
#> magrittr 1.5 2014-11-22 [1] CRAN (R 4.0.0)
#> memoise 1.1.0 2017-04-21 [1] CRAN (R 4.0.0)
#> pkgbuild 1.1.0 2020-07-13 [1] CRAN (R 4.0.2)
#> pkgload 1.1.0 2020-05-29 [1] CRAN (R 4.0.0)
#> prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.0.0)
#> processx 3.4.4 2020-09-03 [1] CRAN (R 4.0.2)
#> ps 1.3.4 2020-08-11 [1] CRAN (R 4.0.2)
#> qwraps2 * 0.5.0 2020-08-31 [1] local
#> R6 2.4.1 2019-11-12 [1] CRAN (R 4.0.0)
#> Rcpp 1.0.5 2020-07-06 [1] CRAN (R 4.0.0)
#> remotes 2.2.0 2020-07-21 [1] CRAN (R 4.0.2)
#> rlang 0.4.7 2020-07-09 [1] CRAN (R 4.0.2)
#> rmarkdown 2.3 2020-06-18 [1] CRAN (R 4.0.0)
#> rprojroot 1.3-2 2018-01-03 [1] CRAN (R 4.0.0)
#> sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 4.0.0)
#> stringi 1.5.3 2020-09-09 [1] CRAN (R 4.0.2)
#> stringr 1.4.0 2019-02-10 [1] CRAN (R 4.0.0)
#> testthat 2.3.2 2020-03-02 [1] CRAN (R 4.0.0)
#> usethis 1.6.1 2020-04-29 [1] CRAN (R 4.0.0)
#> withr 2.2.0 2020-04-20 [1] CRAN (R 4.0.0)
#> xfun 0.17 2020-09-09 [1] CRAN (R 4.0.2)
#> yaml 2.2.1 2020-02-01 [1] CRAN (R 4.0.0)
#>
#> [1] /Library/Frameworks/R.framework/Versions/4.0/Resources/library
dewittpe/qwraps2 documentation built on Jan. 4, 2024, 1:59 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
The ordering of the columns defaults to the order the levels of the factor.
To illustrate this the mtcars2 data frame is presented with the cylinders
column as a factor. The example provided in the vignette intentionally
ordered the factor in a non-increasing order to demonstrate the behavior.
Update: As of version 0.5.0 of qwraps2 the mtcars2 data set is exported
as part of the package and the use of the .data pronoun is no longer
needed.
library(qwraps2)
options(qwraps2_markup = "markdown")
data(mtcars2, package = "qwraps2")
our_summary1 <-
list("Miles Per Gallon" =
list("min" = ~ min(mpg),
"max" = ~ max(mpg),
"mean (sd)" = ~ qwraps2::mean_sd(mpg)),
"Displacement" =
list("min" = ~ min(disp),
"median" = ~ median(disp),
"max" = ~ max(disp),
"mean (sd)" = ~ qwraps2::mean_sd(disp)),
"Weight (1000 lbs)" =
list("min" = ~ min(wt),
"max" = ~ max(wt),
"mean (sd)" = ~ qwraps2::mean_sd(wt)),
"Forward Gears" =
list("Three" = ~ qwraps2::n_perc0(gear == 3),
"Four" = ~ qwraps2::n_perc0(gear == 4),
"Five" = ~ qwraps2::n_perc0(gear == 5))
)
by_cyl <- summary_table(mtcars2, summaries = our_summary1, by = "cyl_factor")
by_cyl
#>
#>
#> | |6 cylinders (N = 7) |4 cylinders (N = 11) |8 cylinders (N = 14) |
#> |:----------------------|:---------------------|:---------------------|:---------------------|
#> |**Miles Per Gallon** | | | |
#> | min |17.8 |21.4 |10.4 |
#> | max |21.4 |33.9 |19.2 |
#> | mean (sd) |19.74 ± 1.45 |26.66 ± 4.51 |15.10 ± 2.56 |
#> |**Displacement** | | | |
#> | min |145 |71.1 |275.8 |
#> | median |167.6 |108 |350.5 |
#> | max |258 |146.7 |472 |
#> | mean (sd) |183.31 ± 41.56 |105.14 ± 26.87 |353.10 ± 67.77 |
#> |**Weight (1000 lbs)** | | | |
#> | min |2.62 |1.513 |3.17 |
#> | max |3.46 |3.19 |5.424 |
#> | mean (sd) |3.12 ± 0.36 |2.29 ± 0.57 |4.00 ± 0.76 |
#> |**Forward Gears** | | | |
#> | Three |2 (29) |1 (9) |12 (86) |
#> | Four |4 (57) |8 (73) |0 (0) |
#> | Five |1 (14) |2 (18) |2 (14) |
If we build the same table, but using the cyl_character to group by we will
get the columns in a different order based on the default coercion from
character to factor.
summary_table(mtcars2, summaries = our_summary1, by = "cyl_character")
#>
#>
#> | |4 cylinders (N = 11) |6 cylinders (N = 7) |8 cylinders (N = 14) |
#> |:----------------------|:---------------------|:---------------------|:---------------------|
#> |**Miles Per Gallon** | | | |
#> | min |21.4 |17.8 |10.4 |
#> | max |33.9 |21.4 |19.2 |
#> | mean (sd) |26.66 ± 4.51 |19.74 ± 1.45 |15.10 ± 2.56 |
#> |**Displacement** | | | |
#> | min |71.1 |145 |275.8 |
#> | median |108 |167.6 |350.5 |
#> | max |146.7 |258 |472 |
#> | mean (sd) |105.14 ± 26.87 |183.31 ± 41.56 |353.10 ± 67.77 |
#> |**Weight (1000 lbs)** | | | |
#> | min |1.513 |2.62 |3.17 |
#> | max |3.19 |3.46 |5.424 |
#> | mean (sd) |2.29 ± 0.57 |3.12 ± 0.36 |4.00 ± 0.76 |
#> |**Forward Gears** | | | |
#> | Three |1 (9) |2 (29) |12 (86) |
#> | Four |8 (73) |4 (57) |0 (0) |
#> | Five |2 (18) |1 (14) |2 (14) |
Created on 2020-09-14 by the reprex package (v0.3.0)
devtools::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#> setting value
#> version R version 4.0.2 (2020-06-22)
#> os macOS Catalina 10.15.6
#> system x86_64, darwin17.0
#> ui X11
#> language (EN)
#> collate en_US.UTF-8
#> ctype en_US.UTF-8
#> tz America/Denver
#> date 2020-09-14
#>
#> ─ Packages ───────────────────────────────────────────────────────────────────
#> package * version date lib source
#> assertthat 0.2.1 2019-03-21 [1] CRAN (R 4.0.0)
#> backports 1.1.9 2020-08-24 [1] CRAN (R 4.0.2)
#> callr 3.4.4 2020-09-07 [1] CRAN (R 4.0.2)
#> cli 2.0.2 2020-02-28 [1] CRAN (R 4.0.0)
#> crayon 1.3.4 2017-09-16 [1] CRAN (R 4.0.0)
#> desc 1.2.0 2018-05-01 [1] CRAN (R 4.0.0)
#> devtools 2.3.1 2020-07-21 [1] CRAN (R 4.0.2)
#> digest 0.6.25 2020-02-23 [1] CRAN (R 4.0.0)
#> ellipsis 0.3.1 2020-05-15 [1] CRAN (R 4.0.0)
#> evaluate 0.14 2019-05-28 [1] CRAN (R 4.0.0)
#> fansi 0.4.1 2020-01-08 [1] CRAN (R 4.0.0)
#> fs 1.5.0 2020-07-31 [1] CRAN (R 4.0.2)
#> glue 1.4.2 2020-08-27 [1] CRAN (R 4.0.2)
#> highr 0.8 2019-03-20 [1] CRAN (R 4.0.0)
#> htmltools 0.5.0 2020-06-16 [1] CRAN (R 4.0.0)
#> knitr 1.29 2020-06-23 [1] CRAN (R 4.0.0)
#> magrittr 1.5 2014-11-22 [1] CRAN (R 4.0.0)
#> memoise 1.1.0 2017-04-21 [1] CRAN (R 4.0.0)
#> pkgbuild 1.1.0 2020-07-13 [1] CRAN (R 4.0.2)
#> pkgload 1.1.0 2020-05-29 [1] CRAN (R 4.0.0)
#> prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.0.0)
#> processx 3.4.4 2020-09-03 [1] CRAN (R 4.0.2)
#> ps 1.3.4 2020-08-11 [1] CRAN (R 4.0.2)
#> qwraps2 * 0.5.0 2020-08-31 [1] local
#> R6 2.4.1 2019-11-12 [1] CRAN (R 4.0.0)
#> Rcpp 1.0.5 2020-07-06 [1] CRAN (R 4.0.0)
#> remotes 2.2.0 2020-07-21 [1] CRAN (R 4.0.2)
#> rlang 0.4.7 2020-07-09 [1] CRAN (R 4.0.2)
#> rmarkdown 2.3 2020-06-18 [1] CRAN (R 4.0.0)
#> rprojroot 1.3-2 2018-01-03 [1] CRAN (R 4.0.0)
#> sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 4.0.0)
#> stringi 1.5.3 2020-09-09 [1] CRAN (R 4.0.2)
#> stringr 1.4.0 2019-02-10 [1] CRAN (R 4.0.0)
#> testthat 2.3.2 2020-03-02 [1] CRAN (R 4.0.0)
#> usethis 1.6.1 2020-04-29 [1] CRAN (R 4.0.0)
#> withr 2.2.0 2020-04-20 [1] CRAN (R 4.0.0)
#> xfun 0.17 2020-09-09 [1] CRAN (R 4.0.2)
#> yaml 2.2.1 2020-02-01 [1] CRAN (R 4.0.0)
#>
#> [1] /Library/Frameworks/R.framework/Versions/4.0/Resources/library
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.