仪表板 - （拨）米在R

Question

我想知道是否有可能做R这种仪表板（我的意思是这种情节）？

这里，我想中的R做的（首先是从SAS）

编辑例子：我在Windows 7（64位）工作。

Answer 1

下面是一些开始使用图形的基础。让它更漂亮留给读者。你可以在这里看到一个例子：http://www.math.csi.cuny.edu/gw/ex-dashboard.R。

dashboard <- function(dial=list(
         list(color="red", 
          range=c(10, 40)), 
         list(color="yellow", 
          range=c(40, 60)), 
         list(color="green", 
          range=c(70, 100)) 
         ), 
         value=from) { 


    from <- min(unlist(lapply(dial, "[[", i="range"))) 
    to <- max(unlist(lapply(dial, "[[", i="range"))) 

    theta <- seq(-pi/3, pi + pi/3, length=100) 
    r <- 1 

    scale <- function(x) { 
    m <- (pi + pi/3 - (-pi/3))/(from - to) 
    (pi + pi/3) + m*(x - from) 
    } 

    plot.new() 
    plot.window(xlim=c(-1, 1), ylim=c(sin(-pi/3), 1)) 

    lines(cos(theta), sin(theta)) 
    sapply(dial, function(l) { 
    d <- scale(l$range) 
    x <- seq(d[1], d[2], length=100) 
    lines(cos(x), sin(x), col=l$color, lwd=3) 
    }) 

    ticks <- pretty(c(from, to), n=5) 
    ticks_th <- scale(ticks) 
    r <- 1 - .15 
    text(r*cos(ticks_th), r*sin(ticks_th), labels=ticks) 

    sapply(ticks_th, function(th) { 
    lines(cos(th)*c(1,.95), sin(th)*c(1, .95)) 
    }) 

    r <- 1 - .25 
    th <- scale(value) 
    arrows(0, 0, cos(th), sin(th)) 


} 

dashboard(value=60) 

Answer 2

这有一点做与R，但只如何让代表仪表板项目 GUI控件的保持。

我认为Gtk2可能会这样做，所以RGtk2包（及其包装）可能会有所帮助。我知道Qwt工具包有这样一个事实，但那个更难以访问（因为你需要一个C++桥）。

Answer 3

你可以做极坐标图类似：

require(plotrix) 
polar.plot(c(0,20),c(0,60),main="Dashboard",lwd=3,line.col=4) 

您可以深入挖掘的代码，如果你想自定义外观。使用radial.plot可能会给你更多的自定义。