PSYC 6136 Tables

rempsyc

Install & load the package

install.packages("rempsyc")
library(rempsyc)

Creating a table using nice_table() function from the rempsyc package

iris
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1           5.1         3.5          1.4         0.2  setosa
2           4.9         3.0          1.4         0.2  setosa
3           4.7         3.2          1.3         0.2  setosa
4           4.6         3.1          1.5         0.2  setosa
5           5.0         3.6          1.4         0.2  setosa
6           5.4         3.9          1.7         0.4  setosa
7           4.6         3.4          1.4         0.3  setosa
8           5.0         3.4          1.5         0.2  setosa
9           4.4         2.9          1.4         0.2  setosa
10          4.9         3.1          1.5         0.1  setosa
11          5.4         3.7          1.5         0.2  setosa
12          4.8         3.4          1.6         0.2  setosa
13          4.8         3.0          1.4         0.1  setosa
14          4.3         3.0          1.1         0.1  setosa
15          5.8         4.0          1.2         0.2  setosa
 [ reached 'max' / getOption("max.print") -- omitted 135 rows ]
some_iris <- head(iris)
nice_table(some_iris)
# Using `dplyr` for summary/descriptive statics, i.e.,  mean and SD
desc1 <- iris %>%
          dplyr::group_by(Species) %>%
          dplyr::summarise(N=n(),
                    'Mean Petal Length'= mean(Petal.Length),
                    'SD Petal Length'= sd(Petal.Length))


nice_table(desc1, title = "Table 1: Descriptive Statistics Petal Length per Species")

Saving as Word doc

You can save you table as a Word doc:

flextable::save_as_docx(desc1, path = "PATH/NAME_OF_FILE.docx")

More Examples

For more info and tutorial, see: https://rempsyc.remi-theriault.com/articles/table

apaTables

Install & load the package

install.packages("apaTables")
library(apaTables)

Creating a table using apa.cor.table() and apa.reg.table() functions from the apaTables package

# using the iris dataset again:

apa.cor.table(iris)


# or, we could fit a regression model or more

reg.mod1 <- lm(Petal.Length~Species, data = iris)

apa.reg.table(reg.mod1)


# and model comparisons...

reg.mod2 <- lm(Petal.Length~Species+Petal.Width, data= iris)

apa.reg.table(reg.mod1, reg.mod2)

Saving as Word doc

You can save you table as a Word doc:

apa.cor.table(iris,filename="PATH/TABLE EXAMPLE 1.doc")
apa.reg.table(reg.mod1, filename="PATH/TABLE EXAMPLE 2.doc")
LS0tCnRpdGxlOiAiUFNZQyA2MTM2IFRhYmxlcyIKYXV0aG9yOiAiVWRpIEFsdGVyIgpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiCm91dHB1dDoKICBybWRmb3JtYXRzOjpyb2JvYm9vazoKICAgIHNlbGZfY29udGFpbmVkOiB0cnVlCiAgICB0aHVtYm5haWxzOiBmYWxzZQogICAgbGlnaHRib3g6IHRydWUKICAgIGdhbGxlcnk6IGZhbHNlCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMKLS0tCgoKYGBge3Igc2V0dXAsIGVjaG89RkFMU0UsIGNhY2hlPUZBTFNFLCBtZXNzYWdlPUZBTFNFfQpsaWJyYXJ5KGtuaXRyKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShwc3ljaCkKbGlicmFyeShyZWFkcikKbGlicmFyeShjYXIpCmxpYnJhcnkodmNkRXh0cmEpCmxpYnJhcnkoZ3JpZCkKbGlicmFyeShncmlkRXh0cmEpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHJlbXBzeWMpCmxpYnJhcnkoZmxleHRhYmxlKQpsaWJyYXJ5KGFwYVRhYmxlcykKIyMgR2xvYmFsIG9wdGlvbnMKb3B0aW9ucyhtYXgucHJpbnQ9Ijc1IikKb3B0c19jaHVuayRzZXQoZWNobz1UUlVFLAoJICAgICAgICAgICAgIGNhY2hlPVRSVUUsCiAgICAgICAgICAgICAgIHByb21wdD1GQUxTRSwKICAgICAgICAgICAgICAgY29tbWVudD1OQSwKICAgICAgICAgICAgICAgbWVzc2FnZT1GQUxTRSwKICAgICAgICAgICAgICAgd2FybmluZz1GQUxTRSkKb3B0c19rbml0JHNldCh3aWR0aD03NSkKYGBgCgojIGByZW1wc3ljYAoKIyMjIEluc3RhbGwgJiBsb2FkIHRoZSBwYWNrYWdlCgoKYGBge3IsIGV2YWw9RkFMU0V9Cmluc3RhbGwucGFja2FnZXMoInJlbXBzeWMiKQpsaWJyYXJ5KHJlbXBzeWMpCmBgYAoKIyMgQ3JlYXRpbmcgYSB0YWJsZSB1c2luZyBgbmljZV90YWJsZSgpYCBmdW5jdGlvbiBmcm9tIHRoZSBgcmVtcHN5Y2AgcGFja2FnZSAKCgpgYGB7cn0KaXJpcwoKc29tZV9pcmlzIDwtIGhlYWQoaXJpcykKbmljZV90YWJsZShzb21lX2lyaXMpCgoKIyBVc2luZyBgZHBseXJgIGZvciBzdW1tYXJ5L2Rlc2NyaXB0aXZlIHN0YXRpY3MsIGkuZS4sICBtZWFuIGFuZCBTRApkZXNjMSA8LSBpcmlzICU+JQogICAgICAgICAgZHBseXI6Omdyb3VwX2J5KFNwZWNpZXMpICU+JQogICAgICAgICAgZHBseXI6OnN1bW1hcmlzZShOPW4oKSwKICAgICAgICAgICAgICAgICAgICAnTWVhbiBQZXRhbCBMZW5ndGgnPSBtZWFuKFBldGFsLkxlbmd0aCksCiAgICAgICAgICAgICAgICAgICAgJ1NEIFBldGFsIExlbmd0aCc9IHNkKFBldGFsLkxlbmd0aCkpCgoKbmljZV90YWJsZShkZXNjMSwgdGl0bGUgPSAiVGFibGUgMTogRGVzY3JpcHRpdmUgU3RhdGlzdGljcyBQZXRhbCBMZW5ndGggcGVyIFNwZWNpZXMiKQoKCgpgYGAKIyMjIFNhdmluZyBhcyBXb3JkIGRvYwoKWW91IGNhbiBzYXZlIHlvdSB0YWJsZSBhcyBhIFdvcmQgZG9jOgoKYGBge3IsIGV2YWw9RkFMU0V9CmZsZXh0YWJsZTo6c2F2ZV9hc19kb2N4KGRlc2MxLCBwYXRoID0gIlBBVEgvTkFNRV9PRl9GSUxFLmRvY3giKQoKYGBgCgojIyBNb3JlIEV4YW1wbGVzCgoKRm9yIG1vcmUgaW5mbyBhbmQgdHV0b3JpYWwsIHNlZTogaHR0cHM6Ly9yZW1wc3ljLnJlbWktdGhlcmlhdWx0LmNvbS9hcnRpY2xlcy90YWJsZSAKCgojIGBhcGFUYWJsZXNgCgoKCiMjIyBJbnN0YWxsICYgbG9hZCB0aGUgcGFja2FnZQoKYGBge3IsIGV2YWw9RkFMU0V9Cmluc3RhbGwucGFja2FnZXMoImFwYVRhYmxlcyIpCmxpYnJhcnkoYXBhVGFibGVzKQpgYGAKCiMjIENyZWF0aW5nIGEgdGFibGUgdXNpbmcgYGFwYS5jb3IudGFibGUoKWAgYW5kIGBhcGEucmVnLnRhYmxlKClgIGZ1bmN0aW9ucyBmcm9tIHRoZSBgYXBhVGFibGVzYCBwYWNrYWdlIAoKCmBgYHtyLCByZXN1bHRzPSdoaWRlJ30KCiMgdXNpbmcgdGhlIGlyaXMgZGF0YXNldCBhZ2FpbjoKCmFwYS5jb3IudGFibGUoaXJpcykKCgojIG9yLCB3ZSBjb3VsZCBmaXQgYSByZWdyZXNzaW9uIG1vZGVsIG9yIG1vcmUKCnJlZy5tb2QxIDwtIGxtKFBldGFsLkxlbmd0aH5TcGVjaWVzLCBkYXRhID0gaXJpcykKCmFwYS5yZWcudGFibGUocmVnLm1vZDEpCgoKIyBhbmQgbW9kZWwgY29tcGFyaXNvbnMuLi4KCnJlZy5tb2QyIDwtIGxtKFBldGFsLkxlbmd0aH5TcGVjaWVzK1BldGFsLldpZHRoLCBkYXRhPSBpcmlzKQoKYXBhLnJlZy50YWJsZShyZWcubW9kMSwgcmVnLm1vZDIpCgpgYGAKIVtdKFRSeS5wbmcpCgohW10oVFJ5Mi5wbmcpCgohW10oVFJZMy5wbmcpCgoKCiMjIyBTYXZpbmcgYXMgV29yZCBkb2MKCllvdSBjYW4gc2F2ZSB5b3UgdGFibGUgYXMgYSBXb3JkIGRvYzoKCmBgYHtyLCBldmFsPUZBTFNFfQphcGEuY29yLnRhYmxlKGlyaXMsZmlsZW5hbWU9IlBBVEgvVEFCTEUgRVhBTVBMRSAxLmRvYyIpCmFwYS5yZWcudGFibGUocmVnLm1vZDEsIGZpbGVuYW1lPSJQQVRIL1RBQkxFIEVYQU1QTEUgMi5kb2MiKQoKYGBgCgojIyBNb3JlIEV4YW1wbGVzCgoKRm9yIG1vcmUgZXhhcGxlcywgc2VlOiBodHRwczovL21yYW4ubWljcm9zb2Z0LmNvbS9zbmFwc2hvdC8yMDE3LTA2LTEwL3dlYi9wYWNrYWdlcy9hcGFUYWJsZXMvdmlnbmV0dGVzL2FwYVRhYmxlcy5odG1sCg==