激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - R語言 - R語言實現(xiàn)對數(shù)據(jù)框按某一列分組求組內(nèi)平均值

R語言實現(xiàn)對數(shù)據(jù)框按某一列分組求組內(nèi)平均值

2021-12-30 15:43faith默默 R語言

這篇文章主要介紹了R語言實現(xiàn)對數(shù)據(jù)框按某一列分組求組內(nèi)平均值,具有很好的參考價值,希望對大家有所幫助。一起跟隨小編過來看看吧

可使用aggregate函數(shù)

如:

?
1
aggregate(.~ID,data=這個數(shù)據(jù)框名字,mean)

如果是對數(shù)據(jù)框分組,組內(nèi)有重復的項,對于重復項保留最后一行數(shù)據(jù)用:

?
1
2
3
pcm_df$duplicated <- duplicated(paste(pcm_df$OUT_MAT_NO, pcm_df$Posit, sep = "_"), fromLast = TRUE)
pcm_df <- subset(pcm_df, !duplicated)
pcm_df$duplicated <- NULL

補充:R語言分組求和,分組求平均值,分組計數(shù)

我們經(jīng)常可能需要把一個數(shù)據(jù)按照某一屬性分組,然后計算一些統(tǒng)計值。在R語言里面,aggregate函數(shù)就可以辦到。

?
1
2
## S3 method for class 'data.frame'
aggregate(x, by, FUN, ..., simplify = TRUE, drop = TRUE)

我們常用到的參數(shù)是:x, by, FUN。

x, 你想要計算的屬性或者列。

by, 是一個list,可以指定一個或者多個列作為分組的基礎。

FUN, 指定一個函數(shù),用來計算,可以作用在所有分組的數(shù)據(jù)上面。

假如這個是我們的數(shù)據(jù)。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type<-c("a","b","c","a","c","d","b","a","c","b")
value<-c(53,15,8,99,76,22,46,56,34,54)
df<-data.frame(type,value)
df
  type value
1   a  53
2   b  15
3   c   8
4   a  99
5   c  76
6   d  22
7   b  46
8   a  56
9   c  34
10  b  54

分組求和

?
1
2
3
4
5
6
aggregate(df$value, by=list(type=df$type),sum)
 type  x
1  a 208
2  b 115
3  c 118
4  d 22

分組求平均值

分組求平均很簡單,只要將上面的sum改成mean就可以了。

?
1
2
3
4
5
6
aggregate(df$value, by=list(type=df$type),mean)
 type    x
1  a 69.33333
2  b 38.33333
3  c 39.33333
4  d 22.00000

分組計數(shù)

分組計數(shù)就是在分組的情況下統(tǒng)計rows的數(shù)目。

?
1
2
3
4
5
6
aggregate(df$value, by=list(type=df$type),length)
 type x
1  a 3
2  b 3
3  c 3
4  d 1

基于多個屬性分組求和。

我們在原有的數(shù)據(jù)上加上一列,可以看看多屬性分組。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type_2 <-c("F","M","M","F","F","M","M","F","M","M")
df <- data.frame(df, type_2)
df
  type value type_2
1   a  53   F
2   b  15   M
3   c   8   M
4   a  99   F
5   c  76   F
6   d  22   M
7   b  46   M
8   a  56   F
9   c  34   M
10  b  54   M
 
 
aggregate(x=df$value, by=list(df$type,df$type_2),sum)
 Group.1 Group.2  x
1    a    F 208
2    c    F 76
3    b    M 115
4    c    M 42
5    d    M 22

以上為個人經(jīng)驗,希望能給大家一個參考,也希望大家多多支持服務器之家。如有錯誤或未考慮完全的地方,望不吝賜教。

原文鏈接:https://blog.csdn.net/faith_mo_blog/article/details/50738645

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 国产91对白叫床清晰播放 | 黄色大片高清 | 性欧美极品xxxx欧美一区二区 | www.99xxxx.com | free korean xxxxhd | 黑人操穴 | 亚洲第一精品在线 | 7m视频成人精品分类 | 黄色网址免费入口 | 精品久久久久久久久久久下田 | 国产精品啪一品二区三区粉嫩 | av懂色| 精品一区二区三区电影 | 美女黄污视频 | 国产成人av免费观看 | 国产一区在线观看视频 | 日本人乱人乱亲乱色视频观看 | 看毛片免费 | 狠狠操电影 | 国内成人自拍视频 | 天天草夜夜 | 在线小视频国产 | 黄色影院在线看 | 亚洲成人网一区 | 欧美视频一区二区三区在线观看 | 天天色宗合 | 欧美一区二区精品夜夜嗨 | 人人做人人看 | 国产一区二区精彩视频 | www.99久久久 | 免费a级作爱片免费观看欧洲 | 激情视频在线播放 | 成人啪啪18免费网站 | 精品国产一区二区三区久久久狼牙 | 国产成人高清成人av片在线看 | 成人一级黄色 | 久久国产综合视频 | 男女隐私免费视频 | 国产精品99久久久久久大便 | 在线观看免费污视频 | 黄色大片在线观看 |