| _覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
|
FrontPage › 襭る蠍
|
|
|
[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
鏤
|
讌 一 襴蟆 朱 覓伎 螳. (譟一燕) |