This is a question about how to understand qqplot results. To present the problem, I have a set of 54 measurements from archaeological objects. I calculated both kurtosis and skewness with the Moments package and I plotted the data with ggplot, to assess if they followed a normal distribution.
> library(ggplot2)
> library(moments)
> volume
[1] 39.984 77.280 81.252 98.304 113.520 190.190 440.220 739.500 750.120 35.100 57.960 170.586 225.262 574.308 584.100 609.280 711.360 746.928 186.576
[20] 1.500 1.512 1.890 1.950 5.280 7.200 7.200 9.200 9.280 24.752 39.528 49.880 67.620 73.950 342.000 401.625 468.000 512.818 565.250
[39] 29.040 80.344 68.370 88.830 121.176 128.800 133.200 18.000 69.312 89.880 180.264 265.680 412.720 638.400 680.400 506.000
> volume <- as.data.frame(volume)
> kurtosis(volume)
volume
2.280249
> skewness(volume)
volume
0.8915582
> ggplot(volume) + geom_qq(aes(sample=volume)) + stat_qq_line(aes(sample=volume)) + theme_bw() + xlab("Theoretical") + ylab("Sample") + ggtitle("Quantile-Quantile")
The shape of the curve seems very odd, and I'm not sure how to understand it. Does it simply shows that these are, in fact, samples from two populations? Or maybe I'm trying a calculation that doesn't make sense? I've been looking for similar cases over the internet, but couldn't find any.