Beauty Table In R
Liam
2023-04-28
Create Beautiful Tables in R
1. gt
The parts of a table
# install.packages("gt")
library(gt)
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.0 ✔ purrr 0.3.5
## ✔ tibble 3.2.1 ✔ dplyr 1.1.2
## ✔ tidyr 1.2.1 ✔ stringr 1.5.0
## ✔ readr 2.1.3 ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()# 最简单的使用方式就是调用gt函数
head(iris,5) %>% gt()| Sepal.Length | Sepal.Width | Petal.Length | Petal.Width | Species |
|---|---|---|---|---|
| 5.1 | 3.5 | 1.4 | 0.2 | setosa |
| 4.9 | 3.0 | 1.4 | 0.2 | setosa |
| 4.7 | 3.2 | 1.3 | 0.2 | setosa |
| 4.6 | 3.1 | 1.5 | 0.2 | setosa |
| 5.0 | 3.6 | 1.4 | 0.2 | setosa |
更加详细的设置可以使用tab_*类函数和tab_style函数.
head(iris,5) %>%gt() %>%
tab_header(title = "iris dataset") %>%
tab_style(
style = list(cell_fill(color = "#b2f7ef"),
cell_text(weight = "bold")),
locations = cells_body(columns = Sepal.Length))%>%
tab_style(
style = list(cell_fill(color = "#ffefb5"),
cell_text(weight = "bold")),
locations = cells_body(columns = Sepal.Width)) %>%
tab_caption(caption = "this is iris caption")| iris dataset | ||||
| Sepal.Length | Sepal.Width | Petal.Length | Petal.Width | Species |
|---|---|---|---|---|
| 5.1 | 3.5 | 1.4 | 0.2 | setosa |
| 4.9 | 3.0 | 1.4 | 0.2 | setosa |
| 4.7 | 3.2 | 1.3 | 0.2 | setosa |
| 4.6 | 3.1 | 1.5 | 0.2 | setosa |
| 5.0 | 3.6 | 1.4 | 0.2 | setosa |
2. formattable
# install.packages("formattable")
library(formattable)##
## Attaching package: 'formattable'## The following object is masked from 'package:gt':
##
## currencydt <- mtcars %>% head(5)
formattable(dt, list(
hp = color_bar("#e9c46a"),
cyl = color_bar("#80ed99"),
wt = color_bar("#48cae4"),
disp = color_bar("#f28482")))| mpg | cyl | disp | hp | drat | wt | qsec | vs | am | gear | carb | |
|---|---|---|---|---|---|---|---|---|---|---|---|
| Mazda RX4 | 21.0 | 6 | 160 | 110 | 3.90 | 2.620 | 16.46 | 0 | 1 | 4 | 4 |
| Mazda RX4 Wag | 21.0 | 6 | 160 | 110 | 3.90 | 2.875 | 17.02 | 0 | 1 | 4 | 4 |
| Datsun 710 | 22.8 | 4 | 108 | 93 | 3.85 | 2.320 | 18.61 | 1 | 1 | 4 | 1 |
| Hornet 4 Drive | 21.4 | 6 | 258 | 110 | 3.08 | 3.215 | 19.44 | 1 | 0 | 3 | 1 |
| Hornet Sportabout | 18.7 | 8 | 360 | 175 | 3.15 | 3.440 | 17.02 | 0 | 0 | 3 | 2 |
3. kableExtra
# install.packages("kableExtra")
library(kableExtra)
kableExtra::kable(df) %>% kable_styling(latex_options = "striped")另外,可以使用row_spec()和column_spec()函数来进行自定义细节.
df %>% kbl() %>%
kable_paper() %>% column_spec(2, color = "white",
background = spec_color(mtcars$drat[1:2],end = 0.7)) %>%
column_spec(5, color = "white",
background = spec_color(mtcars$drat[1:6], end = 0.7),
popover = paste("am:", mtcars$am[1:6]))4. dt
# install.packages(‘DT’)
library(DT)
datatable(
data = mtcars,
caption = "Table",
filter = "top"
)5. flextable
# install.packages("flextable")
library(flextable)
set_flextable_defaults(
font.family = "Arial", font.size = 10,
border.color = "#e5383b",
padding = 6,
background.color = "#EFEFEF")
flextable(head(df)) %>%
bold(part = "header")6. reactable
# install.packages("reactable")
library(reactable)
library(reactablefmtr)
reactable(data,defaultColDef = colDef(
cell = data_bars(data,text_position = "outside-base")
))更多细节
library(reactablefmtr)
reactable(data,defaultColDef = colDef(cell = data_bars(df, box_shadow = TRUE, round_edges = TRUE,
text_position = "outside-base",
fill_color = c("#e81cff", "#40c9ff"),
background = "#e5e5e5",fill_gradient = TRUE)
))