Question

如果没有消失，我似乎无法移动我的传奇文本。框架似乎受到绘图输出的约束。

以下是我从其他网站上获取的代码。

 clock.plot <- function (x, col = greys, ...) {
if( min(x)<0 ) x <- x - min(x)
if( max(x)>1 ) x <- x/max(x)
n <- length(x)
if(is.null(names(x))) names(x) <- 0:(n-1)
m <- 1.05
plot(0, type = 'n', xlim = c(-m,m), ylim = c(-m,m), axes = F,axis.title=element_text(size=14,face="bold"), xlab = 'Hours taken GMT', ylab = '', ...)
a <- pi/2 - 2*pi/200*0:200
polygon( cos(a), sin(a) )
v <- .02
a <- pi/2 - 2*pi/n*0:n
segments( (1+v)*cos(a), (1+v)*sin(a), (1-v)*cos(a), (1-v)*sin(a) )
segments( cos(a), sin(a),0, 0, col = 'light grey', lty = 3) 
ca <- -2*pi/n*(0:50)/50
for (i in 1:n) {
  a <- pi/2 - 2*pi/n*(i-1)
  b <- pi/2 - 2*pi/n*i
  polygon( c(0, x[i]*cos(a+ca), 0), c(0, x[i]*sin(a+ca), 0), col=col[i] )
  v <- .1
  text((1+v)*cos(a), (1+v)*sin(a), names(x)[i])
}

图例（x = -1.1，y = 1.3，图例=“原始分布”，bty =“n”，pch = 20，text.col =“black”，cex = 1.2，pt.cex = 4） }

Screenshot

R图像传奇消失

0 个答案: