欢迎关注R语言数据分析指南
❝本节来介绍一款新的R包gtUtils，该包主要扩展gt包的功能以绘制漂亮的表格。更多详细内容请参考作者官方文档。
官方文档
❝https://gtutils.aweatherman.com/articles/general_uses.html
安装并加载R包
library(tidyverse)
library(gt)
remotes::install_github("andreweatherman/gtUtils")
library(gtUtils)
給表格着色
默认情况下会按连续比例对单元格进行着色
mtcars %>% head() %>% gt() %>%
gt_color_pills(mpg)
mtcars %>% head() %>% gt() %>%
gt_color_pills(mpg, digits = 1)
添加后缀文本
mtcars %>% head() %>%
gt() %>%
gt_color_pills(mpg, suffix = " mpg", digits = 1)
# 调整尺寸
mtcars %>% head() %>% gt() %>%
gt_color_pills(mpg, digits = 1, pill_height = 40)
# 自定义颜色
mtcars %>% head() %>% gt() %>%
gt_color_pills(mpg, digits = 1, palette = c("#ffffff", "#000000"))
绘制色块
set.seed(123)
sample_data <- tibble::tibble(
id = 1:10,
replicate(7, sample(c(0, 1, NA), 10, replace = TRUE), simplify = FALSE) %>%
setNames(paste0("indicator_", 1:7)) %>%
as_tibble())
sample_data %>% gt() %>%
gt_indicator_boxes(key_columns = "id")
sample_data %>%
gt() %>%
gt_theme_sofa() %>%
gt_indicator_boxes(key_columns = "id", border_color = "black", border_width = 0.5)
表格保存
mtcars %>% head() %>% gt() %>%
gt_save_crop(file = "cropped_table.png", whitespace = 40, bg = "white")
关注下方公众号下回更新不迷路
购买介绍
❝本节介绍到此结束，有需要学习R数据可视化的朋友欢迎到淘宝店铺：R语言数据分析指南，购买小编的R语言可视化文档(2024版)，购买将赠送2023年的绘图文档内容。目前此文档(2023+2024)已经更新上传200案例文档，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。
2024更新的绘图内容将同时包含数据+代码+注释文档+文档清单，2023无目录仅有数据文件夹，小编只分享案例文档，不额外回答问题，无答疑服务，零基础不推荐买。
案例特点
所选案例图均属于个性化分析图表完全适用于论文发表，内容异常丰富两年累计发布案例图200+，2024年6月起提供html版注释文档更加直观易学。文档累计上千人次购买拥有良好的社群交流体验。R代码结构清晰易懂，为防止中文乱码提供单独的注释文档
