kableExtra::kbl 脚注中没有缩进，用于乳胶输出

Question

我正在尝试删除使用 kableExtra 创建的表的脚注部分中的缩进。我假设缩进来自注释开始之前的\item 函数（参见乳胶输出）。任何人都可以帮助删除这个缩进。注释中的\item 前缀？

library(dplyr)
library(kableExtra)

data(mtcars)
tab_data <- mtcars[1:5, 1:3]

cat(
  kbl(
    x = tab_data,
    format = "latex",
    booktabs = TRUE,
  ) %>%
    kable_styling(full_width = FALSE) %>%
    footnote(
      general = "Here is a note of the table. It is very long and I would want to remove this ugly indention on the left side of the table notes. ",
      general_title = "",
      threeparttable = TRUE
    )
)

这里是乳胶输出：

\begin{table}
\centering
\begin{threeparttable}
\begin{tabular}[t]{lrrr}
\toprule
  & mpg & cyl & disp\\
\midrule
Mazda RX4 & 21.0 & 6 & 160\\
Mazda RX4 Wag & 21.0 & 6 & 160\\
Datsun 710 & 22.8 & 4 & 108\\
Hornet 4 Drive & 21.4 & 6 & 258\\
Hornet Sportabout & 18.7 & 8 & 360\\
\bottomrule
\end{tabular}
\begin{tablenotes}
\item Here is a note of the table. It is very long and I would want to remove this ugly indention on the left side of the table notes. 
\end{tablenotes}
\end{threeparttable}
\end{table}

以及 PDF 的打印屏幕和缩进：

Answer 1

你可以加footnote_as_chunk = T:

library(dplyr)
library(kableExtra)

data(mtcars)
tab_data <- mtcars[1:5, 1:3]

kbl(
    x = tab_data,
    format = "latex",
    booktabs = TRUE,
  ) %>%
    kable_styling(full_width = FALSE) %>%
    footnote(
      general = "Here is a note of the table. It is very long and I would want to remove this ugly indention on the left side of the table notes. ",
      general_title = "",
      threeparttable = TRUE,
      footnote_as_chunk = T
    )

-输出

Answer 2

如果您不介意更改软件包，可以使用 huxtable。然后，您可以根据需要自定义填充、边框等：

library(huxtable)
tab_data <- cbind(model = rownames(tab_data), tab_data)
huxtable(tab_data) |> 
      set_width(0.5) |> 
      theme_article() |>
      add_footnote("Here is a note of the table. It is very long and I would want to remove this ugly indention on the left side of the table notes. ") |> 
      theme_
      set_left_padding(everywhere, 1, 0.1) # change 0.1 to whatever you prefer
      quick_pdf()

需要注意的一点：这只是在表格底部添加一个单元格。它不使用 TeX 脚注或表格注。