inst/examples/fourfoldplot.R

# 加州伯克利分校录取数据四瓣图
data("UCBAdmissions")
dimnames(UCBAdmissions) <-
  list(`录取情况` = c("录取", "拒绝"),
       `性别`= c("男性", "女性"),
       `院系` = LETTERS[1:6])
fourfoldplot(UCBAdmissions, mfcol = c(2, 3)) # 2 行 3 列排版
yihui/MSG documentation built on Aug. 16, 2021, 12:13 p.m.