Utilizando os dados que colocou na pergunta: > ID Home range (m) > #MB02 156.148 > #MB03 247.969 > #MB04 156.148 > #MB05 92.400 > #MB06 1022.954 > #MB07 156.148 > #MB08 672.731 > #MB09 156.148 > #MB10 594.328 > #MB11 554.670 > #MB12 672.731 > #MB13 474.969 > #MB14 0.000 > #MB15 0.000 > #MB16 156.506 Você pode utilizar sim o reorder em x: ``` v1 <- c('MB02','MB03','MB04','MB05','MB06','MB07', 'MB08','MB09','MB10','MB11','MB12','MB13', 'MB14','MB15','MB16') v2 <- c(156.148, 247.969,156.148,92.400,1022.954,156.148, 672.731,156.148,594.328,554.670,672.731,474.969, 0.000,0.000,156.506) dados <- as.data.frame(cbind(v1,v2)) dados$v2 <- as.numeric(as.character(dados$v2)) library(ggplot2) ggplot(dados, aes(x = reorder(v1, -v2), y = v2)) + geom_bar(stat="identity") + labs(x = "ID dos Tags", y = "Home range linear (m)") ``` Saída: [![histogram][1]][1] [1]: https://i.sstatic.net/RpLbK.png