arsa arsındaki arsa çizgisi

Question

Çubukların yatay çizginin üzerine çizildiği bir barplot oluşturmak istiyorum.

y <- c(1,2,3,5) 
barplot(y) 
abline(h=mean(y)) 
barplot(y, add=T) 

Ancak, ben defalarca kullanıldığı takdirde barplot() yılında add=T parametre, baskı eserler tanıtabilirsiniz endişeleniyorum:

Aşağıdaki kod gerçekleştirir. Yukarıdaki kodun bir alternatifi varsa merak ediyorum (yukarıdaki kod en hızlı yöntem olabilir).

Answer 1

Az önce ilk aramada hiçbir şey çizmek olabilir:

y <- c(1,2,3,5) 
barplot(rep(NA,length(y)),ylim=c(min(0,y),max(y)),axes=FALSE) 
abline(h=mean(y)) 
barplot(y, add=T) 

Answer 2

Eğer ggplot2 kullanırsanız, bunun için endişelenmenize gerek yok. Buna karşılık

ggplot(data.frame(x=1:4, y=y), aes(x=x, y=y)) + 
    geom_bar(stat="identity") + 
    geom_hline(yintercept=mean(y), color="red") 

: Senin sorunun geom sipariş aşağı kaynar

ggplot(data.frame(x=1:4, y=y), aes(x=x, y=y)) + 
    geom_hline(yintercept=mean(y), color="red") + 
    geom_bar(stat="identity")