地图上的条形图

我正在尝试在地图上绘制垂直条形图。我在网上查看了示例，但不知何故无法做到。

我的数据目前采用以下格式：

University| Count | Category | lat | long

这是我尝试执行的代码：

library(ggplot2)
library(ggmap)
library(ggsubplot)

df1 <- data.frame(
  University = c(rep("University1", 4), rep("University2", 4), rep("University3", 4), 
    rep("University4", 4)),
  Count = sample(1:10, 16, replace = T),
  Category = rep(c("A", "B", "C", "D")),
  lat = c(rep(10.902469, 4), rep(17.921959, 4), rep(18.606910, 4), rep(13.202366, 4)),
  long = c(rep(76.90020, 4), rep(83.42510, 4), rep(73.87501, 4), rep(77.62340, 4))
)

india <- get_map("India", zoom = 5)
p <- ggmap(india)
p + geom_subplot(data = df1, mapping=aes(x = long, y = lat, group = University,
subplot= geom_bar(aes(x = Category, y = Count, color = Category, stat = "identity"))))

当我运行上面的代码时，出现以下错误：

Error in get(x, envir = this, inherits = inh)(this, ...) : 
   could not find function "%:::%"

您还应该使用mapproj包裹。使用以下代码：

ggmap(india) +
  geom_subplot(data = df1, aes(x = long, y = lat, group = University,
                           subplot = geom_bar(aes(x = Category, y = Count,
                                                  fill = Category, stat = "identity"))))

我得到以下结果：

正如问题评论中所述：此解决方案适用于 R 2.15.3，但由于某种原因不适用于 R 3.0.2

2014 年 1 月 16 日更新：当您将 ggsubplot 包更新到最新版本时，此解决方案现在也适用于 R 3.0.2

2014 年 10 月更新 2：下面是软件包作者 (Garret Grolemund) 关于issue https://stackoverflow.com/questions/20465070/barplots-on-a-map/20468836#comment40626817_20468836@jazzuro 提到（我的文本格式）：

很遗憾，ggsubplot不是很稳定。ggplot2不是 设计为可扩展或递归，因此之间的 apiggsubplot and ggplot2是非常受陪审团操纵的。我认为熵会自行发挥作用 随着R不断更新。

未来的发展计划是将 ggsubplot 实现为内置的 哈德利新套餐的一部分ggvis。这会更多 可维护性比ggsubplot + ggplot2配对。

我将在几个月内无法调试 ggsubplot，但我 很乐意接受 github 上的拉取请求。

2016 年 12 月 23 日更新：ggsubplot- 软件包不再被主动维护，而是存档于 CRAN https://cran.r-project.org/web/packages/ggsubplot/index.html:

软件包“ggsubplot”已从 CRAN 存储库中删除。

以前可用的版本可以从存档中获取。

应维护者要求，存档于 2016-01-11 。