我想绘制一些数据的直方图,添加标题以及数据的平均值和标准差。我使用mtext
和bquote
:
a <- rnorm(100)
hist(a, main="A")
mtext(bquote(mu==.(round(mean(a)), sigma==.(sd(a)))))
但是,只绘制了 mu ,似乎我并不完全理解bquote
。我如何将 mu 和 sigma 绘制在彼此旁边或之上?
你想要一个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)