为什么 R 函数 print.xtableFtable 会忽略我的选项？答案

【问题标题】：Why does R function print.xtableFtable ignore my options?为什么 R 函数 print.xtableFtable 会忽略我的选项？
【发布时间】：2016-10-22 16:24:03
【问题描述】：

我有以下代码，而 print.xtableFtable 忽略了乳胶的其他选项。

##### Contingency tables - 34Y
library(xtable)
B <- ftable(prereg34Y_sub$employmentStatus34Y, prereg34Y_sub$ethnicity34Y, dnn=c("Unemployed", "NonBritish"))
sink("CTFemaleNonBrit34Y.tex", type="output")
print.xtableFtable(xtableFtable(B, method = "compact"), table.placement = "h!")
sink()

输出是：

% latex table generated in R 3.3.1 by xtable 1.8-2 package
% Sat Oct 22 18:08:35 2016
\begin{table}[ht]
\centering
\begin{tabular}{l |rr}
\hline
Unemployed $\vert$ NonBritish & \multicolumn{1}{l}{    0} & \multicolumn{1}{l}{    1} \\ 
\hline
0                              & 2065 &   68 \\ 
1                              &   31 &    2 \\ 
\hline
\end{tabular}
\end{table}

表格的位置是 ht 而不是 h!。有谁知道为什么？

【问题讨论】：

标签： r latex output

【解决方案1】：

table.placement 参数似乎不会从print.xtableFtable 传递到print.xtable，但您可以在运行print(xtableFtable(B)) 之前设置可选的全局options(xtable.table.placement = "h!")

例子

library(xtable)

# table.placement doesnt seem to work
B <- ftable(mtcars$am, mtcars$cyl, dnn=c("Unemployed", "NonBritish"))
print(xtableFtable(B), table.placement = "h!")     
# % latex table generated in R 3.3.1 by xtable 1.8-2 package
# % Sat Oct 22 18:00:52 2016
# \begin{table}[ht]
# ---
# ---

# But works for other data types
B2 <- table(mtcars$am, mtcars$cyl, dnn=c("Unemployed", "NonBritish"))
print(xtable(B2), table.placement = "h!")
# % latex table generated in R 3.3.1 by xtable 1.8-2 package
# % Sat Oct 22 18:00:52 2016
# \begin{table}[h!]
# ---
# ---

所以全局设置选项

options(xtable.table.placement = "h!")
print(xtableFtable(B))
# % latex table generated in R 3.3.1 by xtable 1.8-2 package
# % Sat Oct 22 18:00:52 2016
# \begin{table}[h!]
# ---
# ---

【讨论】：

现在可以使用了。我今天学到了一些新东西：全局设置选项。