Contents

1 subset
2 aggregate - 襭襯 渚蠍
3 豢豌


[edit]

1 subset #

> 豌願
  企 焔   覈碁願
1 豌    180     80
2     170     77
3 覩殊    160     65
4     170     57
5 讌    160     50
6 覩狩    150     44

襷 り 160伎 れ 襭襷 覲企り る れ螻 螳 subset 襯 .
> subset(豌願, > 160)
  企 焔   覈碁願
1 豌    180     80
2     170     77
4     170     57

覓朱 []襯 れ螻 螳 .
> 豌願[豌願$>160,]

企螻 焔 觜手 れ 覈碁願襷 螻 矩る れ螻 螳 .
> 豌願.豺 = subset(豌願,select=c(,覈碁願))
> 豌願.豺
    覈碁願
1 180     80
2 170     77
3 160     65
4 170     57
5 160     50
6 150     44

[]襯 .
> 豌願[c(3,4)]

螳讌襯 覈 蟆 螳ロ. 讀 譟郁唄 襷 企 覲企 蟆企.
> subset(豌願,  > 160, select=c(,覈碁願))
    覈碁願
1 180     80
2 170     77
4 170     57

[edit]

2 aggregate - 襭襯 渚蠍 #

> 煙
   企 螻朱 蠍 
1  豌 蟲    1   80
2  豌     1   70
3  豌     1   65
4   蟲    1   90
5       1   80
6       1   70
7  豌 蟲    2   90
8  豌     2   50
9  豌     2   80
10  蟲    2   60
11      2   50
12      2   85

豌 蠏 蟲螻 矩る mean 襯 覃 .
> mean(煙$)
[1] 72.5

襷 豌 蠏 螳 覿覿 蠏 蟲螻 矩る 企至 蟾? 企 aggregate 襯 .

覲 蠏 蟲 蟆曙
> aggregate(煙$, list(企=煙$企), mean)
  企    x
1  72.5
2 豌 72.5

れ 蠍磯 蠏 蟲 蟆曙
> aggregate(煙$, list(企=煙$企, 蠍=煙$蠍), mean)
  企 蠍        x
1     1 80.00000
2 豌    1 71.66667
3     2 65.00000
4 豌    2 73.33333

aggregate 蠍磯蓋 覯 れ螻 螳.
aggregate( 螻壱 螳, 襭襯  覿覿朱  蠍一, 螻壱 )

襭襯 覿覿朱 豌 企 一襯 讌 讌襷 企 譟郁唄 蟇 . 襯 れ る 85 伎 襯 襷 螻朱 襯 螻 矩り .
> aggregate(煙$, list(企=煙$企, 煙一= 煙$煙 > 85 ), length)
  企 煙一 x
1     FALSE 5
2 豌    FALSE 4
3      TRUE 1
4 豌     TRUE 2

aggregate 螻壱 螳 覯″郁 一危壱 る 覈 伎 襯 . "豌願.豺" 襷 一危壱朱 れ 覈碁願襯 願 . 
> aggregate(豌願.豺, list(焔=豌願$焔), mean)
  焔     覈碁願
1    170 74.00000
2    160 50.33333

[edit]

3 豢豌 #