R中的交互式图形数据输入

Question

是否可以使用R进行交互式和图形用户数据输入？

我有一个时间矢量t<-1:100，我希望用户提供图形化的y值。

理想情况下，我希望界面从y<-rep(0, length(t))开始，有一个做一个plot(t,y, ylim=c(0,50), type="h")，我希望用户绘制在每个测试的y的高度。

然后使用用户提供的图形化y矢量进行一些计算。

使用R可以做到这一点吗?或者我应该转向javascript？Shiny能做到这一点吗？

Answer 1

如果你想在R中原生地做这件事(不需要打开Shiny等)您可以使用locator函数，该函数将在单击图形设备时记录鼠标的位置。它的第一个参数接受一些位置/点击来记录。

这是一个简单的例子，每次点击后都会更新你的绘图：

t <- 1:5
y <- rep(0, length(t))
plot(t,y, ylim=c(0,50), type="h")
for(i in seq_along(t)){
    y[i] <- locator(1)$y
    plot(t,y, ylim=c(0,50), type="h")
}