Чтобы включить количество отсчетов, вы можете просто установить labels=TRUE
.
Пример, приведенный ниже, немного адаптирован по сравнению со страницей справки hist()
:
hist(islands, col="gray", labels = TRUE, ylim=c(0, 45))
Получение процентов немного сложнее. Единственный известный мне способ сделать это - напрямую манипулировать объектом, возвращаемым вызовом hist()
, как описано более подробно в моем ответе на этот похожий вопрос :
histPercent <- function(x, ...) {
H <- hist(x, plot = FALSE)
H$density <- with(H, 100 * density* diff(breaks)[1])
labs <- paste(round(H$density), "%", sep="")
plot(H, freq = FALSE, labels = labs, ylim=c(0, 1.08*max(H$density)),...)
}
histPercent(islands, col="gray")