p <- ggmap(get_map(c(32.10399,49.04548), zoom = 5))
p <- p + geom_point(aes(longitude,latitude,frame=year,cumulative=FALSE, size = channels_contracted, color = type),s_data, alpha=0.3)
gganimate(p)