Пробелы вокруг таблицы X

Я пытаюсь вставить небольшую таблицу в текст с помощью knitr. Я не уверен, что это проблема knitr/sweave или с xtable, но я получаю тонну пробелов вокруг стола. Вот пример вывода с таблицей, установленной на 5 см:

Введите описание изображения здесь

Когда я настраиваю ширину таблицы в коде knitr, заголовок рисунка меняется, но таблица и пробелы остаются прежними. Вот выход с таблицей, установленной на 2 см:

Введите описание изображения здесь

Как я могу контролировать пробелы вокруг таблицы X? Вот код, который я использую: 

documentclass{article}
usepackage{wrapfig}
usepackage{float}

begin{document}

TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT    TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT par

<<test,echo=FALSE>>=
library(xtable)
## Make some data
School <- c("School A", "School B", "School C", "School D")
N <- c(59, 101, 69, 124)

df <- data.frame (School,N)

x <- xtable(df)
@

begin{wraptable}[12]{l}[5pt]{5cm}
<<print,results='asis',echo=FALSE>>=
print (x, table.placement = getOption("xtable.table.placement", "H"))
@
caption{Number of Responses}
end{wraptable}

TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT TEXT


end{document}
1 3
knitr sweave xtable

1 ответ:

Вы помещаете плавающий table в wraptable, который похож на большую акулу, поедающую меньшую. Если вы сохраняете только tabular, все работает.

print (x, table.placement = getOption("xtable.table.placement", "H"),
     floating=FALSE)

Думайте о wraptable как о замене table.

4