наложение пуассона pdf на гистограмму ggplot

Question

Я хочу наложить распределение Poission на гистограмму ggplot некоторых дискретных данных счета (чтобы все они были неотрицательными интергерами). Ниже приведен мой код,

    library(ggplot2)
data = read.table("ibd.summary", header=TRUE)

figName <- 'seg_num_fin.png'
figTitle <- 'Number of segments shared between random pairs in FIN'
#png(figName, width=800, height=800)
# histogram

ggplot(data, aes(x=num_seg)) +
        geom_histogram(aes(y = (..count..)/sum(..count..)),position="identity", binwidth=1) +
        xlab("Segment number") + ylab("Frequency") +
        ggtitle(figTitle) +
        theme(text = element_text(size=20))+
  stat_function(fun=dpois,args=list(lambda=mean(data$num_seg)))

Тем не менее, это дает мне такие предупреждения (просто показывает первое предупреждение здесь, остальные похожи)

1: In (new("standardGeneric", .Data = function (x, lambda,  ... :
  non-integer x = 2.770000

так что проблема в том, что ggplot пытается оценить dpois при нецелых значениях. Я хочу заставить ggplot оценивать только на целочисленных позициях, но не могу понять, как это сделать. Надеюсь, кто-то может указать на это! Большое спасибо!