Боксплот

[Dryomys]

Все доброго времени суток!
Нужно сделать боксплот, но такой, чтобы горизонтальной линией показывалась не медиана, а среднее.
Подскажите, пожалуйста, где искать функцию.

[gamm]

Все доброго времени суток!
Нужно сделать боксплот, но такой, чтобы горизонтальной линией показывалась не медиана, а среднее.
Подскажите, пожалуйста, где искать функцию.

boxplot() штука регламентированная, рисует то, что положено. Если нужно что-то свое вместо, возьмите исходник, переделайте и запишите свою функцию под новым именем.

Внутри используется boxplot.stats(), которая возвращает (среди прочего) медиану, замените на среднее или переделайте заодно и boxplot.stats() на свое под другим именем.

[Анна]

Код: Выделить всё

boxplot(var ~ groups, pars = list(medlty = "blank", boxwex = 0.5))
means <- tapply(var,groups,mean)
mean.line<-function(i){
	xx<-c(i[1]-0.5/2,i[1]+0.5/2)
	yy<-c(i[2],i[2])
	lines(xx,yy,col="red")
}
apply(cbind(1:length(means),means), 1, FUN=mean.line)