02.07.2013 Views

现代统计图形 - 科学网—博客

现代统计图形 - 科学网—博客

现代统计图形 - 科学网—博客

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

92 第五章 图库<br />

1 > # 以紧凑形式展现出来的UCB录取数据<br />

2 > ftable(UCBAdmissions)<br />

Dept A B C D E F<br />

Admit Gender<br />

Admitted Male 512 353 120 138 53 22<br />

Female 89 17 202 131 94 24<br />

Rejected Male 313 207 205 279 138 351<br />

Female 19 8 391 244 299 317<br />

1 > # 四瓣图,2行3列排版<br />

2 > fourfoldplot(UCBAdmissions, mfcol = c(2, 3))<br />

3 > # 对每个系的录取数据进行卡方检验分别得到P值<br />

4 > round(apply(UCBAdmissions, 3, function(x) chisq.test(x)$p.value),<br />

5 + 3)<br />

A B C D E F<br />

0.000 0.771 0.426 0.638 0.369 0.640<br />

Gender: Male<br />

Gender: Male<br />

Dept: A<br />

Admit: Admitted<br />

512<br />

89<br />

313<br />

Admit: Rejected<br />

19<br />

Dept: D<br />

Admit: Admitted<br />

138<br />

131<br />

279<br />

Admit: Rejected<br />

244<br />

Gender: Female<br />

Gender: Female<br />

Gender: Male<br />

Gender: Male<br />

Dept: B<br />

Admit: Admitted<br />

353<br />

17<br />

207<br />

53<br />

138<br />

Admit: Rejected<br />

Dept: E<br />

Admit: Admitted<br />

Admit: Rejected<br />

8<br />

94<br />

299<br />

Gender: Female<br />

Gender: Female<br />

Gender: Male<br />

Gender: Male<br />

Dept: C<br />

Admit: Admitted<br />

120<br />

202<br />

205<br />

22<br />

351<br />

图 5.18: 加州伯克利分校录取数据四瓣图<br />

Admit: Rejected<br />

Dept: F<br />

Admit: Admitted<br />

Admit: Rejected<br />

391<br />

24<br />

317<br />

Gender: Female<br />

Gender: Female

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!