r - ggplot2 和 Shiny 的 : how to scale the size of legend with figure size?

Question

在 ggplot2 中，元素的大小是单独指定的。当图形的大小发生变化时，元素(例如图例)不会发生变化。当输出 ggplot2 图形的大小随浏览器窗口变化时，这可能是 Shiny 中的一个问题。下面是一个虚拟的 Shiny 应用程序和两个不同浏览器窗口大小的输出数字的代码。较小的数字很难看，因为其传说的一部分已被切断。

有没有一种方法可以直接在 ggplot2 中使用图形大小缩放图例大小，而无需将图形预先保存为 Shiny 应用程序的图像文件？

library(shiny)
library(ggplot2)

ui <- fluidPage(
    br(), br(), br(),
    plotOutput("test", height = "auto")
)

server <- function(input, output, session) {
    output$test <- renderPlot(
        height = function() {
            0.8 * session$clientData$output_test_width
        },
        expr = {
            aaa <- ggplot(mtcars, aes(wt, mpg, color = cyl)) + 
                geom_point() + 
                theme(legend.position = c(0.9, 0.9))
            print(aaa)
        }
    )
}

shinyApp(ui, server)

较大浏览器窗口中的图看起来不错:


但是在小的浏览器窗口中，图例的顶部没有显示:

Answer 1

这是一种 anchor 定图例顶部的方法，这样它就不会超出绘图区域的顶部。您只需添加 legend.justification(0.5, 1)到 ggplot theme .第一个值将图例的 x 位置居中。第二个值“顶部对齐”图例的 y 位置。 (您可以通过将第一个值的 0.5 更改为 1 来右对齐图例，这将防止图例从图形的右边缘运行，如果这是一个问题。)这并不能解决相对大小问题，但是完整的图例将始终可见且位于同一位置。

server <- function(input, output, session) {
  output$test <- renderPlot(
    height = function() {
      0.8 * session$clientData$output_test_width
    },
    expr = {
      aaa <- ggplot(mtcars, aes(wt, mpg, color = cyl)) + 
        geom_point() + 
        theme(legend.position = c(0.9, 0.98),
              legend.justification=c(0.5, 1))
      print(aaa)
    }
  )
}

下面我插入了“小”和“大”浏览器窗口中的图像。