使用 renderPlot() 删除 R Shiny ggplot 中 geom_sf() 对象周围的白边

Question

我注意到当背景为非白色时，sf::geom_sf() 中 renderPlot() 中 UI 中的 renderPlot() 对象周围出现了意想不到的白框。

Shiny 中的其他 geom_ 对象似乎不会出现此问题（但是...请参阅 post 的末尾）。

理想情况下，我想弄清楚如何让 ggplot2 对象在 Shiny 中显示，以便它们与背景颜色相匹配。

这是一个 link to a short GIF on twitter showing the discrepancy I noticed between regular ggplot2() objects and geom_sf() objects on my data。

下面的代码似乎有效：

library(shiny)
library(shinyWidgets)
library(ggplot2)


# Define UI for application that draws a histogram
ui <- fluidPage(#setBackgroundColor("#E5C595"),
        # Application title
        titlePanel("Old Faithful Geyser Data"),

        # Sidebar with a slider input for number of bins 
        sidebarLayout(
                sidebarPanel(
                        sliderInput("bins",
                                    "Number of bins:",
                                    min = 1,
                                    max = 50,
                                    value = 30)
                ),

                # Show a plot of the generated distribution
                mainPanel(
                        plotOutput("distPlot")
                )
        )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

        output$distPlot <- renderPlot({
                # generate bins based on input$bins from ui.R
                data    <- as.data.frame(faithful[, 2])
                colnames(data) <- "value"
                bins <- seq(min(data), max(data), length.out = input$bins + 1)

                ggplot(data, aes(x=value)) +
                        geom_histogram() +
                        theme(
                                axis.line = element_blank(),
                                axis.text.x = element_blank(),
                                axis.text.y = element_blank(),
                                axis.ticks = element_blank(),
                                axis.title.x = element_blank(),
                                axis.title.y = element_blank(),
                                panel.grid.major = element_blank(),
                                panel.grid.minor = element_blank(),
                                plot.background = element_rect("#E5C595", color = NA),
                                panel.background = element_rect("#E5C595", color = NA),
                                legend.background = element_rect("#E5C595", color = NA),
                                legend.box.background = element_rect("#E5C595", color = NA),
                                #panel.border = element_rect("transparent", color = NA)
                        )
        })
}

# Run the application 
shinyApp(ui = ui, server = server)

我将使用 r-spatial.com 中的一个简单示例来说明 geom_sf() 个对象的问题。

library(shiny)
library(shinyWidgets)
library(ggplot2)
library(sf)
library(rnaturalearth)
library(rnaturalearthdata)
library(rgeos)

world <- ne_countries(scale = "medium", returnclass = "sf")
class(world)

# Define UI for application that draws a histogram
ui <- fluidPage(#setBackgroundColor("#E5C595"), # use shinywidgets to set background color
        includeCSS("style.css"),
        # Application title
        titlePanel("Old Faithful Geyser Data"),

        # Sidebar with a slider input for number of bins 
        sidebarLayout(
                sidebarPanel(
                        sliderInput("bins",
                                    "Number of bins:",
                                    min = 1,
                                    max = 50,
                                    value = 30)
                ),

                # Show a plot of the generated distribution
                mainPanel(
                        plotOutput("distPlot")
                )
        )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

        output$distPlot <- renderPlot({
                # generate bins based on input$bins from ui.R
                data    <- as.data.frame(faithful[, 2])
                colnames(data) <- "value"
                bins <- seq(min(data), max(data), length.out = input$bins + 1)

                ggplot(data = world) +
                        geom_sf() +
                        theme(
                                axis.line = element_blank(),
                                axis.text.x = element_blank(),
                                axis.text.y = element_blank(),
                                axis.ticks = element_blank(),
                                axis.title.x = element_blank(),
                                axis.title.y = element_blank(),
                                panel.grid.major = element_blank(),
                                panel.grid.minor = element_blank(),
                                plot.background = element_rect("#E5C595", color = NA),
                                panel.background = element_rect("#E5C595", color = NA),
                                legend.background = element_rect("#E5C595", color = NA),
                                legend.box.background = element_rect("#E5C595", color = NA),
                                #panel.border = element_rect("transparent", color = NA)
                        )
        })
}

# Run the application 
shinyApp(ui = ui, server = server)

请注意，为了简单起见，我使用了 library(shinyWidgets)。如果您在 .css 文件中设置以下内容，则会出现同样的问题：

body { background-color: #E5C595; }

另一个奇怪的事情是似乎工作的例子仍然有一个你可以看到的白线工件...

Answer 1

在您的 renderPlot 中，您可以添加参数 bg 来设置背景颜色。为避免调整大小时出现问题 ()，您还应添加参数 execOnResize=TRUE.

server <- function(input, output) {
  output$distPlot <- renderPlot({
    # generate bins based on input$bins from ui.R
    data    <- as.data.frame(faithful[, 2])
    colnames(data) <- "value"
    bins <- seq(min(data), max(data), length.out = input$bins + 1)

    ggplot(data = world) +
      geom_sf() +
      theme(
        axis.line = element_blank(),
        axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks = element_blank(),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        plot.background = element_blank(),
        panel.background = element_blank(),
      )
  },  bg="#E5C595", execOnResize=T)
}

# Run the application 
shinyApp(ui = ui, server = server)

使用 renderPlot() 删除 R Shiny ggplot 中 geom_sf() 对象周围的白边

Remove white margin surrounding geom_sf() objects in R Shiny ggplot with renderPlot()

css

r

ggplot2

shiny

sf