meses <- c("ene","feb","mar","abr","may","jun","jul","ago","sep","oct","nov","dic")
meses
##  [1] "ene" "feb" "mar" "abr" "may" "jun" "jul" "ago" "sep" "oct" "nov" "dic"
ventas <- sample(80000:150000, size = 12)

datos = data.frame(meses,ventas)
barplot(ventas ~ meses, datos)