儀表板 - （撥）米在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可能會給你更多的自定義。