Что лучший способ состоит в том, чтобы считать секрет сессии направляющих?

Воспроизводимые данные

df <- as.data.frame(matrix(rnorm(400), 100, 4))

Гистограмма и квантиль

Вы получите гистограмму и квантиль одновременно по коду ниже , Я использую mapply() вместо sapply(), потому что я хочу, чтобы заголовки гистограмм соответствовали названию каждого столбца. Если у вас нет запроса, вы можете изменить его.

par(mfrow = c(1, 4))
quant <- mapply(function(value, name){
  hist(value, main = paste0("Histogram of ", name), breaks = 20)
  quantile(value, seq(0, 1, by = 0.1))
}, df, names(df), SIMPLIFY = T)

quant

#               V1          V2          V3         V4
# 0%   -2.44712416 -2.63463290 -3.08872658 -2.8410463
# 10%  -0.88944226 -1.16264448 -1.24097984 -1.1701429
# 20%  -0.71782990 -0.91843217 -0.75868358 -0.8962623
# 30%  -0.51587838 -0.66932521 -0.52816811 -0.8046574
# ...

Обратите внимание, что вывод mapply() является матрицей. Если вы хотите, чтобы это был фрейм данных, попробуйте:

as.data.frame(quant)

Если вы хотите, чтобы квантиль был строкой, попробуйте:

as.data.frame(t(quant))