我对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