barplot içinde legend'e abline ekleme RSTudio

Question

barplot(counts, main="title", 
     xlab=group, col=rainbow(20), 
     legend = rownames(counts), 
     beside=TRUE, xlim=c(1,30)) 
abline(v=mean(df$ddd), col="red", lwd=2.5) 

Soruma soru: - efline abline nasıl eklenir? Ben efsane barplot alanından atmaya çalıştım ve bir şey yaptık ama işe yaramadı ama işe yaramadı

Answer 1

Verileriniz hakkında daha fazla bilgi sahibi olmadan, tam olarak aradığınız şeyi çoğaltmak zordur, ancak R's ggplot2 paketini yararlı bulabileceğinizi düşünüyorum. :

library(ggplot2) 

ggplot(data=iris) + geom_bar(aes(x=iris$Sepal.Length,fill=iris$Species)) + 
     #Add abline - specifiy color aes so it appears in the legend 
     geom_abline(aes(intercept=0,slope=1,color="Line description"),size=2.5,show_guide=TRUE) + 

     #Override the lines that would appear in "fill" portion of legend - the part of the legend that refers to species 
     guides(fill = guide_legend(override.aes = list(linetype = 0), title="[TITLE OF FILL]"), 
      color = guide_legend(title="[TITLE OF LINE]")) + 

     #Change color of line to what you actually want 
     scale_color_manual(values="#CC6666") 

Biz efsanede geom_abline koyarak ve oradan biz çizgi başlık, açıklama ve rengini değiştirebilirsiniz içine temelde "hile" ggplot.

Yukarıdaki kod bize veriyor: