Звичайно, чому б і ні?
Ось приклад (один з десятків я знайшов за допомогою простого пошуку в Google):
(Джерело зображення - це блог зручності використання тут .)
Я бачив засоби, засоби плюс або мінус стандартного відхилення, різні кванти (як медіана, квартілі, 10-й та 90-й процентилі), які відображаються різними способами.
Замість того, щоб малювати лінію прямо через сюжет, ви можете позначити інформацію внизу від неї - так:
Там приклад (один з багатьох можна знайти) з boxplot через вершину , а не на дні, тут .
Іноді люди відзначають у даних:
(Я дещо перемкнув місця розташування даних, оскільки значення були округлені до цілих чисел, і ви не могли добре побачити відносну щільність.)
Там приклад такого роду, зроблено в Stata, на цій сторінці (див третьої тут )
Гістограми краще з невеликою кількістю додаткової інформації - вони можуть вводити в оману самостійно
Вам просто потрібно подбати, щоб пояснити, з чого складається ваш сюжет! (Ви б хотіли для початку кращий заголовок та мітку осі x, ніж я використовував тут. Плюс пояснення у підписі на рисунку, що пояснює, що ви позначили на ньому.)
-
Останній сюжет:
-
Мої сюжети генеруються в Р.
Редагувати:
Як @gung припускав, abline(v=mean...його використовували для малювання середньої лінії по графіку і rugвикористовували для малювання значень даних (хоча я насправді використовував, rug(jitter(...оскільки дані були округлені до цілих чисел).
Ось спосіб зробити боксерт між гістограмою та віссю:
hist(Davis2[,2],n=30)
boxplot(Davis2[,2],
add=TRUE,horizontal=TRUE,at=-0.75,border="darkred",boxwex=1.5,outline=FALSE)
Я не збираюся перераховувати, для чого все є, але ви можете перевірити аргументи у довідці ( ?boxplot), щоб дізнатися, для чого вони потрібні , і пограти з ними самостійно.
Однак це не загальне рішення - я не гарантую, що він завжди буде працювати так добре, як це робиться тут (зауважте, я вже змінив atі boxwexпараметри *). Якщо ви не пишете інтелектуальної функції, щоб піклуватися про все, необхідно звернути увагу на те, що все робить, щоб переконатися, що це робить те, що ви хочете.
Ось як створити дані, які я використовував (я намагався показати, як регресія Теїла справді здатна впоратися з кількома впливовими людьми). Просто трапилось це дані, з якими я грав, коли вперше відповів на це питання.
library("car")
add <- data.frame(sex=c("F","F"),
weight=c(150,130),height=c(NA,NA),repwt=c(55,50),repht=c(NA,NA))
Davis2 <- rbind(Davis,add)
* - відповідне значення для atприблизно -0,5 разів перевищує значення boxwex; це було б добре за замовчуванням, якщо ви пишете функцію для цього; boxwexпотрібно було б масштабувати таким чином, що відповідає y-шкалі (висоті) боксплотта; Я б припустив, що від 0,04 до 0,05 рази верхня межа y може часто бути в порядку.
Код граничної смугастої діаграми:
hist(Davis2[,2],n=30)
stripchart(jitter(Davis2[,2],amount=.5),
method="jitter",jitter=.5,pch=16,cex=.05,add=TRUE,at=-.75,col='purple3')