r - 格子上的直方图

Question

由于基本 R 的 hist() 不报告百分比(并且 freq=FALSE)也没有帮助，所以我转向了 lattice。

histogram(rnorm(10000))

请帮助我解决以下问题:

1. 如何去掉绘图周围的框？
2. 如何分别定义 x/y 标签和 x/y 轴的 cex？
3. 如何为 x 轴和 y 轴提供自定义名称？

Answer 1

或者，如果您想坚持使用 hist()，您可以稍微修改它，如下所示。

该函数调用一次 hist() 来获取其返回值，该值是一个包含有关直方图结构的各种有用信息的对象。然后，它使用 (a) 箱的宽度和 (b) 每个条形的密度来计算 (c) 每个条形中观测值的百分比。

histPercent <- function(x, ...) {
   H <- hist(x, plot = FALSE)
   H$density <- with(H, 100 * density* diff(breaks)[1])
   plot(H, freq = FALSE, ...)
}

histPercent(rnorm(10000), col="dodgerblue", las=1,
            xlab="Echs-axis", ylab="Why-axis")