2011-01-18 15 views

Odpowiedz

8

Pakiet rpanel działa u mnie.

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

Oto kolejny przykład użycia 'rpanel': http://revgr.com/2012/12/11/interactive-graphs-using-r/ –

2

Funkcja tkexamp w pakiecie TeachingDemos pomaga w tworzeniu wykresu z kontrolkami służącymi do zmiany różnych opcji na wykresie. Istnieje kilka przykładów na stronie pomocy, które można uruchomić, aby zobaczyć, jak to działa.

Funkcja TkIdentify w tym samym pakiecie umożliwia przeciągnięcie etykiet (wraz z liniami wskazującymi punkty z etykietami) do żądanej pozycji, można rozpocząć od kodu z tej funkcji (wszystkie R, bez kompilacji) jako podstawy dla twojej własnej dynamicznej fabuły, która pozwoliłaby przeciągnąć linię.

11

i playwith oferują funkcje interaktywne dla wykresów statystycznych R.

Aby zmienić określone szczegóły, można zapisać wykres w formacie SVG i edytować go w formacie inkscape.