explain df $<-$ DataBreach

library$($ggplot$2)$

set.seed$(100)$

prob$\_$pois $<-$ data.frame$(\text{'}$data$\text{'}=$ rpois$(1000,100))$

result $<-$ prob$\_$pois $\%>\%$ ggplot$()+$

geom$\_$histogram$($aes$($x $=$ data,

y $=$ stat$($count $/$ sum$($count$))),$

color $=$ 'red',

binwidth $=1)+$

geom$\_$vline$($xintercept $=0,$

size $=100,$

linetype $=$ 'dashed',

color $=$ 'grey'$)+$

theme$\_$bw$()+$

labs$($x $=$ 'Breach Lifecycle Range',

y $=$ 'Washingtonians Affected Range',

title $=\text{'}1000$ samples of Pois$($lambda $=100)\text{'})$

print$($result$)$