Вы можете сделать это с помощью пакета cairoDevice:
library(RGtk2)
library(cairoDevice)
da <- gtkDrawingArea()
asCairoDevice(da)
da$AddEvents(GdkEventMask["all-events-mask"])
w <- gtkWindow(show=FALSE)
w$add(da)
w$show()
hist(rnorm(100))
gSignalConnect(da, "motion-notify-event", function(w, e) {
print(c(e$x, e$y))
invisible(TRUE)
})