Wie zeichne ich Linien außerhalb des Grundstücks in ggplot2?

Ich habe dieses Grundstück mit erstelltggplot2:

Die äußeren Linien müssen der Y-Skala entsprechen (d. H. Die Y-Position der Linien für Text1 sollte 100 und 85 sein). Die einzige Möglichkeit besteht darin, rechts neben der Abbildung ein leeres Diagramm mit demselben Maßstab wie das Balkendiagramm zu zeichnen und dann die Anmerkungsfunktion zum Zeichnen der Linien zu verwenden. Ein anderer Ansatz besteht darin, die Linien einfach "manuell" zu zeichnengrid.lines, aber die Koordinaten vongrid.lines entspricht nicht der Y-Skala des Diagramms.

Ist es irgendwie möglich, diese Linien mit einem anderen Ansatz zu ziehen? Ich nehme an, es müsste erledigt werdengrid.lines. Wie könnte ich Y Koordinaten des Balkendiagramms übergebengrid.lines?

Unten ist der minimale Code, der zum Erstellen dieser Figur verwendet wird:

<code>library (ggplot2)
test= data.frame(
  group=c(rep(1,6), rep(2,6)),
  subgroup=c( 1,1,1,2,2,2,1,1,1,2,2,2),
  category=c( rep(1:3, 4)),
  count=c( 10,80,10,5,90,5,  10,80,10,5,90,5   )
  )

qplot(subgroup, 
      count, 
      data=test, 
      geom="bar", 
      stat="identity",
      fill =category,  
      facets =  .~ group,  width=0.9)+
      opts(legend.position="none",
           plot.margin = unit(c(0,9,2,0), "lines"))
</code>

Wie kann ich die Linien rechts von den Balken zeichnen?

Ich habe kürzlich eine Frage zum Zeichnen von Text außerhalb des Grundstücks in gestelltggplot2 und die lösung war zu gebrauchengt$layout undgrid.draw.

Anzeigen von Text unter dem von ggplot2 generierten Plot

Könnte der ähnliche Ansatz hier verwendet werden? Ich verstehe, dass annotation_custom nur für Text gedacht ist und nicht mit anderen grafischen Elementen funktioniert. Vielen Dank

Antworten auf die Frage(3)

Ihre Antwort auf die Frage