Question

我使用googleVis包绘制了法国地图，我将其嵌入到闪亮的应用中。但较薄的部门是按地区划分的，我也必须代表部门。我实际上使用.shp文件绘制和渲染每个区域除以部门，但我想让我的输出更具互动性和美学上的赏心悦目。

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

Probaly不直接与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']}"
)))

个性化放大镜

0 个答案: