我正在制作一个图形，在中心周围绘制一系列箭头，有点像自行车轮胎轮，但箭头指向内部 . 箭头数量等输入都通过一个闪亮的应用程序控制，该应用程序调用我的绘图功能如下：
FPlot1<-function(arr.dat,var_explained){
g<-rasterGrob(img,interpolate=TRUE)
plot.grid<-ggplot(data=arr.dat,aes(colour=val))+scale_colour_gradient2(low="blue",mid="purple",high="red",midpoint=0,guide="colourbar")+theme_bw()#+coord_fixed()# +facet_grid(pc ~.)
plot.grid<-plot.grid+
scale_x_continuous(name="",limits=c(-7,7))+
scale_y_continuous(name="",limits=c(-7,7))+
geom_segment(data=arr.dat, aes(x=x2,y=y2,xend=x1,yend=y1,size=abs(val)*4),arrow=arrow(length=unit(.5,"cm")))+
geom_text(data=arr.dat,aes(x=center+6*cos(angle), y=center+5.3*sin(angle),label=row),colour="black",size=3)+
annotation_custom(g,xmin=-1,ymin=-1,xmax=1,ymax=1)+
geom_text(data=arr.dat,aes(x=center,y=center,label=pc),colour="black",size=4,fontface="bold",family="Times")+
geom_text(data=arr.dat,aes(x=xmid,y=ymid,hjust=1,vjust=1,angle=(txtangle*180/pi),label=val),colour="black",size=4)+
theme(line=element_blank(),text=element_blank(),line=element_blank())
return(plot.grid)
}
我遇到的关键问题是当它们变大时箭头看起来很糟糕，如下左箭头所示 . 我一直在寻找是否有控制箭头在ggplot但没有运气 . 我宁愿留在ggplot，因为有一个数据框控制我的情节的所有部分是方便的，但如果我需要切换我明白！
感谢您的帮助！
这是一个快速截图 .
已输入上述功能的数据框
structure(list(row = structure(c(3L, 1L, 2L), .Label = c("actualdisplacement",
"LHPA_wk1", "STD_TissDeform"), class = "factor"), x1 = c(-0.75,
-0.750000000000001, 1.5), y1 = c(1.29903810567666, -1.29903810567666,
-3.67394039744206e-16), x2 = c(-2.5, -2.5, 5), y2 = c(4.33012701892219,
-4.33012701892219, -1.22464679914735e-15), val = c(0.914, 0.371,
0.068), center = c(0, 0, 0), angle = c(2.0943951023932, 4.18879020478639,
6.28318530717959), pc = structure(c(1L, 1L, 1L), .Label = "PC1", class = "factor"),
xmid = c(-1.625, -1.625, 3.25), ymid = c(2.81458256229943,
-2.81458256229942, -7.9602041944578e-16), txtangle = c(-1.0471975511966,
1.0471975511966, 6.28318530717959), stringAsFactors = c(1,
1, 1)), .Names = c("row", "x1", "y1", "x2", "y2", "val",
"center", "angle", "pc", "xmid", "ymid", "txtangle", "stringAsFactors"
), row.names = c(NA, -3L), class = "data.frame")