2011-01-18 5 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

Функция tkexamp в пакете TeachingDemos поможет вам создать график с элементами управления для изменения различных параметров на графике. На странице справки можно просмотреть несколько примеров, которые можно запустить, чтобы увидеть, как это работает.

Функция TkIdentify в том же пакете позволяет перетаскивать метки (вместе с линиями, указывающими из точек на метки) в нужную позицию, вы можете начать с кода из этой функции (все R, ничего не скомпилировано) в качестве основы для вашего собственного динамического сюжета, который позволит перетаскивать строку.

11

latticist и playwith предлагает интерактивную функциональность для статистических графиков R.

Для изменения конкретной информации вы можете сохранить график в формате SVG и отредактировать его в inkscape.

Смежные вопросы