我有几个关于 ggplot2 中的刻面的问题......
假设我有一个查询,它返回如下所示的数据:
(请注意,它是按 Rank asc 排序的,Alarm asc 和两个警报的 Rank 为 3,因为它们的 Totals = 1798 for 第 4 周,Rank 是根据第 4 周的 Total 设置的)
Rank Week Alarm Total
1 1 BELTWEIGHER HIGH HIGH 1000
1 2 BELTWEIGHER HIGH HIGH 1050
1 3 BELTWEIGHER HIGH HIGH 900
1 4 BELTWEIGHER HIGH HIGH 1800
2 1 MICROWAVE LHS 200
2 2 MICROWAVE LHS 1200
2 3 MICROWAVE LHS 400
2 4 MICROWAVE LHS 1799
3 1 HI PRESS FILTER 2 CLOG SW 1250
3 2 HI PRESS FILTER 2 CLOG SW 1640
3 3 HI PRESS FILTER 2 CLOG SW 1000
3 4 HI PRESS FILTER 2 CLOG SW 1798
3 1 LOW PRESS FILTER 2 CLOG SW 800
3 2 LOW PRESS FILTER 2 CLOG SW 1200
3 3 LOW PRESS FILTER 2 CLOG SW 800
3 4 LOW PRESS FILTER 2 CLOG SW 1798
(下面的重复代码)
Rank = c(rep(1,4),rep(2,4),rep(3,8))
Week = c(rep(1:4,4))
Total = c( 1000,1050,900,1800,
200,1200,400,1799,
1250,1640,1000,1798,
800,1200,800,1798)
Alarm = c(rep("BELTWEIGHER HIGH HIGH",4),
rep("MICROWAVE LHS",4),
rep("HI PRESS FILTER 2 CLOG SW",4),
rep("LOW PRESS FILTER 2 CLOG SW",4))
spark <- data.frame(Rank, Week, Alarm, Total)
现在当我这样做时...
s <- ggplot(spark, aes(Week, Total)) +
opts(
panel.background = theme_rect(size = 1, colour = "lightgray"),
panel.grid.major = theme_blank(),
panel.grid.minor = theme_blank(),
axis.line = theme_blank(),
axis.text.x = theme_blank(),
axis.text.y = theme_blank(),
axis.title.x = theme_blank(),
axis.title.y = theme_blank(),
axis.ticks = theme_blank(),
strip.background = theme_blank(),
strip.text.y = theme_text(size = 7, colour = "red", angle = 0)
)
s + facet_grid(Alarm ~ .) + geom_line()
我明白了……
替代文字 http://img101.imageshack.us/img101/9103/ss20100315112108.png
请注意,它是根据警报分面的,并且分面是按字母顺序排列的。
两个问题:
- 我怎样才能让它被警报分面但以正确的顺序显示?(等级升序,警报升序)。
替代文字 http://img17.imageshack.us/img17/6986/ss20100315113243.png
- 另外,我怎样才能让它被警报分面,但显示来自排名而不是警报的标签?
替代文字 http://img85.imageshack.us/img85/470/ss20100315113529.png
请注意,我不能只对 Rank 进行刻面,因为 ggplot2 只会看到 3 个刻面来绘制真正有 4 个不同警报的地方。