Как вычислить ср. значения по всем числовым столбцам набора данных Orange?

Наверное, вы хотите посмотреть на среднее значение возраста и длину колец деревьев из датасета Orange. Это можно сделать следующим образом, сгруппировав по номеру дерева:

library(tidyverse)

Orange %>%
  group_by(Tree) %>%
  summarise(mean_age = mean(age, na.rm = TRUE),
            mean_cir = mean(circumference, na.rm = TRUE))

Базовую описательную статистику можно получить, применив функцию summary к датасету.

В следующий раз, пожалуйста, уточняйте вопрос: приведите пример данных, образ ожидаемого результата и пр.

data(Orange)
sapply(Orange[c(2,3)], mean)
summary(Orange)