给出这样的指南针方向数据集：
A<-c(1,1,1,2,2,2,3,3,3,4,4,4)
CompDir<-c(350,358,355,358,2,356,180,173,170,2,3,359)
DF<-data.frame(A,CompDir)
如果我想按小组取平均值：
aggregate(DF[,2],list(DF$A),mean)
当我越过360/0阈值时遇到麻烦。
Group.1 x
1 1 354.3333
2 2 238.6667
3 3 174.3333
4 4 121.3333
第2组和第4组的均值不正确，那么如何正确计算这种方向数据的均值？