具有频率和百分比的双向列联表答案

【问题标题】：Two-Way Contingency Table with frequencies and percentages具有频率和百分比的双向列联表
【发布时间】：2019-09-29 04:49:17
【问题描述】：

我得到了下面的双向列联表，其中包含单元格百分比和频率（在括号中）。

gender       blue blue-gray       brown      dark      hazel    yellow
 female 33.33% (3) 0.00% (0) 55.56%  (5) 0.00% (0) 11.11% (1) 0.00% (0)
   male 34.62% (9) 3.85% (1) 46.15% (12) 3.85% (1)  3.85% (1) 7.69% (2)

我使用的R代码是

library(dplyr)

library(janitor)

starwars %>%
  filter(species == "Human") %>% 
  tabyl(gender, eye_color) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns()

但是，我想获得相同类型的表格，其中包含单元格频率和百分比（在括号中）。请帮忙。

【问题讨论】：

你想要(33.33%) (3)。试试%>% mutate_at(-1, list(~ str_replace(., "^([0-9.%]+)", "(\\1)")))
感谢@akrun 的评论。但是，我想要这样的东西3 (33.33%)。

标签： r dplyr tidyverse contingency janitor

【解决方案1】：

我们可以在adorn_ns 987654323 @（默认）到front

中的position参数

library(tidyverse)
starwars %>%
  filter(species == "Human") %>% 
   tabyl(gender, eye_color) %>%
   adorn_percentages("row") %>%
   adorn_pct_formatting(digits = 2) %>%
   adorn_ns(position = "front")
# gender       blue blue-gray       brown      dark      hazel    yellow
# female 3 (33.33%) 0 (0.00%)  5 (55.56%) 0 (0.00%) 1 (11.11%) 0 (0.00%)
#   male 9 (34.62%) 1 (3.85%) 12 (46.15%) 1 (3.85%) 1  (3.85%) 2 (7.69%)

或其他选项如果已创建对象将是processswith mutate_at以更改所有列的格式，除了首先通过捕获两个块中的字符，在添加@ 987654327时反转返回后，反转位置@百分比

library(tidyverse)
starwars %>%
  filter(species == "Human") %>% 
  tabyl(gender, eye_color) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns() %>% 
  mutate_at(-1, list(~ str_replace(., "^([0-9.%]+)\\s+\\((\\d+)\\)", "\\2 (\\1)")))
# gender       blue blue-gray       brown      dark      hazel    yellow
#1 female 3 (33.33%) 0 (0.00%)  5 (55.56%) 0 (0.00%) 1 (11.11%) 0 (0.00%)
#2   male 9 (34.62%) 1 (3.85%) 12 (46.15%) 1 (3.85%)  1 (3.85%) 2 (7.69%)

【讨论】：