R与geom_线的连续与分类百分比份额

我想创建一个ggplot geom_线图，其中包含x轴上的连续数据和分类变量的百分比份额。 例如，对于mtcars，我希望x轴上有hp，y轴上有6个气缸的汽车的百分比

ggplot2(aes(x=hp,y=cyl), data=mtcars) +
geom_line()

---

我认为它需要用fun.y或类似的东西在geom_line中定义。

预先计算频率，例如使用重塑：

library(reshape)

M <- melt(mtcars,id.vars="hp",measure.vars="cyl")
C <- cast(M,hp~ variable)
C$f <- C$cyl/sum(C$cyl)

ggplot(C,aes(x=hp,y=f)) +
  geom_line()

ggplot(C,aes(x=hp,y=f)) +
  geom_bar(stat="identity")