R 在圆形图上显示平均箭头

我用循环库绘制我的物候数据（Fejeuncirculange）。我得到了一个传统的图形，但我不可能在这个图中显示平均箭头。我不明白为什么，因为我可以很容易地为绘图中每个月的初始值、段和文本添加箭头。下面是我的代码。代码有问题吗

x11()
plot.new()
library(circular)
na.exclude(tinitialcirculangle)
plot(tinitialcirculangle$Fejeuncirculangle,pch=20,col="blue",stack=TRUE,shrink=1.2,bins=52,ticks=TRUE)
Fejeuncirculangle<-circular(tinitialcirculangle$Fejeuncirculangle,type="angles",units="degrees",template="none",zero=circular(pi/2),rotation="clock",names="Feuiljeuncirculangle")
par(mai=c(0.5,0.75,0.5,0.75),cex.axis=1,cex.lab=1)
rose.diag(Fejeuncirculangle,bins=52,main="",col="darkolivegreen1",axes=FALSE)
points(Fejeuncirculangle,pch=20,col="darkolivegreen1",bg="black",next.points=+0.05)
arrows.circular(Fejeuncirculangle)
arrows.circular(mean(Fejeuncirculangle),angle=15,length=0.20,lwd=5,col="black")

# Month Segments - Ajouter les segments de séparation des mois
segments(0,0,1,0,col="black",lty=3,lwd=1)
segments(0,0,sqrt(3)/2,0.5,col="black",lty=3,lwd=1)
segments(0,0,0.5,sqrt(3)/2,col="black",lty=3,lwd=1)
segments(0,0,0,1,col="black",lty=3,lwd=1)
segments(0,0,-0.5,sqrt(3)/2,col="black",lty=3,lwd=1)
segments(0,0,-sqrt(3)/2,0.5,col="black",lty=3,lwd=1)
segments(0,0,-1,0,col="black",lty=3,lwd=1)
segments(0,0,-sqrt(3)/2,-0.5,col="black",lty=3,lwd=1)
segments(0,0,-0.5,-sqrt(3)/2,col="black",lty=3,lwd=1)
segments(0,0,0,-1,col="black",lty=3,lwd=1)
segments(0,0,0.5,-sqrt(3)/2,col="black",lty=3,lwd=1)
segments(0,0,sqrt(3)/2,-0.5,col="black",lty=3,lwd=1)

# Month texts - Ajouter les mois au graphique circulaire
text(0.2329,0.8693,"J",family="Calibri",font=1,cex=1)
text(0.6363,0.6363,"F",family="Calibri",font=1,cex=1)
text(0.8693,0.2329,"M",family="Calibri",font=1,cex=1)
text(0.8693,-0.2329,"A",family="Calibri",font=1,cex=1)
text(0.6363,-0.6363,"M",family="Calibri",font=1,cex=1)
text(0.2329,-0.8693,"J",family="Calibri",font=1,cex=1)
text(-0.2329,-0.8693,"J",family="Calibri",font=1,cex=1)
text(-0.6363,-0.6363,"A",family="Calibri",font=1,cex=1)
text(-0.8693,-0.2329,"S",family="Calibri",font=1,cex=1)
text(-0.8693,0.2329,"O",family="Calibri",font=1,cex=1)
text(-0.6363,0.6363,"N",family="Calibri",font=1,cex=1)
text(-0.2329,0.8693,"D",family="Calibri",font=1,cex=1)

x11（）
plot.new（）
图书馆（循环）
不包括（微小循环）
绘图（TinitialCirculange$FejeunCirculange，pch=20，col=“蓝色”，堆栈=TRUE，收缩=1.2，箱子=52，刻度=TRUE）
fejeuncirculange试试：

如果这是因为您没有排除NA值，那么我怀疑您的第四行应该是：

tinitialcirculangle <- na.exclude(tinitialcirculangle)

TinitialCirculange事实上是指（fejeunCirculange）返回NA。但是我的值是数字格式的（is.numeric return TRUE），我不明白为什么不能得到平均值。
tinitialcirculangle <- na.exclude(tinitialcirculangle)