如何删除R中情节的空白部分?

时间:2016-03-15 16:02:37

标签: r plot

我对R情节有疑问。 问题是我的图表位于图表的中心,并希望删除周围不必要的空白区域。 设置轴的限制无济于事。

我的R代码如下:

visualize_circle_arrows <- function(x) {
  colors<- unlist(lapply(x$MeanOffsetLength,get_grey_color, max(x$MeanOffsetLength), min(x$MeanOffsetLength)), recursive = TRUE, use.names = TRUE)
  library(graphics)
  plot(x$IconCenterX, -x$IconCenterY, xlim=c(0, 1080), ylim=c(-1920, 0), asp=1, cex = .05, col = "blue", main="Offset vector for Thumb in warm",
       xlab="X coordinates of the screen, px", ylab="Y coordinates of the screen, px")
  radius <- rep(135,times=nrow(x)) 

  symbols(x$IconCenterX, -x$IconCenterY, circles=radius, add=TRUE, inches=FALSE, bg=colors)

  arrows(x$IconCenterX, -x$IconCenterY, x1 = x$MeanTouchX, y1 = -x$MeanTouchY, length = 0.04, angle = 25,
         code = 2, col = "black", lty = par("lty"),
         lwd = 2)
}

get_grey_color <- function(x,max=135, min=0) {
  value <- ((x+10-min)/(max+10-min))
  rgb(value, value, value)
}
visualize_circle_arrows(warm_thumb)

,结果如下图所示 my graph

非常感谢任何帮助! 非常感谢!

P.S。 warmthumb对象的快照在这里 warmthumb object

0 个答案:

没有答案