/murder.R

http://github.com/tavisrudd/r_users_group_1 · R · 22 lines · 9 code · 6 blank · 7 comment · 0 complexity · 629e1e7545ae50676499a0d7c9bbb48f MD5 · raw file 

    

  1. # http://flowingdata.com/2010/11/23/how-to-make-bubble-charts/
    2. 

  2. 

  3. crime <- read.csv("http://datasets.flowingdata.com/crimeRatesByState2008.csv",
    4. 

  4.                   header=TRUE, sep="\t")
    5. 

  5. 

  6. ## initial attempt
    7. 

  7. symbols(crime$murder, crime$burglary, circles=crime$population)
    8. 

  8. 

  9. ## Add population proportional circle sizing
    10. 

  10. radius <- sqrt(crime$population/ pi)
    11. 

  11. symbols(crime$murder, crime$burglary, circles=radius)
    12. 

  12. 

  13. ## Add colours and labels
    14. 

  14. symbols(crime$murder, crime$burglary, circles=radius,
    15. 

  15.         inches=0.35, fg="white", bg="red",
    16. 

  16.         xlab="Murder Rate", ylab="Burglary Rate")
    17. 

  17. 

  18. ## the following line would graph it with squares instead of circles
    19. 

  19. ## symbols(crime$murder, crime$burglary, squares=sqrt(crime$population), inches=0.5)
    20. 

  20. 

  21. ## Add State names
    22. 

  22. text(crime$murder, crime$burglary, crime$state, cex=0.5)
    23.