需要做分面图，但是出来的效果顺序不太对！
比如说正常的标签顺序是A1, A2, A3, ..., A11, ...
但是出来的效果却是A1, A11, ..., A2, A21, ..., A3, ...
因此：
起因
- 数据来源
- 作图
rm(list = ls(all=TRUE))
library(reshape2)
library(ggplot2)
head(tips)
> head(tips)
total_bill tip sex smoker day time size
1 16.99 1.01 Female No Sun Dinner 2
2 10.34 1.66 Male No Sun Dinner 3
3 21.01 3.50 Male No Sun Dinner 3
4 23.68 3.31 Male No Sun Dinner 2
5 24.59 3.61 Female No Sun Dinner 4
6 25.29 4.71 Male No Sun Dinner 4
p <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
p1 <- p + facet_grid(sex ~day )
p1
-
效果
facet
需求
经过&结果
查阅相关资料介绍需要数据组group序列因子化并设置levels，即factor(group, levels=c("1","2"))，可参考这个网址！具体操作如下：
#group <- factor(group,levels = c("1","2"))
tips <- within(tips, day <- factor(day, levels = c("Sat", "Thur", "Fri", "Sun")))
with(tips, levels(day))
tips <- within(tips, sex <- factor(sex, levels = c("Male","Female")))
with(tips, levels(sex))
p <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
p2 <- p + facet_grid(sex ~day )
p2
-
修改后效果
facet_v1
后记
今天无后记哈哈！
要是了解其他分面技巧，还请参考查阅其他更多资料啊哈哈！！
回头又想了想，不只是分面图，其他涉及不连续标签，比如箱线图、柱状图啊等等之类的都可以这么设置呀！
PS:
三三两两 浑浑噩噩
愿岁月静好且可期
2019/12/13 12:03
