Блог

Я новичок в использовании программирования Shiny и R в целом. Я пытался создать блестящее приложение с использованием карт тычинок и использовал функцию get_stamenmap с ограничивающим прямоугольником и другими аргументами. Я назначил эту функцию переменной «карта» в функции ggmap.

Я получаю сообщение об ошибке :

Слушаю дальше http://127.0.0.1:5907 Предупреждение: Ошибка в ggmap: объект «карта» не найден 52: ggmap 49: сервер [#2] Ошибка в ggmap(карта) : объект «карта» не найден

Код, который я использовал:

 ui <- fluidPage(
  mainPanel("Siebar"),
  sidebarLayout(
    sidebarPanel("Options",
                 radioButtons(inputId = "radio",
                              label = "Type of Offense",
                              choices = list("Murder" = 'murder',
                                             "Robbery" = 'robbery',
                                             "Assault" = 'aggravated assault',
                                             "Burglary" = 'burglary',
                                             "Auto-Theft" = 'auto theft',
                                             "Theft" = 'theft',
                                             "Rape" = 'rape'),
                              selected = 'murder'),
                 
                 
                 ),
  mainPanel(
    plotOutput('plot')
  ),
)
)
server <- function(input, output){
  output$plot <- renderPlot(
    map <- get_stamenmap(bbox = c(left=-95.8, bottom=29.4, right=-95.0, top=30.0), 
                         zoom = 10, source = "stamen", maptype = "terrain"),
    ggmap(map)   stat_density_2d(data = subset(crime, offense == input$radio)),
    aes(x = lon, y = lat, fill = ..level.., alpha = ..level..), geom = 'polygon')  
    ggtitle("Crimes in Houston, TX")
  
}
 

Скорее всего, у вас отсутствуют/неуместны скобки. Попробуй это

 server <- function(input, output){
  output$plot <- renderPlot({
    map <- get_stamenmap(bbox = c(left=-95.8, bottom=29.4, right=-95.0, top=30.0), 
                         zoom = 10, source = "stamen", maptype = "terrain")
    
    ggmap(map)   
      stat_density_2d(data = subset(crime, offense == input$radio),
                      aes(x = lon, y = lat, fill = ..level.., alpha = ..level..), geom = 'polygon')  
      ggtitle("Crimes in Houston, TX")
  })
}