R to Latex with xtable：table必须适合页面

Question

我正在寻找一种方法，使用xtable生成的代码，将一个长表（多行和多列）放入Latex文档的单个A4页面中。

这是我的R代码，结果表离开了屋顶。如何参数化xtable使这个矩阵/表适合一个页面？

提前致谢！

以下是基准代码

库（xtable）

##修复小数位数

specify_decimal＆lt; - function（x，k）格式（round（x，k），nsmall = k）

＃结果矩阵，可以在开头初始化

结果＆lt; - 矩阵（数据= NA，nrow = 2，ncol = 10）

colnames（result）＆lt; -c（“Sa”，“Mi”，“Me”，“JU”，“Mo”，“Jp”，“So”，“Uo”，“Np”，“Pa” “）

＃初始化结果

a＆lt; - specify_decimal（sin（pi / 4），2）
b＆lt; - specify_decimal（cos（pi / 3），2）

for（i in 1:10）{

result[1,i] <- paste(a,b)
result[2,i] <- paste(a,b)

    }

##给定日期的一组结果

for（d in 1:10）{

temp＆lt; - matrix（data = NA，nrow = 2，ncol = 10）

for（i in 1:10）{

temp[1,i] <- paste(a,b)
temp[2,i] <- paste(a,b)

    }

##将新结果添加到现有结果矩阵中

结果＆lt; - rbind（结果，临时）

        }

print（xtable（result，align =“ccccccccccc”），include.rownames = FALSE）