我正在研究 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 个标签都存在,而与输入中的任何段无关。
我该如何实施?
问候
Paul Murrell 在他的上一本书(R 图形第 2 版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)
完整代码 在这里
遇到相同问题后对此主题的更新。如果你想把你的馅饼和时钟放在上面,你应该使用'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)
结果: