Добавить статистическую информацию в нижней части графика

Question

Я пытаюсь добавить статистическую информацию (минимальное, максимальное, квартильное значение, среднее значение, медиана и т. Д.) Относительно заданного распределения к нижней части графика (гистограмма, график временных рядов) в R. Я знаю, что статистика может быть получена с помощьюфункция summary ().Однако кто-нибудь знает, как разместить такую ​​информацию в нижней части графика?

Кажется, это должно быть легко сделать, но я просто не могу найти что-нибудь в Интернете о том, как это сделать.Возможно ли даже использование R?

Буду признателен за любую помощь!

Answer 1

Вот один из способов. Для некоторых фиктивных данных

set.seed(2)
dat <- rnorm(100, mean = 3, sd = 3)

вычислить резюме

sdat <- summary(dat)

Затем мы можем вставить имена сводной статистики и их значения, используя paste(), и collapse это в одну строку

summStr <- paste(names(sdat), format(sdat, digits = 2), collapse = "; ")

Обратите внимание, что я форматирую значения статистики, чтобы они имели только две значащие цифры, используя format(). Это можно добавить к сюжету, скажем, в качестве субтитра используйте функцию title()

op <- par(mar = c(7,4,4,2) + 0.1)
hist(dat)
title(sub = summStr, line = 5.5)
par(op)

Я немного подталкиваю субтитры к сюжету с помощью аргумента line.