格子上的直方图

Question

由于hist()基数R没有报告百分比(并且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")

Answer 2

这应该让你开始:

library(lattice)
histogram(rnorm(10000),     
    main=list(
        label="Main plot title",
        cex=1.5),
    xlab=list(
        label="Custom x-axis label",
        cex=0.75),
    ylab=list(
        label="My very own y-axis label",
        cex=1.2),
    scales=list(cex=0.5),
    par.settings = list(axis.line = list(col = 0))
)