kernel_viz_3.R

for (i in x){
  wt <- dnorm(x-i, 0, scale)
  plt <- ggplot(df, aes(x, y, col = wt)) + 
    geom_point(size = pmax(100*wt, 1)) + 
    geom_line(data = smoother[x<=i,], aes(x, y), col = "black") + 
    geom_point(data = smoother[x==i,], aes(x, y), size = 3,
               col = "black", shape = 21, fill = "white") +
    scale_color_gradient(low = "dark blue", high = "red") +
    theme(legend.position = "none")
  ggsave(plt, filename = paste("kernel_", i, ".png", sep=""))
}