R 画图增加鼠标点击事件？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

多个图层叠加，鼠标点击一下，才画下一个图？代码如何实现？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何实现

#--------------------------只能在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

llb_321 发表于 2020-5-17 20:45
RStudio的图形设备不支持事件处理，可以用Sys.sleep(x)替代解决，x是秒数。

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

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