calcular la media para múltiples columnas en data.frame

Solo me pregunto si es posible calcular medias para múltiples columnas simplemente usando la función media

p.ej.

mean(iris[,1])

es posible pero no

mean(iris[,1:4])

intentó:

mean(iris[,c(1:4)])

recibí este mensaje de error:

Mensaje de advertencia: En mean.default (iris [, 1: 4]): el argumento no es numérico o lógico: devuelve NA

Sé que puedo usar lapply (iris [, 1: 4], mean) o sapply (iris [, 1: 4], mean)