2011-01-18 245 views

回答

8

的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)  
+0

下面是使用'rpanel'的另一個示例:http://revgr.com/2012/12/11/interactive-graphs-using-r/ –

2

在TeachingDemos包中的tkexamp功能可幫助您創建與對照圖改變中的情節不同的選項,還有可以運行,看看它是如何工作的幫助頁面上的幾個例子。

同一包中的TkIdentify函數允許您將標籤(連同從點指向標籤的線)拖動到所需的位置,您可以從該函數的代碼開始(全部爲R,沒有編譯)作爲基礎爲自己動態的情節,這將允許拖動一條線。

11

latticistplaywith都提供針對R的統計圖的交互功能。

修改的具體細節可以節省SVG格式圖形和Inkscape中編輯。