2015年9月21日

#table 函数,ABG$P78-79

> Deer <- read.table(file = "Deer.txt",header = T)

> View(Deer)

> names(Deer)

[1] "Farm"    "Month"   "Year"    "Sex"     "clas1_4" "LCT"     "KFI"    

[8] "Ecervi"  "Tb"     

> str(Deer)

'data.frame': 1182 obs. of  9 variables:

 $ Farm   : Factor w/ 27 levels "AL","AU","BA",..: 1 1 1 1 1 1 1 1 1 1 ...

 $ Month  : int  10 10 10 10 10 10 10 10 10 10 ...

 $ Year   : int  0 0 0 0 0 0 0 0 0 0 ...

 $ Sex    : int  1 1 1 1 1 1 1 1 1 1 ...

 $ clas1_4: int  4 4 3 4 4 4 4 4 4 4 ...

 $ LCT    : num  191 180 192 196 204 190 196 200 197 208 ...

 $ KFI    : num  20.4 16.4 15.9 17.3 NA ...

 $ Ecervi : num  0 0 2.38 0 0 0 1.21 0 0.8 0 ...

 $ Tb     : int  0 0 0 0 NA 0 NA 1 0 0 ...

> table(Deer$Farm)

   AL    AU    BA    BE    CB   CRC    HB   LCV    LN   MAN    MB    MO    NC 

   15    37    98    19    93    16    35     2    34    76    41   278    32 

   NV    PA    PN    QM R\xd1    RF    RO   SAL   SAU    SE    TI    TN  VISO 

   35    11    45    75    25    34    44     1     3    26    21    31    15 

   VY 

   40 

> table(Deer$Sex,Deer$Year)

   

      0   1   2   3   4   5  99

  1 115  85 154  75  78  34  21

  2  76  40 197 123  60  35   0