Добавление всплывающих подсказок в geom_map с помощью ggiraph
Я только что прочитал о пакете ggiraph, который, кажется, может быть тем, что мне нужно, чтобы добавить всплывающие подсказки на карту, созданную с помощью ggplot.
Это означает, что я в основном изменил свой код ggplot, чтобы строка geom_map была geom_map_interactive, и я добавил аргумент всплывающих подсказок в бит эстетики.
Однако я, вероятно, неправильно использую аргументы geom_map_interactive или всплывающие подсказки, поскольку, несмотря на то, что они не выдают никаких ошибок, они не создают интерактивную карту - просто статический график, как это было раньше.
Вот полный код:
install.packages("rio")
install.packages("rgeos")
install.packages("maptools")
install.packages("mapproj")
require(rgdal)
install.packages("plyr")
require(ggplot2)
install.packages("ggiraph")
library(ggiraph)
datafile <- rio::import("location of datafile on computer", header=TRUE)
shapefile <- readOGR(dsn = "location of shapefile on computer", layer = "shapefile")
shapefile <- fortify(shapefile, region = "region")
mapfile <- ggplot() +
geom_map_interactive(data = datafile , aes(map_id = datafile$region, fill = datafile$data_required, tooltip = paste(datafile$data_required), map = shapefile) +
geom_polygon (data = shapefile, aes(x = long, y = lat, group = group), colour = "darkgray", fill = NA) +
expand_limits(x = shapefile$long, y = shapefile$lat) +
scale_fill_gradient (guide = "colourbar", low = ("antiquewhite1"), high = ("dodgerblue4"), limits = c(1250,1850), breaks = c(1250,1850)) +
ggtitle("Data shown in this map") +
labs(fill = "") +
coord_equal () +
theme(
axis.text.x = element_blank(), axis.text.y = element_blank(),
axis.ticks = element_blank(), axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
panel.border = element_blank(), panel.background = element_blank(),
legend.title = element_text(face = "bold"),
plot.title = element_text(face = "bold", hjust = 0.5))