It is not a bug, just your data contains lot of 0 values. For example, if I make x with twelve 0 and one 1, I get result that 3rd quartile is smaller than mean
x<-c(0,0,0,0,0,0,0,0,0,0,0,0,1)
summary(x)
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.00000 0.00000 0.00000 0.07692 0.00000 1.00000
Try to use table() on your column to see distribution of values
table(x)
x
0 1
12 1