R语言实时动态绘图如何不中断进程通过鼠标点击获取图表值

原生locator()属于阻塞式调用，运行时会暂停R主进程等待用户操作，直接嵌入无限循环的动态绘图逻辑时，会中断数据更新与绘图流程，无法满足边刷新边取值的需求。
实现无中断取值的核心思路是调用R基础图形系统的非阻塞事件监听接口：每次循环完成绘图后，用极短的超时时间检测鼠标点击事件，检测到点击就记录对应坐标，无操作则直接进入下一轮更新，整个过程不会阻塞原有动态逻辑。

完整实现代码 #

# 全局变量，存储所有鼠标点击的坐标记录
click_records <- list()

online <- function(){
  x <- rnorm(100)
  # 初始化绘图窗口
  plot.new()
  while(TRUE){
    # 原有数据接入、更新逻辑
    ping <- sample(seq(0.005,0.1,by = 0.005), 1)
    Sys.sleep(time = ping)
    new_val <- rnorm(1)
    x <- tail(append(x,new_val),100)
    
    # 绘制实时折线
    plot(x, t="l", main = "实时动态折线图（点击即可取值）")
    # 绘制历史点击标记（不需要可删除该段）
    if(length(click_records) > 0){
      for(clk in click_records){
        abline(h = clk$y, v = clk$x, col=4, lty=2, lwd=2)
        points(clk$x, clk$y, col=2, pch=19)
      }
    }
    
    # 绑定鼠标点击事件：点击时将坐标写入全局记录列表
    setGraphicsEventHandlers(
      onMouseDown = function(button, x, y){
        click_records[[length(click_records)+1]] <<- list(x=x, y=y)
        NULL
      }
    )
    # 非阻塞启动监听，0.01秒超时无操作则直接进入下一轮循环
    getGraphicsEvent(timeout = 0.01)
  }
}

使用方法 #

• 直接在控制台执行online()即可启动动态绘图，数据更新、折线重绘逻辑和原版本完全一致
• 绘图过程中随时在图表窗口点击鼠标，即可自动捕获当前点击位置的坐标值，同时在图上标注参考线和点位，全程无卡顿、不中断数据更新
• 需要查看已记录的取值时，直接在控制台输入click_records即可输出所有历史点击的x、y值，返回格式和静态图下locator()的输出完全一致

调整说明 #

• 监听超时时间timeout = 0.01可根据实际数据刷新频率调整，只要小于最小数据刷新间隔，就不会对流畅度产生影响
• 不需要保留历史点击标记的话，直接删除循环中遍历click_records绘图的代码段即可；也可以将click_records改为单值变量，仅保留最近一次点击的结果
• 该方案完全基于R基础图形系统的内置接口实现，无需安装任何第三方包，兼容Windows、Mac、Linux系统的默认R绘图窗口

内容的提问来源于stack exchange，提问作者mr.T