Philippe J. S. De Brouwer - The Big R-Book

summarise()

The sections on knitrand rmarkdown(respectively Chapter 33on page 703 and Chapter 32on page 699) will explain how to convert this output via the function kable()into Table 8.2.

There are a few things about group_by()and summarise()that should be noted in order to make working with them easier. For example, summarizeworks opposite to group_byand hence will peel back any existing grouping, it is possible to use expression in group by, new groups will preplace by default existing ones, etc. These aspects are illustrated in the following code.

# Each call to summarise() removes a layer of grouping:by_vs_am <-mtcars %>% group_by(vs, am) by_vs <-by_vs_am %>% summarise(n = n()) by_vs ## # A tibble: 4 x 3 ## # Groups: vs [2] ## vs am n ## ## 1 0 0 12 ## 2 0 1 6 ## 3 1 0 7 ## 4 1 1 7 by_vs %>% summarise(n = sum(n)) ## # A tibble: 2 x 2 ## vs n ## ## 1 0 18 ## 2 1 14 # To removing grouping, use ungroup:by_vs %>% ungroup() %>% summarise(n = sum(n)) ## # A tibble: 1 x 1 ## n ## ## 1 32 # You can group by expressions: this is just short-hand for # a mutate/rename followed by a simple group_by:mtcars %>% group_by(vsam = vs +am) ## # A tibble: 32 x 12 ## # Groups: vsam [3] ## mpg cyl disp hp drat wt qsec vs am ## ## 1 21 6 160 110 3.9 2.62 16.5 0 1 ## 2 21 6 160 110 3.9 2.88 17.0 0 1 ## 3 22.8 4 108 93 3.85 2.32 18.6 1 1 ## 4 21.4 6 258 110 3.08 3.22 19.4 1 0 ## 5 18.7 8 360 175 3.15 3.44 17.0 0 0 ## 6 18.1 6 225 105 2.76 3.46 20.2 1 0 ## 7 14.3 8 360 245 3.21 3.57 15.8 0 0 ## 8 24.4 4 147. 62 3.69 3.19 20 1 0 ## 9 22.8 4 141. 95 3.92 3.15 22.9 1 0 ## 10 19.2 6 168. 123 3.92 3.44 18.3 1 0 ## # … with 22 more rows, and 3 more variables: ## # gear , carb , vsam # By default, group_by overrides existing grouping:mtcars %>% group_by(cyl) %>% group_by(vs, am) %>% group_vars() ## [1] “vs” “am” # Use add = TRUE to append grouping levels:mtcars %>% group_by(cyl) %>% group_by(vs, am, add = TRUE) %>% group_vars() ## [1] “cyl” “vs” “am”

1 1More information about the concept “dispatcher function” is in Chapter 6“The Implementation of OO” on page 87.

2 2In the sections Chapter 32“R Markdown” on page 699 and Chapter 33“knitr and LATEX” on page 703 it will be explained how these results from R can directly be used in reports without the need to copy and paste things.

Текст предоставлен ООО «ЛитРес».

Прочитайте эту книгу целиком, на ЛитРес.

Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.