当我使用apply语句来运行函数时，它输出的表用逗号分隔，我尝试了很多方法来看看是否能让逗号停止出现并不断失败。
重写了代码以提供示例...

---
output: pdf_document
---

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

# Load libraries 
library( data.table )
library( kableExtra )
library( knitr )
library( ggplot2 )

# Recreate comma issue after sapply 

cols <- list( diamonds )
dfs <- list( diamonds )
jan <- data.table( diamonds ) 
cols_jan <- colnames( diamonds[ , c( 1:4 , 7 ) ])

tabs <- function( number , design , dts ){
          
          x <- y <- z <- NULL 
          dts <- jan
          vars <- cols_jan[number]
          
          out <- x <- y <- z <- NULL 
          x <- dts[ , .( counts = .N ) , by= vars ]
          x <- x[ order( x[ , 1 ] ) ,  ]
          x[ , `:=` ( Percent = ifelse( counts < 30 , NA , counts/nrow( dts ))) , ]
          row.names( x ) <- NULL 
          x[ , counts := ifelse( counts < 30 , NA , as.numeric( counts )) , ]
                
          z <- x 
          z[ , `:=` (
                  counts = scales::number( counts , accuracy = 1 , big.mark="," ) ,
                  Percent = scales::percent( Percent , accuracy = 0.1 ) 
          )]  
                   
          colnames( z ) <- c( ' ' , 'Counts' , 'Frequency' )
          out <- knitr::kable( z , format = 'latex', booktabs = TRUE )
          out
          
          }

r sapply( 2:4 , tabs )

需要留在R中，使用markdown，以PDF或Word输出。我使用apply语句，但愿意使用任何有效的语句。
看起来很简单，我觉得问这个问题很傻。感谢任何帮助-也确定这个函数可以用更少的代码重新创建...我不是在问这个，只是如何去掉每次运行之间的逗号（或者，在这个例子中，数字）。
"非常感谢"

![](https://i.stack.imgur.com/6FqyP.png)