BubbleChart[bubblesGrouped,ScalingFunctions{"Log","Log",Automatic},PlotLabelStyle["Internet users vs GDP per capita",Bold,24],FrameLabel{Style["GDP per person in US dollars",20],Style["Internet users as percentage of population (%)",20]},PlotTheme"Detailed",ImageSize800,ChartStyle"Pastel",ChartLegendsKeys[bubblesGrouped]]