Гистограмма на решетке - PullRequest
Новая
       30

Гистограмма на решетке

6 голосов
/ 31 января 2012

Поскольку hist() базы R не сообщает процентные значения (и freq = FALSE) тоже не помогает, я обратился к lattice. 

histogram(rnorm(10000))

Пожалуйста, помогите мне со следующим:

  1. Как мне избавиться от коробки вокруг участка?
  2. Как я могу отдельно определить cex меток x / y и оси x / y?
  3. Как я могу указать собственные имена для осей x и y?

Ответы [ 2 ]

6 голосов
/ 31 января 2012

Или, если вы хотите придерживаться 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")

enter image description here

5 голосов
/ 31 января 2012

Это должно помочь вам начать: 

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))
)

enter image description here

...