apply函數(shù)
作用：對
矩陣的行或列使用函數(shù)，或?qū)?code>數(shù)組的各個(gè)維度使用函數(shù)語法：apply（x, MARGIN, FUN, ...）
? x:格式為矩陣或數(shù)組的數(shù)據(jù)源
? MARGIN:=1，表示對行使用函數(shù)
? MARGIN:=2，表示對列使用函數(shù)
? FUN:函數(shù)，可以是系統(tǒng)自帶的函數(shù)，也可以是自定義函數(shù)
特點(diǎn)：
? 輸入：
矩陣或數(shù)組?apply函數(shù)?輸出：向量或矩陣
lapply函數(shù)
作用：對列表中的每個(gè)元素使用函數(shù)，列表中的元素可以是向量、矩陣、數(shù)組、數(shù)據(jù)框
語法：lapply（x, FUN, ...）
? x:格式為列表的數(shù)據(jù)源
? FUN:函數(shù)，可以是系統(tǒng)自帶的函數(shù)，也可以是自定義函數(shù)
特點(diǎn)：
? 輸入：
列表?lapply函數(shù)?輸出:列表
sapply函數(shù)
作用：對列表中的每個(gè)元素使用函數(shù)，列表中的元素可以是向量、矩陣、數(shù)組、數(shù)據(jù)框
語法：sapply（x, FUN, ...）
? x:格式為列表的數(shù)據(jù)源
? FUN:函數(shù)，可以是系統(tǒng)自帶的函數(shù)，也可以是自定義函數(shù)
特點(diǎn)：
? 輸入：
列表?lapply函數(shù)?輸出:向量
##apply函數(shù)
#對矩陣使用函數(shù)
> m1<-matrix(1:20,nrow = 4)
> m1
[,1] [,2] [,3] [,4] [,5]
[1,] 1 5 9 13 17
[2,] 2 6 10 14 18
[3,] 3 7 11 15 19
[4,] 4 8 12 16 20
apply(m1,1,sum)
[1] 45 50 55 60
apply(m1,2,sum)
[1] 10 26 42 58 74
f1<-function(x){
x*100
}
apply(m1,1,f1)
[,1] [,2] [,3] [,4]
[1,] 100 200 300 400
[2,] 500 600 700 800
[3,] 900 1000 1100 1200
[4,] 1300 1400 1500 1600
[5,] 1700 1800 1900 2000
apply(m1,2,f1)
[,1] [,2] [,3] [,4] [,5]
[1,] 100 500 900 1300 1700
[2,] 200 600 1000 1400 1800
[3,] 300 700 1100 1500 1900
[4,] 400 800 1200 1600 2000
#對數(shù)組的各個(gè)維度使用函數(shù)
xname<-c('x1','x2')
yname<-c('y1','y2','y3')
zname<-c('z1','z2','z3','z4')
a1<-array(1:24,c(2,3,4),dimnames = list(xname,yname,zname))#創(chuàng)建數(shù)組
, , z1
y1 y2 y3
x1 1 3 5
x2 2 4 6
, , z2
y1 y2 y3
x1 7 9 11
x2 8 10 12
, , z3
y1 y2 y3
x1 13 15 17
x2 14 16 18
, , z4
y1 y2 y3
x1 19 21 23
x2 20 22 24
apply(a1,1,sum) #按行求和
x1 x2
144 156
apply(a1,2,sum)#按列求和
y1 y2 y3
84 100 116
apply(a1,3,sum)#對每個(gè)數(shù)組求和
z1 z2 z3 z4
21 57 93 129
##數(shù)據(jù)框data.frame也可以使用apply函數(shù)，apply函數(shù)會自動將數(shù)據(jù)框轉(zhuǎn)化為矩陣，但前提是數(shù)據(jù)框中各列的數(shù)據(jù)類型都必須為數(shù)值型，否則轉(zhuǎn)化失敗，將報(bào)錯(cuò)
d1<-c(1,2,3,4)
d2<-c(10,20,30,40)
df<-data.frame(d1,d2)
df
d1 d2
1 1 10
2 2 20
3 3 30
4 4 40
apply(df,2,sum)
d1 d2
10 100
#接下來將一個(gè)數(shù)值型數(shù)據(jù)類型換成一個(gè)字符型，如下
d1<-c(1,2,3,4)
d2<-c('a',20,30,40)
df<-data.frame(d1,d2)
df
d1 d2
1 1 10
2 2 20
3 3 30
4 4 40
apply(df,2,sum)
Error in FUN(newX[, i], ...) : 'type'(character)參數(shù)不對
##lapply函數(shù)
#創(chuàng)建一個(gè)列表
l1<-list(v<-1:10,m<-matrix(1:20,4))
l1
[[1]]
[1] 1 2 3 4 5 6 7 8 9 10
[[2]]
[,1] [,2] [,3] [,4] [,5]
[1,] 1 5 9 13 17
[2,] 2 6 10 14 18
[3,] 3 7 11 15 19
[4,] 4 8 12 16 20
lapply(l1, sum)
[[1]]
[1] 55
[[2]]
[1] 210
##sapply函數(shù)
#sapply出了輸出為*向量*以外，其他用法都與lapply相同
l1<-list(v<-1:10,m<-matrix(1:20,4))
l1
[[1]]
[1] 1 2 3 4 5 6 7 8 9 10
[[2]]
[,1] [,2] [,3] [,4] [,5]
[1,] 1 5 9 13 17
[2,] 2 6 10 14 18
[3,] 3 7 11 15 19
[4,] 4 8 12 16 20
sapply(l1, sum)
[1] 55 210
