如何在gtExtras 0.4.3的gt_plt_sparkline()中设置迷你图线条与极值颜色

版本参数差异 #

• gtExtras 0.3.8中，可通过line_color = 'grey', range_colors = c('blue', 'red')直接设置迷你图的线条颜色与极值颜色。
• 升级至0.4.3版本后，原gt_sparkline()函数被替换为gt_plt_sparkline()，基础使用代码如下：

library(gt)
library(gtExtras)
mtcars %>%
  dplyr::group_by(cyl) %>%
  # 需将每行对应的数据处理为列表格式
  dplyr::summarize(mpg_data = list(mpg), .groups = "drop") %>%
  gt() %>%
  gt_plt_sparkline(mpg_data,
                   type = "shaded",
                   # palette =c('blue', 'red'),
                   same_limit = FALSE,
                   label = TRUE)

输出效果 #

gt_plt_sparkline()参数列表 #

gt_plt_sparkline(
   gt_object,
   column,
   type = "default",
   fig_dim = c(5, 30),
   palette = c("black", "black", "purple", "green", "lightgrey"),
   same_limit = TRUE,
   label = TRUE
)

颜色自定义实现方式 #

当前gt_plt_sparkline()确实移除了line_color和range_colors参数，但可通过palette参数完成自定义需求：

• palette是长度为5的颜色向量，对应元素顺序为：线条颜色、填充颜色、最小值点颜色、最大值点颜色、极值标签文字颜色
• 示例：若要设置线条为灰色，最小值点为蓝色、最大值点为红色，可修改参数如下：

gt_plt_sparkline(mpg_data,
                 type = "shaded",
                 palette = c('grey', 'lightblue', 'blue', 'red', 'black'),
                 same_limit = FALSE,
                 label = TRUE)

内容的提问来源于stack exchange，提问作者ah bon