#--------------------------只能在R中执行，不适用RStudio
mouse <- function() {
  mouseDown <- function(buttons, x, y) {
    return(invisible(1))
  }
  getGraphicsEvent(prompt = "鼠标按键继续", onMouseDown = mouseDown)
}

testdata <- data.frame(a = runif(100, 40, 70), b = runif(100, 30, 90))

library(ggplot2)
g <- ggplot(testdata) + aes(a, b)
g
mouse()
g <- g + geom_point()
g
mouse()
g <- g + geom_smooth(method = "loess", formula = y ~ x)
g
print("If it does not work, let me know")

试试看吧

RStudio的图形设备不支持事件处理，可以用Sys.sleep(x)替代解决，x是秒数。

还有一种方法，但也是在R中实现的

par(ask=TRUE)
testdata <- data.frame(a = runif(100, 40, 70), b = runif(100, 30, 90))

library(ggplot2)
g <- ggplot(testdata) + aes(a, b)
g

g1 <- g + geom_point()
g1

g2 <- g1 + geom_smooth(method = "loess", formula = y ~ x)
g2

使用Sys.sleep(x)替代解决的方法的话，但是图片会不断刷新，能不能不让图片刷新？

我试了rstudio中Sys.sleep(2)，可以啊，没出现你说的刷新的情况