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

Question

我有以下代码和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代替ħ！有没有人有一个想法，为什么？

Answer 1

它似乎并不该table.placement论证会从print.xtableFtable到print.xtable传承下去，但你可以在全局options(xtable.table.placement = "h!")设置可选运行print(xtableFtable(B))

例

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!] 
# --- 
# ---