tab_cols 中的total() 的总和只能为一，有什么建议吗？

Question

假设我有数据框“y”，

WR<-c("S",'J',"T")
B<-c("b1","b2","b3")
wgt<-c(0.3,2,3)
y<-data.frame(WR,B,wgt)

我想使用 expss 函数将 B 作为行、WR 和 WR 总计作为列进行列百分比交叉表

library(expss)

y %>% tab_cols(total(),WR) %>% # Columns
    tab_stat_valid_n("Base") %>% 
    tab_weight(wgt) %>% 
    tab_stat_valid_n("Projection") %>%
     tab_cells(mrset(B))%>%   # Row
    tab_stat_cpct(total_row_position = "none") %>%
    tab_pivot() 

结果

但总 Base 列与不匹配

#                      #Total    WR|J  WR|S WR|T
#                Base  1.000000    1   1.0    1
#          Projection  5.300000    2   0.3    3
#                  b1  5.660377   NA 100.0   NA
#                  b2 37.735849  100    NA   NA
#                  b3 56.603774   NA    NA  100

我想我找到了解决方案

y %>% tab_cols(total(),WR) %>% # Columns
    tab_cells(mrset(B))%>%   # Row 
    tab_stat_valid_n("Base") %>% 
    tab_weight(wgt) %>% 
    tab_stat_valid_n("Projection") %>%
    tab_stat_cpct(total_row_position = "none") %>%
    tab_pivot() 

 |    |            | #Total |  WR |       |     |
 |    |            |        |   J |     S |   T |
 | -- | ---------- | ------ | --- | ----- | --- |
 |  B |       Base |    3.0 |   1 |   1.0 |   1 |
 |    | Projection |    5.3 |   2 |   0.3 |   3 |
 | b1 |            |    5.7 |     | 100.0 |     |
 | b2 |            |   37.7 | 100 |       |     |
 | b3 |            |   56.6 |     |       | 100 |