在ggplot2中使用facet_wrap

Question

希望facet_wrap对每个情节具有不同的参数。在下面的例子:

x = c(43,22,53,21,13,53,23,12,32)
y = c(42,65,23,45,12,22,54,32,12)
df = cbind(x,y)
df = as.data.frame(df)  
meany = mean(y)
p = ggplot(df, aes(x=x,y=y, colour=(y > meany))) + 
      geom_point() +
      geom_hline(yintercept = meany)
p

效果很好，y的平均值处有一条线，线上下的点是不同的颜色。

我有一个更大的数据帧，我想对每个因子级别这样做，并使用facet_wrap来显示所有的图。我不确定如何在ggplot中获得颜色和y截距以更改facet_wrap中的每个图形。

此外，我希望情节有更多的层，即每个情节将比较不同模型的MSE。

谢谢你的帮助

Answer 1

像这样?

DB <- data.frame(F = factor(rep(LETTERS[1:3], each = 20)),
                 x = rnorm(60, 40, 5), 
                 y = rnorm(60, 40, 5))
library(plyr)
library(ggplot2)
DB <- ddply(DB, "F", mutate, ind = y > mean(y))
mns <- ddply(DB, "F", summarise, meany = mean(y))
ggplot(DB, aes(x = x, y = y, color = ind)) +
    geom_point() +
    geom_hline(data = mns, aes(yintercept = meany)) +
    facet_wrap(~ F, nrow = 1)

你的最后一个请求太模糊(即，缺乏上下文)。