Porcentaje Escalas reflectante de facetas individuales con ggplot2

Question

Así que lograron llegar hasta aquí ...

ggplot(init, aes(x=factor(ANGLE), fill=NETWORK)) + 
geom_bar(aes(y = (..count..)/sum(..count..))) + 
facet_wrap(~SHOW) + opts(legend.position = "top") + 
scale_y_continuous(labels = percent_format()) 

Mi problema es que las barras de colores a continuación representan el porcentaje de todas las mediciones ángulo de la cámara para toda la televisión programas en mi estudio. Por ejemplo, el gráfico OREILLY tiene una barra que se acerca al 15% para ANGLE 2, que es% 15 para todas las mediciones de ANGLE en el gráfico, no solo para aquellas en la faceta OREILLY. Lo que quiero que cada gráfico muestre es el porcentaje de recuentos relativo a solo UN programa de televisión (solo esa faceta), en lugar de todos. La idea es comparar el uso proporcional de ángulos de cámara entre diferentes espectáculos, pero con la forma actual del gráfico, está sesgado para hacer que los espectáculos con más cambios de ángulo de cámara parezcan pasar mucho más tiempo en la cámara. ángulo 2 de lo que realmente hacen en relación con los demás.

Lo frustrante de todo es que pasé una hora haciendo que pareciera como quería, luego cometí el error de actualizar R. Los paquetes se actualizaron junto con él, y esto sucedió.

Una tabla de datos de tamaño reducido es available here.

EDIT: Esto tampoco funciona. Intenté poner "group = NETWORK" en cualquiera (y ambos) de los términos aes (...), pero nada cambió. También probé lo mismo con "group = SHOW", que pensé que podría tener más posibilidades ya que quería obtener solo un porcentaje de un SHOW en cada faceta (por lo tanto, las escalas para cada faceta deberían subir hasta aproximadamente 80 % ya que muchos de los shows son predominantemente el ángulo de la cámara 2). ¿Me estoy perdiendo de algo?

ggplot(init, aes(x=factor(ANGLE), fill=NETWORK), group=SHOW) 
+ geom_bar(aes(y = (..count..)/sum(..count..), group=NETWORK)) + 
+ facet_wrap(~SHOW) + opts(legend.position = "top") + 
+ scale_y_continuous(labels = percent_format()) 

Answer 1

El uso de la estadística ..density.. en lugar de ..count.. parece que funciona para mí:

ggplot(dat, aes(x=factor(ANGLE))) + 
geom_bar(aes(y = ..density..,group = SHOW,fill = NETWORK)) + 
facet_wrap(~SHOW) + 
opts(legend.position = "top") + 
scale_y_continuous(labels = percent_format()) 

Al menos, esto produce un resultado diferente, no puedo decir con seguridad que refleja Lo que quieras. Además, no estoy seguro de por qué la estadística ..count.. se comportaba de esa manera.

Answer 2

esto ya no está trabajando en nuevas versiones de ggplot. La forma de hacerlo ahora es + stat_count(aes(y=..prop..))