将统计信息添加到图表底部

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