R + ggplot：在同一个ggplot中为geom_freqpoly和其他geom添加标题

Question

我希望在一个ggplot对象中为每个geom对象（特别是geom_freqpoly）添加标题。目的是在图例的图例中为每一行添加不同的标签。

例如：

    ggplot() +
      geom_freqpoly(data = A,
                    aes(x=contb_receipt_amt,
                        y=..count..),
                    binwidth = 0.1,
                    color = 'red' #,
                    ### IS IT POSSIBLE TO PLACE SOMETHING LIKE 'ggtitle("A")' HERE?
                    ) +
      geom_freqpoly(data = B,
                    aes(x=contb_receipt_amt, 
                        y=..count..),
                    binwidth = 1,
                    color = 'blue' #,
                    ### IS IT POSSIBLE TO PLACE SOMETHING LIKE 'ggtitle("B")' HERE?
                    ) +
      scale_x_log10(limits = c(1,10000))

正如我上面提到的，我知道ggtitle（），但据我所知，这是用于标记整个绘图，而不是geom本身，即将放在geom_freqpoly（）之后。< / p>

我试过？geom_freqpoly和?? geom_freqpoly，以及谷歌搜索，但没有成功。

请发布有关如何向geom添加标题的代码，以及解决问题的过程。谢谢！