r - expss テーブルで 2 つの変数 (両方とも数値または両方の因子) を比較します

Question

私は expss パッケージを深く掘り下げており、ここで言及されている例の 1 つに直面しています --> https://gdemin.github.io/expss/#example_of_data_processing_with_multiple-response_variables (より具体的には、セクションの最後の表.

次のデータフレームを検討してください。

vecA <- factor(c(rep(1,10),rep(2,10),rep(3,10),rep(4,10),rep(5,10)),levels=c(1,2,3,4,5))
vecB <- factor(c(rep(1,20),rep(2,20),rep(NA,10)),levels=c(1,2,3,4,5))
df_fact <- data.frame(vecA, vecB)

vecA_num <- as.numeric(c(rep(1,10),rep(2,10),rep(3,10),rep(4,10),rep(5,10)))
vecB_num <- as.numeric(c(rep(1,20),rep(2,20),rep(NA,10)))
df_num <- data.frame(vecA, vecB)

提案されたコード (上記の URL) を厳密にコピーすると、テーブルは次のようになります。

df_fact %>%
  tab_cols(total(label = "#Total| |")) %>% 
  tab_cells(list(vecA)) %>%
  tab_stat_cpct(label="vecA", total_row_position="above", total_statistic="u_cases") %>%
  tab_cells(list(vecB)) %>% 
  tab_stat_cpct(label="vecB", total_row_position="above", total_statistic="u_cases") %>%
  tab_pivot(stat_position = "inside_columns") %>%  
  recode(as.criterion(is.numeric) & is.na ~ 0, TRUE ~ copy)

数値例を使用したわずかに異なる手順:

df_num %>%
  tab_cols(total(label = "#Total| |")) %>% 
  tab_cells(vecA_num, vecB_num) %>%
  tab_stat_valid_n(label = "Valid N") %>%
  tab_stat_mean(label="Mean") %>%
  tab_pivot(stat_position = "inside_columns") %>%  
  recode(as.criterion(is.numeric) & is.na ~ 0, TRUE ~ copy) %>%
  tab_transpose()

これらの複雑な構造は... 複雑なので、問題はここから始まります!

1) tab_last_sig* ファミリの関数を含めたいのですが、その方法がわかりません (変数が因子である場合は小計/ネットも可能です)。

2) 複数の統計 (ケース、パーセント、平均など) をまとめて含めるのは難しい

3) 最後に、統計名/変数名をどこに書けばよいかわかりません。

これらのコンストラクトの詳細なドキュメントが見つからないため、このメッセージはボトルに入っています:)