从包含 gt 包中列表列的数据框中渲染表格

Question

我有这样的数据框：

print_table <- structure(list(run_no = c("031_01", "031_02", "031_04", "031_05", 
"031_75", "031_01", "031_02", "031_04", "031_05", "031_75", "031_01", 
"031_03", "031_04", "031_05", "031_75"), compound = structure(c(1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), levels = c("KET", 
"HNK", "NKT"), class = "factor"), LQC = list(c(31.36, 30.8), 
    c(26.48, 26.03), c(28.08, 28), c(29.98, 29.65), 29.98, c(15.06, 
    15.26), c(13.45, 14.62), c(14.38, 15.35), c(15.61, 15.01), 
    15.61, c(15.23, 15.85), c(12.71, 14.21), c(13.73, 14.64), 
    c(14.6, 14.84), 14.6), AQC = list(c(85.51, 82.22), c(75.77, 
75.29), c(81.8, 80), c(85.93, 83.02), NULL, c(83.74, 78.02), 
    c(74.74, 72.75), c(79.26, 77.81), c(82.61, 79.09), NULL, 
    c(89.32, 82.28), c(79.28, 78.23), c(84.49, 81.21), c(85.5, 
    85.14), NULL), MQC = list(c(610.08, 617.3), c(577.4, 562.11
), 592.64, c(617.81, 634.02), NULL, c(586.05, 592.87), c(552.92, 
565.82), 588.54, c(599.48, 593.91), NULL, c(603.57, 606.09), 
    c(602.11, 598.24), 602.48, c(632.99, 625.64), NULL), HQC = list(
    c(1663.12, 2724.5), c(1515.56, 1491.92), 1577.25, c(1648.55, 
    1719.57), NULL, c(1632.04, 2877.82), c(1470.51, 1475.84), 
    1634.41, c(1710.32, 1798.04), NULL, c(1588.98, 2508.34), 
    c(1500, 1498.12), 1620.83, c(1663.5, 1710.09), NULL), DQC = list(
    NULL, c(7890.7, 7564.08, 7434.21), NULL, NULL, NULL, NULL, 
    c(7829.17, 7563.91, 7395.04), NULL, NULL, NULL, NULL, c(7652.33, 
    7546.14, 7739.59), NULL, NULL, NULL)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -15L))

我尝试使用 gt() 将其渲染为 pdf 和 word 格式。 Pdf 是我们的文件； word 是将其复制粘贴到另一个文档（这里别无选择 - 它不能是图形文件）

作为标准输出 gt() 生成：

我真正需要的是：

对于 Word，很容易手动修复（Ctrl +H，到段落）。但对于很多小桌子来说这样做很乏味。

有什么方法可以强制 gt 进行换行吗？

我可以在不嵌套的情况下旋转这张桌子。 我为每个值都有唯一的 id (file_name)，但使用它会创建许多空行。 不同所需单元格的条目数量为 1 到 5（或者将来可能更多），并且大多数值来自不同的文件。 在一个文件名下，通常有三种化合物的运行级别（级别为 xQC）对的值。有些文件仅包含两种或一种化合物的数据。

我尝试按 run_no、level 和compound 进行分组，然后对组中的每个值进行编号。 这种方式比较好。空行较少，但对于每个 run_no-compound 对，我仍然获得了 1 到 5 行，看起来很混乱。在Word中手动连接单元格比将逗号更改为行尾更痛苦。

我需要在word和pdf中使用相同的表格结构（出于监管原因）。 我可以手动更改 Word 中的表格，但不能手动更改 pdf 中的表格。 我可以将 word 保存为 pdf，但有一个问题，pdf 中的内部报告具有由 SOP 定义的样式，我无法在四开生成的 .doc 中复制它（也无法更改它）。 从 .doc 到 .pdf 需要在转换之前手动设置每个文档的样式。

所以我有点卡在这里了。 有什么想法吗？

这可能会有所帮助。 旋转之前的示例数据帧（仍然包含文件名 - 无法共享真实数据，这只是一个例子）

rep <- structure(list(data_file = c("031_01_030", "031_01_030", "031_01_030", 
"031_01_042", "031_01_042", "031_01_042", "031_01_054", "031_01_054", 
"031_01_054", "031_01_066", "031_01_066", "031_01_066", "031_01_078", 
"031_01_078", "031_01_078", "031_01_090", "031_01_090", "031_01_090", 
"031_01_102", "031_01_102", "031_01_102", "031_01_109", "031_01_109", 
"031_01_109", "031_02_026", "031_02_026", "031_02_046", "031_02_046", 
"031_02_065", "031_02_065", "031_02_084", "031_02_084", "031_02_102", 
"031_02_102", "031_02_104", "031_02_104", "031_02_124", "031_02_124", 
"031_02_138", "031_02_138", "031_02_144", "031_02_144", "031_02_162", 
"031_02_162", "031_02_163", "031_02_163", "031_03_026", "031_03_046", 
"031_03_065", "031_03_084", "031_03_102", "031_03_104", "031_03_124", 
"031_03_138", "031_03_144", "031_03_162", "031_03_163", "031_04_030", 
"031_04_030", "031_04_030", "031_04_052", "031_04_052", "031_04_052", 
"031_04_072", "031_04_072", "031_04_072", "031_04_093", "031_04_093", 
"031_04_093", "031_04_115", "031_04_115", "031_04_115", "031_04_137", 
"031_04_137", "031_04_137", "031_05_024", "031_05_024", "031_05_024", 
"031_05_033", "031_05_033", "031_05_033", "031_05_039", "031_05_039", 
"031_05_039", "031_05_046", "031_05_046", "031_05_046", "031_05_052", 
"031_05_052", "031_05_052", "031_05_059", "031_05_059", "031_05_059", 
"031_05_066", "031_05_066", "031_05_066", "031_05_073", "031_05_073", 
"031_05_073", "031_75_024", "031_75_024", "031_75_024"), run_no = c("031_01", 
"031_01", "031_01", "031_01", "031_01", "031_01", "031_01", "031_01", 
"031_01", "031_01", "031_01", "031_01", "031_01", "031_01", "031_01", 
"031_01", "031_01", "031_01", "031_01", "031_01", "031_01", "031_01", 
"031_01", "031_01", "031_02", "031_02", "031_02", "031_02", "031_02", 
"031_02", "031_02", "031_02", "031_02", "031_02", "031_02", "031_02", 
"031_02", "031_02", "031_02", "031_02", "031_02", "031_02", "031_02", 
"031_02", "031_02", "031_02", "031_03", "031_03", "031_03", "031_03", 
"031_03", "031_03", "031_03", "031_03", "031_03", "031_03", "031_03", 
"031_04", "031_04", "031_04", "031_04", "031_04", "031_04", "031_04", 
"031_04", "031_04", "031_04", "031_04", "031_04", "031_04", "031_04", 
"031_04", "031_04", "031_04", "031_04", "031_05", "031_05", "031_05", 
"031_05", "031_05", "031_05", "031_05", "031_05", "031_05", "031_05", 
"031_05", "031_05", "031_05", "031_05", "031_05", "031_05", "031_05", 
"031_05", "031_05", "031_05", "031_05", "031_05", "031_05", "031_05", 
"031_75", "031_75", "031_75"), level = structure(c(1L, 1L, 1L, 
2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 
3L, 3L, 4L, 4L, 4L, 1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L, 1L, 
1L, 2L, 2L, 5L, 5L, 3L, 3L, 4L, 4L, 5L, 5L, 1L, 2L, 3L, 4L, 5L, 
1L, 2L, 5L, 3L, 4L, 5L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 
4L, 4L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 
3L, 4L, 4L, 4L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L, 
1L, 1L, 1L), levels = c("LQC", "AQC", "MQC", "HQC", "DQC"), class = "factor"), 
    compound = structure(c(2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 
    2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 
    2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 
    2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 
    2L, 1L, 3L), levels = c("KET", "HNK", "NKT"), class = "factor"), 
    final = c(15.06, 31.36, 15.23, 83.74, 85.51, 89.32, 586.05, 
    610.08, 603.57, 1632.04, 1663.12, 1588.98, 15.26, 30.8, 15.85, 
    78.02, 82.22, 82.28, 592.87, 617.3, 606.09, 2877.82, 2724.5, 
    2508.34, 13.45, 26.48, 74.74, 75.77, 552.92, 577.4, 1470.51, 
    1515.56, 7829.17, 7890.7, 14.62, 26.03, 72.75, 75.29, 7563.91, 
    7564.08, 565.82, 562.11, 1475.84, 1491.92, 7395.04, 7434.21, 
    12.71, 79.28, 602.11, 1500, 7652.33, 14.21, 78.23, 7546.14, 
    598.24, 1498.12, 7739.59, 14.38, 28.08, 13.73, 79.26, 81.8, 
    84.49, 588.54, 592.64, 602.48, 1634.41, 1577.25, 1620.83, 
    15.35, 28, 14.64, 77.81, 80, 81.21, 15.61, 29.98, 14.6, 82.61, 
    85.93, 85.5, 599.48, 617.81, 632.99, 1710.32, 1648.55, 1663.5, 
    15.01, 29.65, 14.84, 79.09, 83.02, 85.14, 593.91, 634.02, 
    625.64, 1798.04, 1719.57, 1710.09, 15.61, 29.98, 14.6)), row.names = c(NA, 
-102L), class = c("tbl_df", "tbl", "data.frame"), na.action = structure(c(`35` = 35L, 
`39` = 39L, `43` = 43L, `47` = 47L, `51` = 51L, `55` = 55L, `59` = 59L, 
`63` = 63L, `67` = 67L, `71` = 71L, `75` = 75L, `77` = 77L, `78` = 78L, 
`80` = 80L, `81` = 81L, `82` = 82L, `84` = 84L, `85` = 85L, `86` = 86L, 
`88` = 88L, `89` = 89L, `90` = 90L, `92` = 92L, `93` = 93L, `94` = 94L, 
`96` = 96L, `97` = 97L, `98` = 98L, `100` = 100L, `101` = 101L, 
`102` = 102L, `104` = 104L, `105` = 105L, `106` = 106L, `108` = 108L, 
`109` = 109L, `110` = 110L, `112` = 112L, `113` = 113L, `114` = 114L, 
`116` = 116L, `117` = 117L, `118` = 118L, `120` = 120L), class = "omit"))

Answer 1

您可以将这些“?QC”列的列宽设置为非常小的数字，以防止条目在一行上扩展。

gt(print_table) |>
  cols_width(ends_with("QC") ~ px(1))