r - 在乳胶xtable中换行

Question

我正在使用 knitr 和 xtable 生成一个表格，我想包装一些文本。代码如下。我想包装第三列（曝光组）。列宽看起来不错，但文本没有换行。代码有什么问题？

TableSumStatsAllPeriods <- xtable(reduced.res.Q4000.THC,
                      caption="Summary statistics ",
                      label="TableSumStatsAllPeriods",
                      align = "llp{4cm}cccccc")

@

\newpage \begin{风景}

<<printTableSumStatsAllPeriods, echo = FALSE, eval=TRUE,results = "asis" >>=
print(TableSumStatsAllPeriods,tabular.environment='longtable',floating=FALSE,
  caption.placement="top",
  size="small",
  h.line.after=c(-1,nrow(TableSumStatsAllPeriods)),
  add.to.row=list(pos=list(0),command="\\hline \\endhead"))

@ \end{风景}