在ggplot2/R中按订单订购工作日

Question

以下数据集按工作日分类。

> member_casual   weekday  count
1        casual Wednesday 218101
2        casual   Tuesday 214898
3        casual    Sunday 403728
4        casual  Saturday 468259
5        casual    Friday 289970
6        casual  Thursday 224154

当我用条形图绘制时，工作日不是按时间顺序排列的：

chart <- ggplot(member_causal_weekly, aes(x=weekday, y=count, fill=weekday))+
geom_bar(stat="identity")+
facet_wrap(~member_casual)+
geom_text(aes(label=count), vjust=1.6, color="white", size=3)+
theme (axis.text.x=element_text(angle=45, hjust=1))

图形

Answer 1

仅重新排序因子级别：

member_causal_weekly$weekday <- factor(member_causal_weekly$weekday,
levels = c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"))
chart <- ggplot(member_causal_weekly, aes(x=weekday, y=count, fill=weekday))+
geom_bar(stat="identity")+
facet_wrap(~member_casual)+
geom_text(aes(label=count), vjust=1.6, color="white", size=3)+
theme (axis.text.x=element_text(angle=45, hjust=1))