my sample code- part of this question was answered by @r2evans.
    DF <- data.frame(Month = 1:12, Val = runif(12,5,35)) %>% 
          mutate(Month = month.name[Month])
ggplot(DF, aes(x = Month, y = Val))+
  geom_bar(stat="identity")
the ggplot produce the following with x-axis starting at different month.
