用户如何在二维图表上交互式更改一个方面(例如,线条的方向或长度)?
rpanel包对我很有用。
library(rpanel)
lvm.draw <- function(panel) {
x=0:20
plot(x, panel$int + (panel$slo*x), ylim=panel$data, ylab="y", main="Adam's Super Duper Interactive Graph", typ="l", lwd=3, col="red")
grid()
panel
}
ylimdat<-c(-50,50)
panel <- rp.control(title = "Adam's Panel", data=ylimdat, slo=0.5, int=1.0, size=c(300, 160))
rp.slider(panel, var=slo, from=-5, to=5, action=lvm.draw, title="Slope", pos=c(5, 5, 290, 70), showvalue=TRUE)
rp.slider(panel, var=int, from=-50, to=50, action=lvm.draw, title="Intercept", pos=c(5, 70, 290, 90), showvalue=TRUE)
TeachingDemos包中的tkexamp函数帮助您创建一个图形,其中包含更改绘图中各种选项的控件,在帮助页面上有几个示例可运行以查看其工作原理。
同一包中的TkIdentify函数允许您拖动标签(以及从点到标签的线),将其移到所需位置,您可以从该函数的代码(全部为R,没有编译)开始,作为自己动态绘图的基础,使其能够拖动一条线。
rpanel
的示例:http://revgr.com/2012/12/11/interactive-graphs-using-r/ - bill_080