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