r - Rで時計を描く方法は？

Question

私はRに取り組んでおり、円グラフを使用して時計を描画しようとしています。

コード：

pie(c(25,20,15,10,10,30),
    labels = c(1,2,3,4,5,6,7,8,9,10,11,12),
    col = rainbow(length(lbls)), clockwise = TRUE, init.angle = 90)

しかし、入力内のセグメントの数に関係なく、12個のラベルすべてが存在する必要があります。

どうすれば実装できますか？

よろしく

Answer 1

Paul Murrell の最後の本 ( R グラフィックス 2nd Edition ) には、 と を使用して対話型時計を描画するためのコードがいくつかgridありgwidgetます。

以下は、単純な非対話型時計を描画するためのサンプル コードです。

require(grid)

drawClock <- function(hour, minute) {
    t <- seq(0, 2*pi, length=13)[-13]
    x <- cos(t)
    y <- sin(t)

    grid.newpage()
    pushViewport(dataViewport(x, y, gp=gpar(lwd=4)))
    # Circle with ticks
    grid.circle(x=0, y=0, default="native", 
                r=unit(1, "native"))
    grid.segments(x, y, x*.9, y*.9, default="native")
    # Hour hand
    hourAngle <- pi/2 - (hour + minute/60)/12*2*pi
    grid.segments(0, 0, 
                  .6*cos(hourAngle), .6*sin(hourAngle), 
                  default="native", gp=gpar(lex=4))
    # Minute hand
    minuteAngle <- pi/2 - (minute)/60*2*pi
    grid.segments(0, 0, 
                  .8*cos(minuteAngle), .8*sin(minuteAngle), 
                  default="native", gp=gpar(lex=2))    
    grid.circle(0, 0, default="native", r=unit(1, "mm"),
                gp=gpar(fill="white"))
}

今、あなたはこのようにそれを試すことができます

drawClock(hour = 2, minute = 30)

完全なコード はこちら

Answer 2

同じ問題が発生した後のこのトピックに関する更新。パイと時計を上に置きたい場合は、「GridBase」パッケージを使用する必要があります。

例 (コードの基礎としてdickoaの優れたソリューションを使用):

require('grid')
require('gridBase')    

pie(c(1,2), 
clockwise=TRUE,
radius=1.0, 
init.angle=90, 
col=c('pink', 'lightblue'),
border=NA)

drawClock <- function(hour, minute) 
    {
    t <- seq(0, 2*pi, length=13)[-13]
    x <- cos(t)
    y <- sin(t)

    vps <- baseViewports()
    pushViewport(vps$inner, vps$figure, vps$plot)
    # ticks

    grid.segments(x, y, x*.9, y*.9, default="native")
    # Hour hand
    hourAngle <- pi/2 - (hour + minute/60)/12*2*pi
    grid.segments(0, 0, 
                  .6*cos(hourAngle), .6*sin(hourAngle), 
                  default="native", gp=gpar(lex=4))
    # Minute hand
    minuteAngle <- pi/2 - (minute)/60*2*pi
    grid.segments(0, 0, 
                  .8*cos(minuteAngle), .8*sin(minuteAngle), 
                  default="native", gp=gpar(lex=2))    
    popViewport(3)
}

drawClock(hour = 2, minute = 25)

結果：