library(ggplot2)
library(readxl)

Vendas <- read_excel("D:/BDados.xlsx", sheet = "Plan1")

ggplot(Vendas)+
  stat_count(aes(ID_LOC)) +
  labs(title = "Vendas", x="ID_Regioes", y="Total") +
  theme_grey(base_size = 10)