Align number of breaks according to label options

[PedroJorge7]

A partir desse issue https://github.com/r-lib/scales/issues/206 tive a ideia de criar a seguinte função

    breaksFUN <- function(x){
      round(seq(min(x), max(x), length.out = x_breaks), 0)
    }

Ela até divide em partes iguais de label, mas a posição dos números ficam todos fora de posição