usar - ggmaps in r

R brillante. Se muestra un error al usar ggmap

Question

Tengo un conjunto de datos con latitud y longitud

place   latitude    longitude
w      28.844692    77.103305
x      28.750925    77.1963099
y      28.702134    77.2202666
z      28.716547    77.1704

He intentado el siguiente código y está funcionando bien:

a <- coordinates[coordinates$place=="y",c("place","latitude","longitude")]
get_constituency <- get_map(c(a$longitude, a$latitude))
ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))

Estoy usando brillante para mostrar el mapa, en este momento estoy usando la función de impresión para mostrar el mapa

p <- ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude, 
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
  scale_size(range=c(3,5))
print(p, newpage = FALSE)

Vuelve:

Error en eval (expr, envir, enclos): objeto ''a'' no encontrado

Código adjunto de UI.R y Server.R

UI.R

library(shiny)

# Define UI
shinyUI(fluidPage(

  # Application title
  titlePanel("Analysis!"),

  sidebarLayout(position="left",

    # Sidebar with a slider input
    sidebarPanel(width="3",

    uiOutput("Constituency_dropdown", label="aaa")),



    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("voteshare_2015", height="1000px", width="1024px")
    )
  )
))

Server.R

library(shiny)
library(plyr)
library(ggplot2)
library(gridExtra)
library(gridBase)
library(reshape)
library(ggmap)
library(PerformanceAnalytics)

z=data.frame(x=1:10, y=11:20)
coordinates <- data.frame(place=c("w", "x", "y", "z"), 
                        latitude=c(28.844692, 28.750925, 28.702134, 28.716547),
                        longitude=c(77.103305,  77.1963099, 77.2202666, 77.1704),
                      stringsAsFactors=FALSE)


shinyServer(function(input, output) {

  # Constituency
  output$Constituency_dropdown  <- reactiveUI(function() {
    selectInput(inputId = "Constituency", label = "Constituency", c("w","x","y","z"))
  })

output$voteshare_2015 <- renderPlot({

plot.new()
gl <- grid.layout(2,2)
vp.1 <- viewport(layout.pos.col = 1, layout.pos.row = 1)
vp.2 <- viewport(layout.pos.col = 2, layout.pos.row = 1)
vp.3 <- viewport(layout.pos.col = c(1,2), layout.pos.row = 2)
pushViewport(viewport(layout=gl))

a <- coordinates[coordinates$place==as.character(input$Constituency),c("place","latitude","longitude")]


# First plot
pushViewport(vp.1)
par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))
pie(z$x,z$y)
popViewport()

# Second plot
pushViewport(vp.2)
par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))
pie(z$x,z$y)
popViewport()

# Your map
pushViewport(vp.3)
par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))
#a <- coordinates[coordinates$place==as.character(input$Constituency),c("place","latitude","longitude")]
#op=plot(x=a$latitude, y=a$longitude)
 get_constituency <- get_map(c(a$longitude, a$latitude))

 op <-ggmap(get_constituency) + 
   geom_point(aes(x = a$longitude, 
                  y = a$latitude, size=10), 
             alpha = .5, col="red") + 
    scale_size(range=c(3,5))
print(op, newpage = FALSE)
popViewport()

  })
  } )  

Borre toda su variable de entorno global de R studio y ejecute el código. El código anterior devuelve el error. No puede identificar el problema. Por favor ayuda

Answer 1

Esto funciona bien:

require("ggmap") # apparently needs rjson

coordinates <- data.frame(place=c("w", "x", "y", "z"), 
               latitude=c(28.844692, 28.750925, 28.702134, 28.716547),
               longitude=c(77.103305,  77.1963099, 77.2202666, 77.1704),
               stringsAsFactors=FALSE)

a <- coordinates[coordinates$place=="y",c("place","latitude","longitude")]
get_constituency <- get_map(c(a$longitude, a$latitude))
ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude, 
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
  scale_size(range=c(3,5))
p=ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude,
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
  scale_size(range=c(3,5))

print(p, newpage = FALSE)

EDITAR

OP estaba buscando algo como esto:

require(ggplot2)
require(grid)
require(gridBase)
require(ggmap) 

z=data.frame(x=1:10, y=11:20)
coordinates <- data.frame(place=c("w", "x", "y", "z"), 
                        latitude=c(28.844692, 28.750925, 28.702134, 28.716547),
                        longitude=c(77.103305,  77.1963099, 77.2202666, 77.1704),
                      stringsAsFactors=FALSE)
a <- coordinates[coordinates$place=="y",c("place","latitude","longitude")]
get_constituency <- get_map(c(a$longitude, a$latitude))

# setup everything
plot.new()
gl <- grid.layout(2,2)
vp.1 <- viewport(layout.pos.col = 1, layout.pos.row = 1)
vp.2 <- viewport(layout.pos.col = 2, layout.pos.row = 1)
vp.3 <- viewport(layout.pos.col = 1, layout.pos.row = 2)
vp.4 <- viewport(layout.pos.col = 2, layout.pos.row = 2)
pushViewport(viewport(layout=gl))

# First plot
pushViewport(vp.1)
par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))
pie(z$x,z$y)
popViewport()

# Second plot
pushViewport(vp.2)
par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))
pie(z$x,z$y)
popViewport()

# Your map
pushViewport(vp.3)
op <-ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude, 
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
    scale_size(range=c(3,5))
print(op, newpage = FALSE)

np=ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude,
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
    scale_size(range=c(3,5))
print(np, newpage = FALSE)
popViewport()

# Your map
pushViewport(vp.4)
op <-ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude, 
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
    scale_size(range=c(3,5))
print(op, newpage = FALSE)

np=ggmap(get_constituency) + 
  geom_point(aes(x = a$longitude,
                 y = a$latitude, size=10), 
             alpha = .5, col="red") + 
    scale_size(range=c(3,5))
print(np, newpage = FALSE)
popViewport()