如何在Markdown表格中缩小Highcharter图表尺寸？

我明白你想在flexdashboard的表格里嵌入类似Highcharts官方示例的迷你线图（Sparkline），之前尝试knitr::kable和DT::datatable都没成功，还遇到了图表尺寸无法调整的问题。这里给你一套可行的解决方案，用DT::datatable来实现，它能完美支持HTML widget的嵌入，还能精确控制图表和表格的样式。

核心问题分析 #

直接在原生Markdown表格里渲染highcharter对象时，会受限于表格单元格的默认样式，而且你之前设置hc_size(1,1)的方式不对——这个参数的单位是像素，极端小的数值会导致图表无法正常渲染，得设置合理的迷你尺寸（比如宽120px、高30px），再配合sparkline主题隐藏多余的坐标轴、标题等元素。

完整解决方案代码 #

---
title: "Sparklines in Table"
author: "Author"
date: "Date"
output: 
  flexdashboard::flex_dashboard:
    self_contained: no
    orientation: row
    vertical_layout: scroll
---

```{r setup, include=FALSE}
library(flexdashboard)
library(highcharter)
library(tidyverse)
library(DT)
library(htmltools)

Row {data-width=600} #

Sparkline Table #

# 构造带迷你图的示例数据集
df <- tibble(
  Category = LETTERS[1:5],
  Metric1 = sample(1:100, 5),
  Metric2 = sample(1:100, 5),
  # 为每行生成独立的迷你线图
  Trend = map(1:5, ~{
    # 生成随机趋势数据
    trend_data <- data.frame(x = 1:10, y = rnorm(10))
    # 创建迷你线图并调整样式
    hchart(trend_data, type = "line", hcaes(x = x, y = y)) %>%
      # 应用sparkline主题，自动隐藏冗余元素
      hc_add_theme(hc_theme_sparkline()) %>%
      # 设置迷你图尺寸，适配表格单元格
      hc_size(width = 120, height = 30) %>%
      # 去掉图表边框和内边距，贴合单元格
      hc_chart(borderWidth = 0, spacing = c(0, 0, 0, 0)) %>%
      # 转换为HTML标签格式，供DT渲染
      as.tags() %>%
      as.character()
  })
)

# 用DT渲染表格，启用HTML内容支持并调整布局
datatable(df, 
          escape = FALSE, # 禁止转义HTML内容
          options = list(
            columnDefs = list(
              list(width = "100px", targets = c(0,1,2)), # 设置常规列宽
              list(width = "150px", targets = 3) # 给迷你图列留足够空间
            ),
            dom = 't' # 只显示表格主体，去掉搜索栏、分页等冗余元素
          ))

### 关键细节说明
1. **批量生成迷你图**：用`purrr::map()`为每行数据单独创建线图，保证每个单元格的图表独立。
2. **样式适配**：`hc_theme_sparkline()`会自动隐藏坐标轴、标题、图例，让图表更紧凑；`hc_chart()`去掉边框和内边距，避免图表和单元格之间出现空隙。
3. **DT渲染技巧**：设置`escape = FALSE`才能让DT正确识别并渲染highcharter生成的HTML代码，`columnDefs`可以精确控制每列的宽度，保证布局整齐。

如果你非要用原生Markdown表格，也可以用`htmltools::div()`包裹图表并手动设置样式，示例如下：
```r
# 单个迷你图示例
mini_chart <- data.frame(x=1:10, y=rnorm(10)) %>%
  hchart("line", hcaes(x,y)) %>%
  hc_add_theme(hc_theme_sparkline()) %>%
  hc_size(width=120, height=30) %>%
  as.tags()

然后在Markdown表格中引用：

| Category | Metric | Trend |
|----------|--------|-------|
| A        | 65     | `r mini_chart` |
| B        | 82     | `r mini_chart` |

不过这种方式的样式控制远不如DT灵活，更推荐用DT方案适配flexdashboard的布局。

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