绘制多条线R.

时间:2013-06-21 10:58:58

标签: r plot ggplot2 lattice

我有以下数据:

   dim   tuples buckets error is.init
1    5 13500000      50  0.29    TRUE
2    5 13500000     100  0.28    TRUE
3    5 13500000     150  0.27    TRUE
4    5 13500000     200  0.26    TRUE
5    5 13500000     250  0.26    TRUE
6    4   360000      50  0.10    TRUE
7    4   360000     100  0.09    TRUE
8    4   360000     150  0.09    TRUE
9    4   360000     200  0.09    TRUE
10   4   360000     250  0.09    TRUE
11   3     9000      50  0.10    TRUE
12   3     9000     100  0.09    TRUE
13   3     9000     150  0.09    TRUE
14   3     9000     200  0.08    TRUE
15   3     9000     250  0.07    TRUE
16   5 13500000      50  0.48   FALSE
17   5 13500000     100  0.43   FALSE
18   5 13500000     150  0.44   FALSE
19   5 13500000     200  0.44   FALSE
20   5 13500000     250  0.43   FALSE
21   4   360000      50  0.41   FALSE
22   4   360000     100  0.39   FALSE
23   4   360000     150  0.36   FALSE
24   4   360000     200  0.37   FALSE
25   4   360000     250  0.35   FALSE
26   3     9000      50  0.31   FALSE
27   3     9000     100  0.26   FALSE
28   3     9000     150  0.25   FALSE
29   3     9000     200  0.22   FALSE
30   3     9000     250  0.20   FALSE

对于昏暗的每个值,我想要两行。一行显示错误,其中is.init = T,第二行显示错误,当is.init = F. X轴是“桶”。 如果所有行“is.init = T”都是虚线,那将是很好的。 我该怎么做呢?提前谢谢。

2 个答案:

答案 0 :(得分:2)

这个问题是重复的,但我尝试添加lattice解决方案,我发现自定义条形面板并不明显。也许我想念一些东西,但这里是我的代码:

library(lattice) 
xyplot(error~buckets|dim,
       groups=is.init,data=dat,type='l',
       auto.key=list(columns = 2),
       strip = function(which.panel,var.name,factor.levels,...)
       {
         strip.default(..., which.panel,factor.levels,
                       var.name = paste0(var.name,factor.levels[which.panel]))
       })

enter image description here

答案 1 :(得分:1)

类似的东西:

library(ggplot2)
library(reshape2)
w$new <- paste(w$is.init, w$dim, sep = ".") # I named your data frame w
ggplot(data = w, aes(x = buckets, y = error, group = new)) +
geom_line(aes(linetype = is.init), size = 1) + facet_wrap(~dim)

graph w faceting!

我找到了你需要的确切情节here