R 如何使用xtable、longtable制作多行表

R 如何使用xtable、longtable制作多行表,r,r-markdown,R,R Markdown,我试图使用xtable()和longtable环境来显示一个multi=page表 当前,当您运行代码时,它将在顶部显示“\scalebox”,然后它将截断表中的列 如何删除顶部的“\scalebox”并以可读的方式显示所有列 多谢各位 代码如下: --- title: "test" output: pdf_document keep_tex: TRUE setspace: singlespacing geometry: margin=1.1cm header-includes: - \us

我试图使用xtable()和longtable环境来显示一个multi=page表

当前,当您运行代码时,它将在顶部显示“\scalebox”,然后它将截断表中的列

如何删除顶部的“\scalebox”并以可读的方式显示所有列

多谢各位

代码如下:

---
title: "test"
output: pdf_document
keep_tex: TRUE
setspace: singlespacing
geometry: margin=1.1cm
header-includes:
  - \usepackage{color}
  - \usepackage{amsmath}
  - \usepackage{xcolor}
  - \usepackage{colortbl}
  - \usepackage{tabulary}
  - \usepackage{tabularx}
  - \usepackage{longtable}
  - \usepackage{ltxtable}
fig.lp: ('';character)
fig.pos: "H"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE  , comment = NA, message= FALSE, warning = FALSE)
```

```{r one, include= FALSE}

n=600
table = data.frame(name = rep(" dakjf aslkj dklsfj aslj ldjs",n), 
NUMERICFIELDNUMBERa = rep(10000,n),
NUMERICFIELDNUMBERb = rep(10000,n),
NUMERICFIELDNUMBERc = rep(10000,n),
NUMERICFIELDNUMBERd = rep("1250 + 52.33",n),
NUMERICFIELDNUMBERe = rep("25.6 + 36.25",n),
NUMERICFIELDNUMBERf = rep(10000,n),
NUMERICFIELDNUMBERg = rep(10000,n)
)

head(table)

    colnames(table) = c("GROUP NAME",
                               "Numeric Field Number1",
                              "Numeric Field Number2",
                               "Numeric Field Number3",
                                "Numeric Field Number4",
                            "Numeric Field Number5",
                              "Numeric Field Number6",
                          "Numeric Field Number7"
                      ) 
rownames(table) = NULL

```


```{r echo= FALSE, comment = FALSE, message= FALSE, warning = FALSE, results='asis'} 

library(xtable)
options(xtable.include.rownames=F) 
options(xtable.scalebox=.7)
#options(xtable.tabular.environment = "tabulary")
#options(xtable.width = "7in")
options(xtable.comment=F)
options(xtable.floating = F)
t = xtable(table)
#align(t)= "cccccccc"#"cp{2cm}cp{2cm}cp{2cm}cp{2cm}cp{2cm}cp{2cm}cp{2cm}cp{2cm}" #rep("p{2cm}C",8)#"p{1cm}cccccccc"
#align(t) = "cp{3cm}p{3cm}p{3cm}p{3cm}p{3cm}p{3cm}p{3cm}"
print(t, sanitize.text.function = identity)


```