fixed the R code for the bubble map