Conde por el factor en la tabla ggplot2

Question

Dada la siguiente tabla ggplot2:

ggplot(my_data, aes(colour=my_factor) + 
       geom_point(aes(x=prior, y=current)) + 
       facet_grid(gender ~ age) 

me gustaría hacer que el tamaño de los puntos sea proporcional a la cuenta de my_factor para esa combinación antes/corriente.

ggplot(my_data, aes(colour=my_factor, 
       size=<something-here>(my_factor)) + 
       geom_point(aes(x=prior, y=current)) + 
       facet_grid(gender ~ age) 

¿Alguna idea?

== == Editar

Aquí hay un ejemplo muy trivial basado en datos mpg. Vamos a definir "great_hwy" como en carretera> 35, y "great_cty" como cty> 25:

mpg$great_hwy[mpg$hwy > 35] <-1 
mpg$great_hwy[mpg$hwy <= 35] <-0 
mpg$great_hwy <- factor(mpg$great_hwy) 

mpg$great_cty[mpg$cty > 25] <- 1 
mpg$great_cty[mpg$cty <= 25] <- 0 
mpg$great_cty <- factor(mpg$great_cty) 

Si dibujamos great_hwy vs great_cty, que no nos dice mucho:

ggplot(mpg) + geom_point(aes(x=great_cty, y=great_hwy)) 

Cómo ¿Podría hacer que los datos sean más grandes en función de la cantidad de puntos x/y? Espero que esto lo aclare, pero avíseme de otra manera.

Answer 1

Sin duda puede hacer esto contando de forma externa a ggplot, pero una de las mejores cosas de ggplot es que puede hacer muchas de estas estadísticas internamente.

Usando su ejemplo mpg arriba:

ggplot(mpg) + 
    geom_point(aes(x=great_cty, y=great_hwy, 
       size=..count..), stat="bin") 

Answer 2

Debido a que la respuesta aceptada utiliza una característica obsoleta voy a señalar esta respuesta alternativa que funciona para ggplot2 1.0.1

ggplot2 visualizing counts of points plotted on top of each other: stat_bin2d or geom_tile or point size?