Permalink
Browse files

first commit

  • Loading branch information...
1 parent 850c633 commit 426738def03cfd3233d375386b29f69b0d2f6077 @LubaLution committed Sep 17, 2012
Showing with 191 additions and 0 deletions.
  1. +15 −0 code.R
  2. +176 −0 data.csv
View
15 code.R
@@ -0,0 +1,15 @@
+library(plotGoogleMaps)
+library(RColorBrewer)
+
+data <- read.csv("data.csv")
+
+coordinates(data) <- ~artist.longitude +artist.latitude
+proj4string(data) <- CRS("+init=epsg:4326")
+
+key.entries <- c( 1.05,1.1,1.25,max (data$sa.hf))
+
+m <- bubbleGoogleMaps(data, zcol='sa.hf', filename = 'map.html',
+ mapTypeId= 'TERRAIN', fitBounds=T, max.radius=75000,
+ key.entries=key.entries, colPalette=brewer.pal(4,"YlOrRd"),
+ layerName="Ratio of Song Hotness to Artist Familiarity"
+)
Oops, something went wrong.

0 comments on commit 426738d

Please sign in to comment.