ggplot2图表中按因子计数

给出以下ggplot2图表:

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

我想使这些点的大小与之前/当前组合的\系数的计数成比例。

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

有什么想法吗?

=编辑=

下面是一个基于MPG数据集的非常简单的例子。让我们将“伟大”定义为Hwy>35,“伟大”定义为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)

如果我们设计出伟大与伟大的故事,它不会告诉我们太多:

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

如何根据X/Y点的数量使数据点的大小更大?希望这能把事情弄清楚,但另外告诉我。