R
!!!table()
*クロス集計





!!例

!サンプル・データ
*https://www.openintro.org/data/index.php?data=acs12
**Results from the US Census American Community Survey, 2012
**2012年のアメリカ人口統計からの2,000のサンプル

!データの取り込み
{{pre
acs.dat <- read.csv("https://www.openintro.org/data/csv/acs12.csv")
head(acs.dat)

  income         employment hrs_work  race age gender citizen time_to_work    lang married         edu disability   birth_qrtr
1  60000 not in labor force       40 white  68 female     yes           NA english      no     college         no jul thru sep
2      0 not in labor force       NA white  88   male     yes           NA english      no hs or lower        yes jan thru mar
3     NA               <NA>       NA white  12 female     yes           NA english      no hs or lower         no oct thru dec
4      0 not in labor force       NA white  17   male     yes           NA   other      no hs or lower         no oct thru dec
5      0 not in labor force       NA white  77 female     yes           NA   other      no hs or lower        yes jul thru sep
6   1700           employed       40 other  35 female     yes           15   other     yes hs or lower        yes jul thru sep

}}