Add bubblemap.R
Add bubblemap.R