我在R中使用googleVis包,特别是我正在尝试使用gvisMap命令解决问题。例如,我将使用显示here的Hurriance Andrew数据:
AndrewMap <- gvisMap(Andrew, "LatLong" , "Tip",
options=list(showTip=TRUE,
showLine=TRUE,
enableScrollWheel=TRUE,
mapType='terrain',
useMapTypeControl=TRUE))
plot(AndrewMap)
我想改变点的颜色。例如,使用gvisGeoMap或gvisGeoChart我可以根据一些变量使点不同颜色,但问题是你放弃了使用gvisMap获得的缩放,居中和滚动。我也有分类的,而不是连续的数据,所以我想使用gvisMap根据归因于该点的一些分类变量对点进行着色。
我试过搞乱选项,但这些只是配置选项,看起来gvisMap本身没有默认选项来改变点颜色。有关替代方法的任何建议吗?
答案 0 :(得分:2)
尝试使用plotGoogleMaps包。 这对我有用。
library(plotGoogleMaps); library(sp)
library(googleVis) # for the data
data(Andrew)
coordinates(Andrew) = ~ Long + Lat
proj4string(Andrew) = CRS("+proj=longlat +datum=WGS84")
Andrew2 <- SpatialPointsDataFrame(Andrew, data = data.frame( ID = row.names(Andrew) ) )
m <- plotGoogleMaps(Andrew2, filename='myMap1.html')
此外,这适用于分类变量。
ic <- iconlabels(attribute = Andrew$Category, colPalette=rainbow(3), icon=TRUE, at=NULL, height=10, scale=0.6)
m <- plotGoogleMaps(Andrew2, filename='myMap1.html', iconMarker=ic)
我在plotGoogleMaps包中找到了更多种类的控件,虽然非专家对坐标的处理更加困难,但是可以访问。