Я борюсь с двумя проблемами форматирования в Sweave. Один — это выделение текста в таблице курсивом, второй — как добавить строку суммирования столбца в конец таблицы. Подробнее см. следующий MWE.
\documentclass[12pt,letterpaper,oneside]{amsart}
\usepackage{graphicx}
\usepackage{longtable}
\SweaveOpts{keep.source=TRUE} % Keeps comments in the R code.
%
\begin{document}
% \maketitle
\section*{The Challenge}
Italicize the taxa in the following table and add a row at the bottom which gives the sum of the sites column.
<<echo=TRUE>>=
# Creating Data
taxa <- c("Arabidopsis thaliana",
"Populus trichocarpa",
"Brachypodium distachyon")
sites <- c(270,320,240)
data.df <- data.frame(taxa,sites)
@
~
<<label=tab1,echo=TRUE,results=tex>>=
# Creating Table
library(xtable)
data.table <- xtable(data.df,
caption="Sweave Output")
print(data.table,
caption.placement="top")
@
The results should look something like table 2, which was hand coded in \LaTeX.
\begin{table}[ht]
\caption{Manually coded \LaTeX}
\begin{tabular}{l l r}
\hline
& taxa & sites \\
\hline
1 & \emph{Arabidopsis thaliana} & 270 \\
2 & \emph{Populus trichocarpa} & 320 \\
3 & \emph{Brachypodium distachyon} & 240 \\
\hline
& Total Sites & 830 \\
\hline
\end{tabular}
\end{table}
\end{document}