Fancy Tables in R Markdown

Setup

library(tidyverse)

## Warning in system("timedatectl", intern = TRUE): running command 'timedatectl'
## had status 1

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.3     ✓ purrr   0.3.4
## ✓ tibble  3.1.0     ✓ dplyr   1.0.5
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(palmerpenguins)
library(DT)
library(gt)
library(knitr)

Using kable

penguins %>%
  group_by(species) %>%
  summarize(mean(body_mass_g)) %>%
  kable()

species	mean(body_mass_g)
Adelie	NA
Chinstrap	3733.088
Gentoo	NA

The DT package

penguins %>%
  group_by(species) %>%
  summarize(mean(body_mass_g)) %>%
  datatable()

The gt package

penguins %>%
  group_by(species) %>%
  summarize(mean(body_mass_g)) %>%
  gt()

species	mean(body_mass_g)
Adelie	NA
Chinstrap	3733.088
Gentoo	NA