lapply( )는 인자로 리스트를 받을 수 있다. 다음은 a에는 c(1, 2, 3), b에는 c(4, 5, 6)이 저장된 리스트에서 각 변수마다 평균을 계산한 예다.
> (x <- list(a=1:3, b=4:6)) $a [1] 1 2 3 $b [1] 4 5 6 > lapply(x, mean) $a [1] 2 $b [1] 5
데이터 프레임에도 곧바로 lapply( )를 적용할 수 있다. 아이리스 데이터의 숫자형 데이터들에 대한 평균을 구해보자.
> lapply(iris[, 1:4], mean)
$Sepal.Length
[1] 5.843333
$Sepal.Width
[1] 3.057333
$Petal.Length
[1] 3.758
$Petal.Width
[1] 1.199333
앞서 설명했듯이 각 컬럼의 평균은 colMeans( )로도 계산할 수 있다.
> colMeans(iris[, 1:4])
Sepal.Length Sepal.Width Petal.Length Petal.Width
5.843333 3.057333 3.758000 1.199333