r - 密度プロットは点間のフリンジを示します (R ggplot2)

Question

こんにちは私の密度プロットは、いくつかのポイントしかない場合にポイント間のフリンジ/ディップを示しています。この図を参照してください。

http://www.imagesup.net/?di=3141413124212

# show fringes    
test = as.data.frame( sample(0:5,1000,replace=T) ) 
colnames(test) = c('mon')
ggplot(test, aes(x=mon)) + geom_density(binwidth=1, size=1)

# normal
test = as.data.frame( sample(0:20,1000,replace=T) ) 
colnames(test) = c('mon')
ggplot(test, aes(x=mon)) + geom_density(binwidth=1, size=1)

誰もそれを修正する方法を知っていますか?