我有以下数据:
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”都是虚线,那将是很好的。 我该怎么做呢?提前谢谢。
答案 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]))
})
答案 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)
我找到了你需要的确切情节here。