cómo cambiar el orden en la tabla de barras r r

tips2$day <- factor(tips2$day,levels = c("Fri", "Sat", "Sun", "Thur"))
Doubtful Dove