如何在R中的表格中将标准误差置于估计值以下，并转移到flextable

我正在使用Apistart数据创建一个汇总统计表，输出为R中的表（希望最终使用flextable格式化）。我希望操纵表格，使每个变量的标准误差直接低于我收集的平均值/中值。下面是一个例子：

dstrata <- apistrat %>%
  as_survey_design(strata = stype, weights = pw) 

dstrata <- dstrata %>%
  mutate(api_diff = api00 - api99) 

dstrata %>%
  summarise(api_diff = survey_mean(api_diff, vartype="se" )) 

api_diff api_diff_se
     <dbl>       <dbl>
1     32.9        2.08 

#so as you can see now, the standard error appears as its own column. Is there a way to reformat the table so it appears like this? 

   api_diff 
     <dbl>       
1     32.9 
     (2.08) 
 

谢谢大家!

类似这样的事情：

library(flextable)
library(srvyr)
library(survey)
library(dplyr)
data(api)

# stratified sample
dstrata <- apistrat %>%
  as_survey_design(strata = stype, weights = pw)

dstrata <- dstrata %>%
  mutate(api_diff = api00 - api99) 

dat <- dstrata %>%
  summarise(api_diff = survey_mean(api_diff, vartype="se" )) 

flextable(dat, col_keys = "api_diff") %>% 
  compose(j = 1, value = as_paragraph(api_diff, " (", api_diff_se, ")")) %>% 
  autofit()

库（flextable）
图书馆（srvyr）
图书馆（调查）
图书馆（dplyr）
数据（api）
#分层抽样
dstrata%
as_测量_设计（地层=stype，重量=pw）
dstrata%
变异（api_diff=api00-api99）
dat%
总结（api_diff=调查平均值（api_diff，vartype=“se”））
flextable（dat，col_keys=“api_diff”）%%>%
组合（j=1，值=as_段落（api_diff，“（”，api_diff_se，“）”）%>%
自动拟合（）

类似这样的事情：

library(flextable)
library(srvyr)
library(survey)
library(dplyr)
data(api)

# stratified sample
dstrata <- apistrat %>%
  as_survey_design(strata = stype, weights = pw)

dstrata <- dstrata %>%
  mutate(api_diff = api00 - api99) 

dat <- dstrata %>%
  summarise(api_diff = survey_mean(api_diff, vartype="se" )) 

flextable(dat, col_keys = "api_diff") %>% 
  compose(j = 1, value = as_paragraph(api_diff, " (", api_diff_se, ")")) %>% 
  autofit()

库（flextable）
图书馆（srvyr）
图书馆（调查）
图书馆（dplyr）
数据（api）
#分层抽样
dstrata%
as_测量_设计（地层=stype，重量=pw）
dstrata%
变异（api_diff=api00-api99）
dat%
总结（api_diff=调查平均值（api_diff，vartype=“se”））
flextable（dat，col_keys=“api_diff”）%%>%
组合（j=1，值=as_段落（api_diff，“（”，api_diff_se，“）”）%>%
自动拟合（）