需要做分面圖，但是出來(lái)的效果順序不太對(duì)！
比如說(shuō)正常的標(biāo)簽順序是A1, A2, A3, ..., A11, ...
但是出來(lái)的效果卻是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
需求
經(jīng)過&結(jié)果
查閱相關(guān)資料介紹需要數(shù)據(jù)組group序列因子化并設(shè)置levels，即factor(group, levels=c("1","2"))，可參考這個(gè)網(wǎng)址！具體操作如下：
#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
后記
今天無(wú)后記哈哈！
要是了解其他分面技巧，還請(qǐng)參考查閱其他更多資料啊哈哈！！
回頭又想了想，不只是分面圖，其他涉及不連續(xù)標(biāo)簽，比如箱線圖、柱狀圖啊等等之類的都可以這么設(shè)置呀！
PS:
三三兩兩 渾渾噩噩
愿歲月靜好且可期
2019/12/13 12:03
