Próbuję wykreślić pionowe wykresy słupkowe na mapie. Przeglądałem przykłady online, ale jakoś nie potrafiłem.

Moje dane są obecnie w tym formacie:

University| Count | Category | lat | long

Oto kod, który próbuję wykonać:

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"))))

Po uruchomieniu powyższego kodu pojawia się następujący błąd:

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