Question

我在Shiny中的绘图输出有问题。使用标准ggplots我有正确的输出，意味着没有额外的白色边缘，但是当我使用＆＃34; ggmap＆＃34;包（其输出也是ggplot类型）出现白色边缘

（只是忽略波兰语，它并不重要）！例： Example image

代码：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。

提前感谢您的帮助。

Answer 1

使用

解决

+coord_fixed(ratio = 1.45)

这不是精确的，但工作正常。

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

如何减少Shiny中的白边

1 个答案: