plt <- ggplot(data=a,mapping=aes(x=distance, y=rate)) + geom_point(aes(size=as.numeric(
Number of years of data