R xtable周围的空格

我正在尝试使用knitr在正文中插入一个小表。我不确定这是knitr/Swave问题还是xtable的问题，但我发现桌子上有很多空白。以下是表格设置为5cm时的输出示例：

当我在knitr代码中调整表格的宽度时，图形标题会更改，但表格和空白保持不变。以下是表格设置为2 cm时的输出：

如何控制xtable周围的空白？以下是我正在使用的代码：

\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}

\documentclass{article}
\usepackage{wrapfig}
\usepackage{float}
\开始{document}
文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本文本\par
=
图书馆（xtable）
##制作一些数据
学校你把一张浮动的
表格
放在一个
可包装的
里，就像一条大鲨鱼吃一个小的一样。如果您仅将
表格化
，则一切正常

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

可以将
wraptable
看作是
表的替代品