1

我使用 googleVis 包绘制了一张嵌入到闪亮应用程序中的法国地图。但是较薄的部门是按地区划分的，我也必须代表部门。我实际上使用 .shp 文件来绘制和渲染按部门划分的每个区域，但我想让我的输出更具交互性和美观。

当我将鼠标悬停在一个区域上并个性化它的内容（例如在内部显示区域地图）时，有没有办法强制放大镜？或者构造一个等价物。

可能不是直接用R...

library(googleVis)
df <- data.frame(departement = c("Alpes-Maritimes", "Bouches-du-Rhone", "Rhone", "Savoie", "Haute-Savoie"), region =  c(rep("Provence-Alpes-Cote d'Azur", 2), rep("Rhone-Alpes", 3)),
ISO_3166.2 = c(rep("FR-U", 2), rep("FR-V", 3)), x = rnorm(5))
dfAggreg <- aggregate(df$x, by = list(region = df$region, iso = df$ISO_3166.2), sum)
plot(gvisGeoChart(dfAggreg,
         locationvar = "iso", colorvar = "x", hovervar = "region",
         options = list(region = "FR", displayMode = "regions",
         resolution = "provinces",
         width = 500, height = 400,
         colorAxis = "{colors:['#FFFFFF', '#0000FF']}"
)))
4

0 回答 0