R 缺少KableOne的空间（包“表一”）

我为我的科学分析报告做了一个.rmd

我习惯性地使用“TableOne”软件包，并取得了成功。创建我的Tableone结果如下：

(CreateTableOne(data = analysis_swan_df,
                    vars = varlist, factorVars = factorvarlist))

这将在控制台中呈现：

                          Overall       
  n                          2424        
  Age (mean (SD))           51.97 (2.68) 
  RACE (%)                               
     Black                    720 (29.7) 
     Chinese                  207 ( 8.5) 
     Japanese                 261 (10.8) 
     Caucasian               1197 (49.4) 
     Hispanic                  39 ( 1.6) 
  BMI (mean (SD))           28.89 (7.35) 
  Glucose (mean (SD))       94.26 (31.12)
  Smoker = Yes (%)            320 (13.9) 
  LDL (mean (SD))          121.11 (33.54)
  HDL (mean (SD))           58.20 (14.91)
  CRP (mean (SD))            4.07 (6.79) 
  bp_category (%)                        
     Normal                  1105 (51.8) 
     Elevated                 269 (12.6) 
     Hypertension Stage 1     456 (21.4) 
     Hypertension Stage 2+    302 (14.2) 
  Exercise = Yes (%)         1520 (70.9) 
  Chol_Ratio (mean (SD))     3.21 (0.86) 

我通常使用write.csv以.csv格式复制/粘贴或导出

今天，我想用rmarkdow以.pdf格式导入此表

该软件包提供一个功能“kableone”：

这使得塔特：

    Overall
n   2424
Age (mean (SD)) 51.97 (2.68)
RACE (%)     
Black   720 (29.7)
Chinese 207 ( 8.5)
Japanese    261 (10.8)
Caucasian   1197 (49.4)
Hispanic    39 ( 1.6)
BMI (mean (SD)) 28.89 (7.35)
Glucose (mean (SD)) 94.26 (31.12)
Smoker = Yes (%)    320 (13.9)
LDL (mean (SD)) 121.11 (33.54)
HDL (mean (SD)) 58.20 (14.91)
CRP (mean (SD)) 4.07 (6.79)
bp_category (%)  
Normal  1105 (51.8)
Elevated    269 (12.6)
Hypertension Stage 1    456 (21.4)
Hypertension Stage 2+   302 (14.2)
Exercise = Yes (%)  1520 (70.9)
Chol_Ratio (mean (SD))  3.21 (0.86)

我的问题是没有报告缩进分类数据的空格。这不利于结果的可读性

我尝试：

tab1 <- CreateTableOne(data = analysis_swan_df,
                            vars = varlist, factorVars = factorvarlist) 
   
tab1exp <- print(tab1, catDigits = 1, contDigits=2, quote = FALSE, noSpaces = TRUE)

kable(tab1exp)

tab1
tab1 <- CreateTableOne(data = analysis_swan_df,
                            vars = varlist, factorVars = factorvarlist) 
   
tab1exp <- print(tab1, catDigits = 1, contDigits=2, quote = FALSE, noSpaces = TRUE)

kable(tab1exp)

tab1 <- CreateTableOne(data = analysis_swan_df,
                            vars = varlist, factorVars = factorvarlist) 
   
tab1exp <- print(tab1, catDigits = 1, contDigits=2, quote = FALSE, noSpaces = TRUE) %>% as.data.table()

kable(tab1exp)

tab1 <- CreateTableOne(data = analysis_swan_df,
                            vars = varlist, factorVars = factorvarlist) 
   
tab1exp <- print(tab1, catDigits = 1, contDigits=2, quote = FALSE, noSpaces = TRUE) %>% as.data.frame()

kable(tab1exp)