Сопоставление категориальной переменной с googleVis

Question

Я пытаюсь создать карту, в которой каждый штат США раскрашен в соответствии с категориальной переменной типа символа. Я могу получить карту для рендеринга, но все подсказки показывают числовое значение вместо символьной строки в моей переменной. Вот воспроизводимый пример:

library(googleVis)
library(datasets)


category <- c("A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E",
           "A","B","C","D","E")

hover <- c(1:50)

data <- data.frame(state.name,category,hover)

Map <- gvisGeoMap(data, "state.name", "category", "hover",
                    options=list(region="US", 
                                 displayMode="regions", 
                                 resolution="provinces",
                                 width=600, height=400))
plot(Map)

Карта правильно назначает цвета для "категории", но во всплывающей подсказке категория отображается в виде числа, а не буквы A - E. В конечном счете, я хотел бы иметь возможность назначать отдельные цвета для каждой категории, а не использовать градиент, но Я сделаю один шаг за один раз со своими вопросами. В конечном итоге я буду использовать эту карту в приложении Shiny. Буду признателен за любую оказанную помощь.

PS Честно говоря, я не особо беспокоюсь об использовании googleVis для этого. Если есть другой пакет, который позволит мне отобразить категориальную переменную и при наведении мыши появятся всплывающие подсказки, я открыт для переключения.