r - テキストを latextable にラップする

Question

Knitr と xtable を使用してテーブルを生成していますが、テキストをラップしたいと考えています。コードは以下です。3 番目の列 (露出グループ) を折り返したいと思います。列幅は問題ないように見えますが、テキストは折り返されていません。コードの何が問題になっていますか?

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{風景}