如何geom_freqpoly顺利排除零

Question

我试图解释小提琴图表给我的老板，我想用geom_freqpoly，所以我可以说“小提琴图只是一个柱状图翻转在其侧面和镜像”：

library(ggplot2) 
df = structure(list(calc = c(0.833333333333333, 1.16666666666667, 1.66666666666667, 1.16666666666667, 1.5, 1.33333333333333, 1.33333333333333, 1.5, 0.833333333333333, 1.83333333333333, 1, 1, 1.5, 1.66666666666667, 1, 1.33333333333333, 0.833333333333333, 0.833333333333333, 1.83333333333333, 1.16666666666667, 1.16666666666667, 1, 0.5, 1.33333333333333, 1, 0.833333333333333, 1.16666666666667, 1.66666666666667, 1.83333333333333, 1.16666666666667, 1.5, 0.833333333333333, 1.5, 1.5, 1.16666666666667, 1.66666666666667, 1, 0.833333333333333, 1.16666666666667, 1, 1, 1.33333333333333)), class = "data.frame", row.names = c(NA, -42L), .Names = "calc") 
ggplot(df, aes(x = 1, y = calc)) + geom_violin() 
ggplot(df, aes(calc)) + geom_freqpoly(binwidth = 1/6) + scale_y_continuous(breaks = 0:10) 

的问题是小提琴的情节是这样的：

和柱状图如下：

换句话说，小提琴情节抚平的zeroe s，但是直方图不是。 如何通过使geom_freqpoly平滑零点来使两个图表匹配？

Answer 1

这实际上并不是geom_freqpoly的目的，它代表了每个值的实际频率。对于平滑，你想geom_density：

ggplot(df, aes(calc)) + 
    geom_density() + 
    scale_y_continuous(breaks = 0:10) 

默认情况下，这个看起来是相同的geom_violin，它使用相同的平滑/密度估计算法。