ggplot R 2 y轴

Question

我在ggplot中有这个r代码来做一个情节

ggplot(ab,aes(x=pk1)) + geom_histogram(binwidth = 0.5, position= 
position_dodge(0.5), color="black",fill="cadetblue4")+ ggtitle("Histogram of
PK1")+labs( x="PK1", y="Number of
Observations")+geom_density(aes(y=0.5*..count..))+
scale_x_continuous(breaks=seq(0,10,0.5))

我想在右侧使用单独的y轴和PDF的实际值，而不是对原始绘图执行aes(y=0.5*..count..)以使曲线拟合。我想在同一图上绘制直方图和密度曲线。