在图表底部添加统计信息

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 将字幕向下推了一点。