1

我想绘制一些数据的直方图,添加标题以及数据的平均值和标准差。我使用mtextbquote

a <- rnorm(100)
hist(a, main="A")
mtext(bquote(mu==.(round(mean(a)), sigma==.(sd(a)))))

但是,只绘制了 mu ,似乎我并不完全理解bquote。我如何将 mu 和 sigma 绘制在彼此旁边或之上?

4

1 回答 1

3

你想要一个bquote()和一些的组合plotmath symbols

a <- rnorm(100)
hist(a, main="A")
mean.a <- round(mean(a))
sd.a <- round(sd(a))
mtext(bquote(mu== ~.(mean.a) ~ sigma== ~.(sd.a)))

在此处输入图像描述

编辑

如果你想把你放在彼此之上,因为plotmath不支持换行,你可以像这样一一创建你的行:

Lines <- list(bquote(mu== ~.(mean.a)),
              bquote(sigma== ~.(sd.a)))
mtext(do.call(expression, Lines),side=3,line=0.5:-0.5)

在此处输入图像描述

于 2013-10-16T15:13:25.457 回答