如何使用gt_img_rows让gt表格中图片紧凑显示（减少空白）

针对你遇到的gt表格头像单元格边框与图片间空白过大、设置cols_width导致对齐错位的问题，可以通过调整图片样式+清除单元格内边距的组合方案解决，以下是具体实现：

核心思路 #

1. 消除图片自身的默认边距：通过HTML自定义<img>标签，强制去除图片的margin和padding，并设置display:block避免行内元素的基线空隙
2. 清除单元格内边距：用tab_style将头像列的单元格内边距设为0，让边框紧贴图片
3. 精准匹配列宽与图片尺寸：设置列宽与图片实际尺寸一致，同时让图片自适应列宽避免错位

代码示例 #

假设你的原始代码类似这样：

library(gt)
library(dplyr)
library(purrr)

# 示例数据
player_data <- tibble(
  球员 = c("张三", "李四"),
  头像 = c("headshots/zhangsan.jpg", "headshots/lisi.jpg")
)

# 原始表格（空白过多）
player_data %>%
  gt() %>%
  text_transform(
    locations = cells_body(columns = 头像),
    fn = function(x) map_chr(x, ~img(src = ., height = "60px"))
  ) %>%
  cols_width(头像 ~ px(70)) # 此处易导致错位

修改后的代码：

player_data %>%
  gt() %>%
  # 自定义HTML图片标签，强制清除边距
  text_transform(
    locations = cells_body(columns = 头像),
    fn = function(x) {
      map_chr(x, ~paste0(
        '<img src="', ., '" 
         style="height:60px; width:60px; 
                margin:0; padding:0; 
                display:block; object-fit:cover;" />'
      ))
    }
  ) %>%
  # 清除头像列单元格的内边距
  tab_style(
    style = cell_style(padding = padding(all = 0)),
    locations = cells_body(columns = 头像)
  ) %>%
  # 设置列宽与图片尺寸完全匹配
  cols_width(头像 ~ px(60))

关键参数说明 #

• object-fit:cover：如果图片不是正方形，可保持比例裁剪填充单元格，避免拉伸变形
• display:block：解决行内图片底部默认的微小空隙问题
• padding(all=0)：彻底移除单元格边框与图片之间的内边距
• 列宽px(60)与图片尺寸height:60px;width:60px完全匹配，避免多余空白或错位

如果图片本身带有透明空白区域，建议先通过图片编辑工具裁剪掉多余部分，效果会更理想。

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