PlotBubble( x=d.pizza$delivery_min, y=d.pizza$temperature, area=d.pizza$price,
xlab="delivery time", ylab="temperature",
col=SetAlpha(as.numeric(d.pizza$area)+2, .5), border="darkgrey",
na.rm=TRUE, main="Price-Bubbles", panel.first=grid())
PlotBubble(d.world$x, d.world$y, area=d.world$pop/90, col=SetAlpha("steelblue",0.4),
border="darkblue", xlab="", ylab="", panel.first=grid(),
main="World population")
text(d.world$x, d.world$y, labels=d.world$country, cex=0.7, adj=0.5)
Run the code above in your browser using DataLab