以下是一个示例数据集：
d <- data.frame(
id1 = rep(letters[1:4],16),
id2 = c(rep("one",16), rep("two",16), rep("three",16), rep("four",16)),
x = rnorm(64, mean=12, sd=6),
y = rnorm(64, mean=4.5, sd=2))
我的识别因素是列＆lt; id1＆＃39;和＆＃39; id2＆＃39;，而我的数据在x和y列。
我想创建一个独特的ggplot文件，该文件打印到id1 * id2的每个组合的文件夹中。我理解facet_wrap是如何工作的，但我特别感兴趣的是每个单独的图。例如，我想要一个x对y的情节，其中id1 ==＆＃34; B＆＃34;和id2 ==＆＃34; 3＆＃34;。
这导致我尝试以下代码（在融合ID列之后）：
require(dplyr)
require(plyr)
require(ggplot2)
d.m <- melt(d, id=c("id1","id2"))
p = ggplot(data = d, aes(x=x, y=y))+
geom_point()
plots = dlply(d, .(id1, id2), function(x) p %+% x)
虽然这在技术上为我提供了每个情节互动的文件，但我如何做这个过程，我可以在打印出来之前在每个ggplot中标记各种id1或id2因子水平？例如，id1 =＆＃34; B＆＃34;的组合图。 * id2 =＆＃34; 4＆＃34;可能有一个ggtitle of＆＃34; Interaction B和4＆＃34;或者a轴为＆＃34; Y值为id1 = B＆＃34;。
我不知道如何为剧情标题或轴标题提供美学。有什么我想念的吗？