# ezsummary

Travis CI: Test Coverage:

## Introduction

Hadley's `dplyr` is very powerful and the "ecosystem" around it, such as `reshape2` and `tidyr`, makes it even better. However, there is still a short distance between the direct outputs of `dplyr` and something can be used directly in `Shiny` or `rmarkdown`. Basically, the concept of this package is kind of similar with the concept of David Robinson's `broom` package but this one focuses on the summary part.

When we are talking about statistical summary, there are always two types of data: quantitative (continuous) and qualitative (categorical). As your college Stats class may have told you, the common ways we used to look at these two types of data are different. For quantitative data, we want to know the mean, standard deviation and some other things while for categorical data, we want to know the number of items in each category and the percentage.

As investigators or data scientists, we are encountering these two kinds of data everyday. The traditional way is to do the analyses separately and spend some time later on "gluing" the results together. Believe me or not, this step actually takes a lot of time especially if you are doing it everyday.

This package addresses this issue by pre-programming the common summary task in a way that "makes sense" and offers tools to help you format your table in a easier way. It is depends on `dplyr` and `reshape2`, so it's very fast. Also, this package uses `dplyr`'s piping syntax and the functions inside this package can interact with other `dplyr` functions pretty well. You will feel codes flow out of your fingertips after you get used to it.

## To install

Type

``````    install.packages("devtools")
devtools::install_github("haozhu233/ezsummary")``````

## To use

### Basics

First of all, in this package, I use q to stand for "quantitative" and c to stand for "categorical" instead of the reverse way. The reason is simple: "quantitative" gives 112 million google results while "qualitative" only gives me 67 million. (I hope there could be better ways to make these two terms more distinctive but "continuous" vs "categorical"? really?...)

The major functions in `ezsummary` include

• `ezsummary`
• `ezsummary_categorical`
• `ezsummary_quantitative`
• `var_types`
• `ezmarkup`

Both `ezsummary_categorical` and `ezsummar_quantitative` can be used independently. By default, `ezsummary_categorical` will give you the count and proportion of each category. If you want to know total counts, you will need to set the option `n = T`. If you want to display Percentage instead of proportion, you will need to disable proportion by `p = F` and enable Percentage by `P = T`. Similarly, `ezsummary_quantitative` works in the same way but it has more options, including standard error of the mean(SEM) `sem`, `median` and `quantile`. You can adjust the rounding by using `round.N`. Here are two examples using our beloved `mtcars`.

``````library(dplyr)
library(ezsummary)
library(knitr)

kable(
mtcars %>%
select(am, cyl) %>%
ezsummary_categorical(n=T)
)``````
variable N count p
am_0 32 19 0.594
am_1 32 13 0.406
cyl_4 32 11 0.344
cyl_6 32 7 0.219
cyl_8 32 14 0.438
``````
kable(
mtcars %>%
group_by(am) %>%
select(mpg, wt, hp) %>%
ezsummary_quantitative(sd = F, sem = T, round.N = 1)
)``````
am variable mean sem
0 mpg 17.1 0.9
1 mpg 24.4 1.7
0 wt 3.8 0.2
1 wt 2.4 0.2
0 hp 160.3 12.4
1 hp 126.8 23.3

If you are doing analyses by group, like the example above, by the default setting of `ezsummary`, you will get a "tidy" formated table of results, in which the grouping information are listed as column(s) on the left. This format allows you to keep process your results. If you want the grouping information to be organized into row.names and makes the table wider, which is more "publish ready", you should use the `flavor` option. There are two options available, "long" and "wide".

``````kable(
mtcars %>%
group_by(am) %>%
select(mpg, wt, hp) %>%
ezsummary_quantitative(sd = F, sem = T, round.N = 1, flavor = "wide")
)``````
variable am.0_mean am.0_sem am.1_mean am.1_sem
mpg 17.1 0.9 24.4 1.7
wt 3.8 0.2 2.4 0.2
hp 160.3 12.4 126.8 23.3

(You may have notived that I'm using dot to separate grouping variable name and option and using underscore to separate grouping info and stats names. As as result, it will be a little easier for people who are not that familar with `regex` to cut the names and reshape the results.)

Now you feel like it is not that easy to read mean and sem on the same row. Well, we have `ezmarkup`. In this function, we use a dot `.` to represent a column and use a pair of bracket `[]` to represent you want to "squeeze" the columns inside into one. Any other symbols and characters within a pair of bracket will be copied into the same cell as well. It allows us to do advanced formatting settings in a very convenient way. Also, if you use the `unit_markup` option within the `ezsummary` functions, it will give you the same results. In that case, instead of typing in the markup pattern for every column, you just need to type the pattern for each pair of analysis you want to do. Here are two examples.

``````kable(
mtcars %>%
group_by(am) %>%
select(mpg, wt, hp) %>%
ezsummary_quantitative(sd = F, sem = T, round.N = 1, flavor = "wide") %>%
ezmarkup(".[. (.)][. (.)]")
)``````
variable am.0_mean (am.0_sem) am.1_mean (am.1_sem)
mpg 17.1 (0.9) 24.4 (1.7)
wt 3.8 (0.2) 2.4 (0.2)
hp 160.3 (12.4) 126.8 (23.3)
``````
# The following code will have the almost the same results: -------------
#
# kable(
#   mtcars %>%
#   group_by(am) %>%
#   select(mpg, wt, hp) %>%
#   ezsummary_quantitative(sd = F, sem = T, round.N = 1, flavor = "wide", unit_markup = "[. (.)]")
#   )

kable(
mtcars %>%
group_by(am) %>%
select(mpg, wt, hp) %>%
ezsummary_quantitative(sd = F, sem = T, round.N = 1, flavor = "wide") %>%
ezmarkup(".[. <sub>.</sub>][. <sub>.</sub>]"),

escape = F
)``````
variable am.0_mean am.0_sem am.1_mean am.1_sem
mpg 17.1 0.9 24.4 1.7
wt 3.8 0.2 2.4 0.2
hp 160.3 12.4 126.8 23.3

### Easy Summary

Finally, here comes our `ezsummary` function. By default, `ezsummary` acts just like a regular `ezsummary_quantitative` function, except when a column is not numeric, it will treat that colum as a categorical variable. As a result, `ezsummary` is supposed to be workable in any cases and can successfully reduce the chance of getting embarrassed by applying `mean` on a column of names. To make it better, you can pass a string of data types to `ezsummary` by using the `var_types` function. Again, read after me, "q" stands for a qualitative and continuous variable while "c" stands for a categorical and qualitative variable. Another thing you should pay attention is that the grouping variable should also take a slot. You are recommended to assign it as a categorical variable. Here are two examples.

``````kable(
mtcars %>% as_data_frame() %>%
mutate(am = as.character(am)) %>%
ezsummary(unit_markup = "[. (.)]")
)``````
variable mean_n (sd_p)
mpg 20.091 (6.027)
cyl 6.188 (1.786)
disp 230.722 (123.939)
hp 146.688 (68.563)
drat 3.597 (0.535)
wt 3.217 (0.978)
qsec 17.849 (1.787)
vs 0.438 (0.504)
am_0 19 (0.594)
am_1 13 (0.406)
gear 3.688 (0.738)
carb 2.812 (1.615)
``````
kable(
mtcars %>%
group_by(am) %>%
select(mpg, cyl, disp, hp, vs) %>%
var_types("cqcqqc") %>%
ezsummary(unit_markup = "[. (.)]", flavor="wide", round.N = 2)
)``````
variable am.0_mean_n (sd_p) am.1_mean_n (sd_p)
mpg 17.15 (3.83) 24.39 (6.17)
cyl_4 3 (0.16) 8 (0.62)
cyl_6 4 (0.21) 3 (0.23)
cyl_8 12 (0.63) 2 (0.15)
disp 290.38 (110.17) 143.53 (87.2)
hp 160.26 (53.91) 126.85 (84.06)
vs_0 12 (0.63) 6 (0.46)
vs_1 7 (0.37) 7 (0.54)

## Issues

If you ever find any issues, please feel free to report it in the issues tracking part on github. https://github.com/haozhu233/simple.summary/issues.

Thanks for using this package!