Hello everyone. I have a problem with ListPlot. I want to draw various vectors and a weighted mean between them. The vectors are plotted as continous lines, but the mean is not; since the weighted mean is very close to three of the vectors, I cannot see it propperly; I have thought that making bigger points would solve this problem, but I have tried to use PointSize to change this, but it has no effect:

My code is as follows:

g1 = ListPlot[{matRealizations[[1]], matRealizations[[2]], 
   matRealizations[[3]], matRealizations[[4]], matRealizations[[5]], 
   matRealizations[[6]], matRealizations[[7]], matRealizations[[8]], 
   matRealizations[[9]], {gausXVsYMean}}, 
  Joined -> {True, True, True, True, True, True, True, True, True, 
    False}, AspectRatio -> Abs[Min[gausMeanY]]/Abs[Min[gausMeanX]], 
  PlotStyle -> PointSize[100000000]]

If someone can tell me what I have done wrong or tell me another way to make the mean more vissible I would be most thankful.

Best regards. Jaime.