[R包分享] gtguides优雅为图形添加表格注释

欢迎关注R语言数据分析指南

❝

本节来分享介绍一款新R包gtguides，该包主要用表格的形式来对图形做注释，非常的简洁好用，更多详细内容请参考R包官方文档。

官方文档

❝

https://github.com/teunbrand/gtguides

安装R包

# install.packages("devtools")
devtools::install_github("teunbrand/gtguides")

library(tidyverse)
library(gtguides)
library(gt)

绘制表格

df <- msleep[c(9, 28, 11, 5, 34, 54, 53), ]

animals <- df |>
  subset(select = c(name, order, awake, bodywt, brainwt)) |>
  gt(groupname_col = "order") |>
  fmt_number(c(awake, bodywt, brainwt)) |>
  tab_spanner("weight", c(bodywt, brainwt)) |>
  cols_label(bodywt = "body", brainwt = "brain") |>
  tab_style(cell_text("red"), cells_body(brainwt, 7)) |>
  tab_header("Animals")

添加表格

# Show table
as_raw_html(animals, TRUE)

ggplot(df, aes(sleep_total, sleep_rem, colour = name)) +
  geom_point(na.rm = TRUE) +
  scale_colour_discrete(
    limits = df$name,
    guide  = guide_gtlegend(animals)
  )

❝

本节介绍到此结束，有需要学习R数据可视化的朋友欢迎到淘宝店铺：R语言数据分析指南，购买小编的R语言可视化文档(2024版)，购买将赠送2023年的绘图文档内容。目前此文档(2023+2024)已经更新上传200案例文档，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。

2024更新的绘图内容将同时包含数据+代码+注释文档+文档清单，2023无目录仅有数据文件夹，小编只分享案例文档，不额外回答问题，无答疑服务，零基础不推荐买。

案例特点

所选案例图均属于个性化分析图表完全适用于论文发表，内容异常丰富两年累计发布案例图200+，2024年6月起提供html版注释文档更加直观易学。文档累计上千人次购买拥有良好的社群交流体验。

淘宝店铺

关注下方公众号下回更新不迷路