[This article was first published on YGC » R, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
crime <-read.csv("http://datasets.flowingdata.com/crimeRatesByState2008.csv", header=TRUE, sep="\t")
p <-ggplot(crime, aes(murder,burglary,size=population, label=state))
p <- p+geom_point(colour="red")+scale_area(to=c(1,20))+geom_text(size=3)
p + xlab("Murders per 1,000 population")+ ylab("Burglaries per 1,000")