Изменение цвета точки на gvisMap в пакете googleVis R

Question

Я использую пакет googleVis в R, и, в частности, я пытаюсь что-то решить с помощью команды gvisMap. В качестве примера я буду использовать данные об урагане Эндрю, показанные здесь:

AndrewMap <- gvisMap(Andrew, "LatLong" , "Tip", 
                     options=list(showTip=TRUE, 
                                  showLine=TRUE, 
                                  enableScrollWheel=TRUE,
                                  mapType='terrain', 
                                  useMapTypeControl=TRUE))
plot(AndrewMap)

Я хотел бы изменить цвет точек. Например, используя gvisGeoMap или gvisGeoChart, я могу сделать точки разных цветов на основе некоторой переменной, но проблема в том, что вы теряете масштабирование, центрирование и прокрутку, которые вы получаете с помощью gvisMap. Также у меня есть категориальные, а не непрерывные данные, поэтому я хочу раскрасить точки, используя gvisMap, основываясь на какой-то категориальной переменной, приписанной этой точке.

Я попытался возиться с параметрами, но это всего лишь параметры конфигурации, и кажется, что у самого gvisMap нет опции по умолчанию для изменения цвета точки. Какие-нибудь предложения для альтернативных способов, которыми это могло быть сделано?

Answer 1

Попробуйте пакет 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, и хотя обработка координат более сложна для неспециалистов, она доступна.