R中使用UCBAdmissions数据集的招生率

Question

ftable(round(proportions(UCBAdmissions,c(2,3))*100, 1),row.vars=c(2, 1),col.vars=3)

​

​

我设法做到了这一点，但我只是想不出一种方法来删除“拒绝”行，以便只有“承认”比例可以显示。有人能帮我吗？

Answer 1

您可以将其转换为tibble，然后使用dplyr进行筛选。

#### Load Library ####
library(tidyverse)

#### Save Table as Object ####
admissions <- ftable(round(proportions(UCBAdmissions, c(2, 3)) * 100, 1),
       row.vars = c(2, 1),
       col.vars = 3)

#### Convert to Tibble and Filter ####
admissions %>% 
  as_tibble() %>% 
  filter(!Admit == "Rejected")

给你这个：

# A tibble: 12 × 4
   Gender Admit    Dept   Freq
   <fct>  <fct>    <fct> <dbl>
 1 Male   Admitted A      62.1
 2 Female Admitted A      82.4
 3 Male   Admitted B      63  
 4 Female Admitted B      68  
 5 Male   Admitted C      36.9
 6 Female Admitted C      34.1
 7 Male   Admitted D      33.1
 8 Female Admitted D      34.9
 9 Male   Admitted E      27.7
10 Female Admitted E      23.9
11 Male   Admitted F       5.9
12 Female Admitted F       7