Combining tables

library(gapminder)
library(dplyr)
library(tidyr)
library(stringr)
library(purrr)
library(gt)
library(mmtable2)
# devtools::install()

Combining tables

You can combine tables with +, / and * operators.

The + operator places tables side-by-side (sharing headers)

ex1 <- t1 + t2
print(ex1)

		Table 1				Table 2
		GDP				Population
		1992	1997	2002	2007	1992	1997	2002	2007
Asia	Kuwait	34.9	40.3	35.1	47.3	1.4	1.8	2.1	2.5
	Singapore	24.8	33.5	36.0	47.1	3.2	3.8	4.2	4.6

The / operator places tables on top of one another (sharing headers)

ex2 <- t1 / t3
print(ex2)

			GDP
			1992	1997	2002	2007
Table 1	Asia	Kuwait	34.9	40.3	35.1	47.3
		Singapore	24.8	33.5	36.0	47.1
Table 3	Oceania	Australia	23.4	27.0	30.7	34.4
		New Zealand	18.4	21.1	23.2	25.2

The * operator “integrates” tables

ex3 <- t1 * t3 * t4 *  t2
print(ex3)

		GDP				Population
		1992	1997	2002	2007	1992	1997	2002	2007
Asia	Kuwait	34.9	40.3	35.1	47.3	1.4	1.8	2.1	2.5
	Singapore	24.8	33.5	36.0	47.1	3.2	3.8	4.2	4.6
Oceania	Australia	23.4	27.0	30.7	34.4	17.5	18.6	19.5	20.4
	New Zealand	18.4	21.1	23.2	25.2	3.4	3.7	3.9	4.1