[英]xtable() to preserve latex function in R
我正在用R生成一系列表格,一旦我在乳膠中報告它們,這些表格將包含分數。 為此,我使用了paste()函數在r中應用小數命令,但是當我對其進行xtable操作時,它在一開始會丟失“ \\ f”。 下面是代碼。 您知道如何保留全部功能嗎? 謝謝
x <- as.vector(rbind(1, paste("\frac{",1, "}{", 2, "}", sep ="" )))
y <- as.vector(rbind(2, paste("\frac{", 2, "}{", 3, "}", sep ="" )))
table<- cbind(x,y)
xtable(table)
需要兩件事; 首先,將反斜杠加倍,其次,通過傳遞identity
(僅返回輸入)來關閉常規的文本清理功能。
> x <- as.vector(rbind(1, paste("\\frac{",1, "}{", 2, "}", sep ="" )))
> y <- as.vector(rbind(2, paste("\\frac{",2, "}{", 3, "}", sep ="" )))
> print(xtable(cbind(x,y)), sanitize.text.function=identity)
% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Wed Jul 3 10:17:21 2013
\begin{table}[ht]
\centering
\begin{tabular}{rll}
\hline
& x & y \\
\hline
1 & 1 & 2 \\
2 & \frac{1}{2} & \frac{2}{3} \\
\hline
\end{tabular}
\end{table}
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.