如何使ggmap填充R Shiny应用程序的整个页面？

Question

请注意，我无法使用传单，因为我需要向地图添加自定义形状，而这是我无法在传单中完成的。

所以下面的内容与我的想法类似，在其中添加了一些额外的geomPolygon图层的ggmap，然后它成为R Shiny页面的整个背景，并且小部件位于其上。 / p>

Answer 1

我没有ggmap API密钥，但其工作方式相同。你们都使用CSS来做到这一点。

您必须将主体高度和宽度设置为100％，这同样适用于绘图，因此它们会扩展到视口的宽度和高度。

所有设置都必须设置为position: absolute。这意味着div距顶部10像素，距右侧10像素。 absolutePanel为您完成了此设置，但是您可以在自己的CSS中进行设置。

library(shiny)
library(leaflet)
library(RColorBrewer)
library(ggmap)


ui <- bootstrapPage(
  tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
  plotOutput("map", width = "100%", height = "100%"),
  absolutePanel(top = 10, right = 10,
                sliderInput("range", "Magnitudes", min(quakes$mag), max(quakes$mag),
                            value = range(quakes$mag), step = 0.1
                ),
                selectInput("colors", "Color Scheme",
                            rownames(subset(brewer.pal.info, category %in% c("seq", "div")))
                ),
                checkboxInput("legend", "Show legend", TRUE)
  )
)

server <- function(input, output, session) {

  output$map <- renderPlot({
    df <- data.frame(
      gp = factor(rep(letters[1:3], each = 10)),
      y = rnorm(30)
    )
    ds <- do.call(rbind, lapply(split(df, df$gp), function(d) {
      data.frame(mean = mean(d$y), sd = sd(d$y), gp = d$gp)
    }))


    ggplot(df, aes(gp, y)) +
      geom_point() +
      geom_point(data = ds, aes(y = mean), colour = 'red', size = 3)
  })

}

shinyApp(ui, server)