Skip to content

Instantly share code, notes, and snippets.

@mmajogn

mmajogn/GráfDeBurbujas.R

Created February 28, 2015 04:47
Show Gist options
  • Save mmajogn/2b23e7da34b7b7159e03 to your computer and use it in GitHub Desktop.
Save mmajogn/2b23e7da34b7b7159e03 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
GráfDeBurbujas.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", main="Grafica de burbujas")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment