3

新的ggiraph包非常适合让 ggplot2 对用户的鼠标做出反应，没有问题。

但是，对于交互式/反应式经度和纬度点，我无法使其与 ggmap() 一起正常工作。

交互性很好，当鼠标悬停一个点时，我可以获得工具提示响应，但是在使用 ggmap() 时，比例或轴似乎有问题。

下面的代码块提供了我正在尝试解决的问题的可重现示例，并且还有一些链接的图像可以说明我的意思。

首先安装所需的包，然后组成小示例数据集，然后使用 get_map() 函数下载所需的地图：

#Install required_packages:
required_packages <- c("ggmap", "ggplot2", "ggiraph")
new.packages <- required_packages[!(required_packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
#Load required_packages:
lapply(required_packages, require, character.only = TRUE)

#Make small example data set:
suburb<-c("BURNLEY","COLLINGWOOD","MALVERN","PRAHRAN","RICHMOND","SOUTH YARRA","ST KILDA","ST KILDA WEST","TOORAK","WINDSOR")
lon<-c(145.0176466,144.98815,145.036,144.998,144.998,144.989,144.982,144.9732,145.018,144.988)
lat<-c(-37.8299258, -37.8019,-37.857,-37.852,-37.823,-37.84,-37.864,-37.8604,-37.841,-37.854)
`Change 2005-2015 (%)`<-c(112, 120, 136, 127, 122, 115, 110, 146, 120, 128)
df<-data.frame(suburb, lon, lat, `Change 2005-2015 (%)`)

#Download map from google maps
SOUTH_YARRA <- get_map(location = 'South Yarra, Australia', zoom = 13, maptype="terrain")

现在我使用下面的代码创建静态地图没有问题：

ggmap(SOUTH_YARRA) + 
    geom_point(data = df, 
               aes(x =lon, y= lat, size=`Change 2005-2015 (%)`, colour = `Change 2005-2015 (%)`),
               alpha=0.75) +  
    scale_colour_gradientn(colours=rainbow(5)) +
    scale_radius (range = c(6, 12), trans = "identity", guide = "legend") +
    ggtitle("Total change in Median \n House Price (%) from 2005-2015 \n")

这是上面代码生成的静态地图 - 没问题

但是，当我使用 ggiraph 的 geom_point_interactive() 使地图中的点对用户的鼠标悬停做出反应时，会出现比例或轴的问题：

#Try add reactivity using ggiraph's geom_point_interactive() instead of geom_point()
interactive_map<-ggmap(SOUTH_YARRA) + 
    geom_point_interactive(data = df, 
                           aes(x =lon, y= lat, size=`Change 2005-2015 (%)`, colour = `Change 2005-2015 (%)`, tooltip=suburb, data_id = suburb),
                           alpha=0.75) +  
    scale_colour_gradientn(colours=rainbow(5)) +
    scale_radius (range = c(6, 12), trans = "identity", guide = "legend") +
    ggtitle("Total change in Median Melbourne \n House Price (%) from 2005-2015 \n")

ggiraph(code = {print(interactive_map)}, zoom_max = 5,
        tooltip_offx = 20, tooltip_offy = -10, 
        hover_css = "fill:black;",
        tooltip_opacity = 0.7)

这是上面代码产生的我的比例/轴问题的静止图像。请注意，上面的代码使工具提示反应性适用于鼠标悬停，这只是我需要解决的规模问题

我尝试将 maprange、extent 和 base_layer 参数更改为 ggmap() 函数，例如：

ggmap(SOUTH_YARRA, maprange=TRUE, extent = "panel", base_layer = ggplot(data = df, aes(x =lon, y= lat)))

然而，这并没有帮助。ggiraph 是一个很棒的包恕我直言，因为它是新的，所以在 stackoverflow 等方面还没有太多。任何帮助将非常感激！

4

1 回答 1

0

这是 ggiraph 包中的一个错误，包维护者刚刚修复了它，有关更多详细信息，请参阅此处的 github 错误报告：https ://github.com/davidgohel/ggiraph/issues/32#issuecomment-257869888

于 2016-11-04T09:00:46.940 回答