Skip to content

Instantly share code, notes, and snippets.

@mmajogn

mmajogn/Burbujas.R

Created February 28, 2015 04:46
Show Gist options
  • Save mmajogn/2273cc8bb44ead2d1c5e to your computer and use it in GitHub Desktop.
Save mmajogn/2273cc8bb44ead2d1c5e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Burbujas.R
#Gráficas de burbuja#
crime <- read.csv("http://datasets.flowingdata.com/crimeRatesByState2005.tsv", header=TRUE, sep="\t")
symbols(crime$murder, crime$burglary, circles=crime$population)
radius <- sqrt( crime$population/ pi )
symbols(crime$murder, crime$burglary, circles=radius)
symbols(crime$murder, crime$burglary, circles=radius, inches=0.35, fg="white", bg="orange", xlab="Murder Rate", ylab="Burglary Rate")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment