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
<int>
employment
<chr>
hrs_work
<int>
race
<chr>
age
<int>
gender
<chr>
citizen
<chr>
time_to_work
<int>
lang
<chr>
1	60000	not in labor force	40	white	68	female	yes	NA	english	
2	0	not in labor force	NA	white	88	male	yes	NA	english	
3	NA	NA	NA	white	12	female	yes	NA	english	
4	0	not in labor force	NA	white	17	male	yes	NA	other	
5	0	not in labor force	NA	white	77	female	yes	NA	other	
6	1700	employed	40	other	35	female	yes	15	other	
6 rows | 1-10 of 13 columns
}}