如何让xtableFtable生成的LaTeX表格标题置于顶部？

你遇到的问题其实是因为print.xtableFtable函数并没有实现caption.placement参数的支持——这个参数是标准print.xtable函数的选项，但xtableFtable的打印方法并没有继承或实现这个功能，所以无论你怎么设置，它都会忽略这个参数，默认把标题放在表格底部。

下面给你几个可行的解决方案：

方案一：手动调整生成的LaTeX代码 #

先让print.xtableFtable生成LaTeX代码但不输出，然后手动把标题部分移到表格的上方：

data(mtcars)
mtcars$cyl <- factor(mtcars$cyl, levels = c("4", "6", "8"), labels = c("four", "six", "eight"))
tbl <- ftable(mtcars$cyl, mtcars$vs, mtcars$am, col.vars = c(2, 3), dnn = c("Cylinders", "V/S", "Transmission"))
xftbl <- xtableFtable(tbl, method = "non.compact", label = "my_table", caption = "My Table")

# 获取LaTeX代码但不打印
latex_output <- print(xftbl, booktabs = TRUE, print.results = FALSE)

# 拆分并重组代码，把标题移到顶部
library(stringr)
# 提取各个部分
caption <- str_extract(latex_output, "\\\\caption\\{.*?\\}")
label <- str_extract(latex_output, "\\\\label\\{.*?\\}")
tabular <- str_extract(latex_output, "\\\\begin\\{tabular\\}.*?\\\\end\\{tabular\\}", dotall = TRUE)

# 重新组合成标题在顶部的LaTeX代码
final_latex <- paste(caption, label, tabular, sep = "\n\n")

# 输出结果（或者写入文件）
cat(final_latex)

方案二：将ftable转为数据框后用标准xtable处理 #

把ftable转换成普通数据框，再用xtable生成表格，这样就能正常使用caption.placement参数了：

data(mtcars)
mtcars$cyl <- factor(mtcars$cyl, levels = c("4", "6", "8"), labels = c("four", "six", "eight"))
tbl <- ftable(mtcars$cyl, mtcars$vs, mtcars$am, col.vars = c(2, 3), dnn = c("Cylinders", "V/S", "Transmission"))

# 将ftable转为数据框
tbl_df <- as.data.frame(tbl)

# 用标准xtable生成表格
x_tbl <- xtable(tbl_df, label = "my_table", caption = "My Table")

# 打印时设置标题在顶部
print(x_tbl, booktabs = TRUE, caption.placement = "top")

注意：这种方法生成的表格格式和ftable略有不同，你可能需要调整列对齐方式或者表头样式，但能完美实现标题置顶的需求。

方案三：改用kableExtra包（更灵活的替代方案） #

如果允许更换工具，kableExtra包对复杂表格的支持更好，也能轻松设置标题位置：

library(kableExtra)
data(mtcars)
mtcars$cyl <- factor(mtcars$cyl, levels = c("4", "6", "8"), labels = c("four", "six", "eight"))
tbl <- ftable(mtcars$cyl, mtcars$vs, mtcars$am, col.vars = c(2, 3), dnn = c("Cylinders", "V/S", "Transmission"))

# 转为数据框后用kable生成LaTeX表格
as.data.frame(tbl) %>%
  kable(
    format = "latex",
    caption = "My Table",
    label = "my_table",
    booktabs = TRUE,
    col.names = c("Cylinders", "V/S", "Transmission", "Freq")
  ) %>%
  kable_styling() %>%
  row_spec(0, bold = TRUE) # 加粗表头

这个方法不仅能让标题默认在顶部，还能方便地调整表格的各种样式。

内容的提问来源于stack exchange，提问作者R. Buchanan