r - 棒グラフ上の離散周波数ポリゴン

Question

ggplot2 を使用して、棒グラフ上に周波数ポリゴンを描画したいと考えています。以下のコマンドを使用します

library(ggplot2)
g <- ggplot(diamonds) + geom_bar(aes(cut))
g + geom_freqpoly(aes(as.numeric(cut)),binwidth=1)

ただし、ポリゴンの頂点はバーの中心にありません。別のビン幅を試しましたが成功しませんでした。