css - 如何减少Shiny中的白色边距

我在Shiny中的情节输出有问题。使用标准ggplots，我具有正确的输出，意味着没有多余的白色边距，但是当我使用“ ggmap”包（其输出也是ggplot类型）时，会出现白色边距

（只需忽略波兰语，这并不重要）
！例：


代码：ui.R

    shinyUI(fluidPage(
  fluidRow(class="row2",
           tags$head(
             tags$style("body {background-color: #94BEE8; height: 600px}")
           ),
           column(
             h3("Filtry"),
             dateInput("date", label=h5("Data"), value = "2014-09-07", min = "2014-09-01", max="2014-09-14"),
             sliderInput("godz", label=h5("Godzina"), min = 0, max = 23, value = 15, animate= TRUE),
             textInput("text1", label=h5("Adres I"), value="Piotrkowska 30, Lodz"),
             textInput("text2", label=h5("Adres II"), value = "Uniwersytecka 5, Lodz"),
             numericInput("r", label=h5("Promień [w km]"), value = 1, min = 0.1, max = 100),
             sliderInput("zoom", label="", min =1, max = 21, value = 13),
             submitButton(text="Wprowadź dane"),
             width = 2),
           column(5,
                  div(plotOutput("mapa", width = "100%")
                      , style = "height: 300px; background-color: #94BEE8;")
           ),
           column(5,
                  htmlOutput("tabela")
           ))
  ))

server.R的一部分

 # Plotting
    g <- p+
        geom_point(data = data, aes(x = LONGITUDE, y = LATITUDE, size = LICZBA.NUMEROW), col = "yellow")+
        geom_point(data= data, aes(x=LONGITUDE, y=LATITUDE, size = (0.625)*LICZBA.NUMEROW), col ="black", alpha = 0.4)+
        geom_point(data=adres1, aes(x=lon, y=lat), size=15, col = "blue", alpha = 0.35)+
        geom_point(data=adres2, aes(x=lon, y=lat), size =15, col ="red", alpha=0.35)+
       xlab("")+ylab("")+ggtitle("TYTUŁ")+
        theme(
          legend.position = "bottom",
          legend.title=element_text(""),
          legend.key = element_rect(colour = "black"),
          legend.background = element_rect(fill="#94BEE8"),
          plot.background = element_rect(fill = "#94BEE8", colour = 'red')
          )+scale_colour_discrete(name="LICZBA POŁĄCZEŃ")
  plot(p)
    }, width=500, height=500)

问题2
我在向ggmap对象添加矩形或圆形（例如半径2km）时遇到问题。

在此先感谢您的帮助。

最佳答案

通过使用解决

+coord_fixed(ratio = 1.45)

它不是确切的答案，但是可以正常工作。

我通过应用geom_polygon()解决了第二个问题。我不知道为什么最近没用。