Как изменить заказ в батонной таблице r

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