如何在RStudio外交互式使用{ragg}并实现窗口resize自动重绘？

问题背景 #

在RStudio外运行R时，默认使用系统自带的交互式图形设备（macOS的quartz、Unix的X11、Windows的windows）弹出窗口展示绘图。这类设备支持调整窗口大小后自动重绘适配，但渲染速度偏慢。

{ragg}包提供的ragg::agg_png()等设备渲染速度更快、效果更好，但不支持窗口resize自动重绘，必须提前指定尺寸；而RStudio内部能借助后台机制实现{ragg}的交互式resize重绘。

需求 #

在RStudio外使用{ragg}作为绘图后端，让绘图显示在浮动窗口中，且调整窗口大小时能自动重绘。

已尝试无效方案 #

曾尝试让默认quartz设备指定{ragg}作为后端，但未能成功；还通过系统默认PNG浏览器模拟基于{ragg}的交互式设备，但无法实现resize时自动重绘，代码如下：

options(device = function() {
  file <- tempfile("last_plot_", fileext = ".png")

  ragg::agg_png(file, height = 480 * 5, width = 480 * 5, scaling = 5)

  withr::defer(
    {
      dev.off()
      browseURL(file)
    }, 
    sys.frame(1)
  )
})

可行解决方案 #

借助{shiny}搭建轻量级交互式窗口，监听窗口尺寸变化，每次resize时用{ragg}重新渲染绘图并更新展示，具体实现如下：

代码实现 #

library(shiny)
library(ragg)

# 自定义绘图逻辑（可替换为你的绘图代码）
render_with_ragg <- function(width, height) {
  tmp_png <- tempfile(fileext = ".png")
  # 用ragg生成适配当前窗口尺寸的图片
  agg_png(tmp_png, width = width, height = height, res = 96)
  # 示例绘图：替换成你自己的ggplot/基础绘图代码
  plot(rnorm(100), rnorm(100), main = "基于ragg的可resize绘图", cex.main = 1.2)
  dev.off()
  tmp_png
}

# 构建Shiny界面
ui <- fluidPage(
  tags$style("html, body { margin: 0; padding: 0; overflow: hidden; }"),
  imageOutput("dynamic_plot", width = "100%", height = "100%")
)

server <- function(input, output, session) {
  # 监听窗口尺寸变化
  observe({
    invalidateLater(300, session)
    session$sendCustomMessage(
      "updateWindowSize",
      list(width = session$clientData$output_dynamic_plot_width,
           height = session$clientData$output_dynamic_plot_height)
    )
  })
  
  # 响应尺寸变化，重新渲染绘图
  output$dynamic_plot <- renderImage({
    req(session$clientData$output_dynamic_plot_width,
        session$clientData$output_dynamic_plot_height)
    
    plot_width <- session$clientData$output_dynamic_plot_width
    plot_height <- session$clientData$output_dynamic_plot_height
    
    list(
      src = render_with_ragg(plot_width, plot_height),
      width = "100%",
      height = "100%",
      alt = "交互式绘图"
    )
  }, deleteFile = TRUE)
}

# 启动Shiny应用
shinyApp(ui, server, options = list(launch.browser = TRUE, width = 800, height = 600))

方案说明 #

1. 利用Shiny的窗口尺寸监听能力，实时获取窗口宽高，触发{ragg}重新渲染适配尺寸的图片。
2. render_with_ragg函数是绘图逻辑入口，可直接替换为你的ggplot2、基础绘图或其他可视化代码，只需保证在agg_png设备环境中执行即可。
3. 运行代码后会自动弹出系统默认浏览器窗口，调整窗口大小时，绘图会自动适配新尺寸并刷新。
4. 可通过调整invalidateLater的时间间隔（单位毫秒），平衡响应速度与性能消耗。

内容的提问来源于stack exchange，提问作者wurli