R - 将第二个y轴添加到直方图

Question

我看过很多地方，虽然我可以找到一些内容，例如在情节中添加第二个直方图，在第二个y轴上添加两个时间序列的情节，我找不到任何东西。问题。我有一个用ggplot2，qplot函数创建的直方图。我需要在绘图的右侧添加第二个y轴，我希望刻度从0到1。

这是我的代码：

p <- qplot(subsetted$xvar, geom = "histogram", binwidth = .5, xlim= c(0, 100), main = "Histogram for Item 1")

谢谢！