He creado esta trama conggplot2:

Las líneas externas deben corresponder a la escala Y (es decir, la posición Y de las líneas para Texto1 debe ser 100 y 85). La única forma de hacerlo es dibujando un diagrama en blanco a la derecha de la figura con la misma escala que el gráfico de barras y luego utilizando la función de anotar para dibujar las líneas. Otro enfoque es simplemente dibujar "manualmente" las líneas congrid.lines, sin embargo las coordenadas degrid.lines No corresponderá a la escala Y de la trama.

¿Es posible dibujar de alguna manera estas líneas usando un enfoque diferente? Supongo que tendría que hacerse congrid.lines. ¿Cómo podría pasar las coordenadas Y del gráfico de barras agrid.lines?

A continuación se muestra el código mínimo utilizado para crear esta figura:

<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>

¿Cómo puedo dibujar las líneas a la derecha de las barras?

Hace poco hice una pregunta sobre el dibujo de texto fuera del área de trazado enggplot2 y la solución fue usargt$layout ygrid.draw.

Mostrando texto debajo de la trama generada por ggplot2

¿Se podría utilizar el enfoque similar aquí? Tengo entendido que annotation_custom es solo para texto y no funcionará con otros elementos gráficos. Gracias