答案 0 :(得分:0)
可能有更好的解决方案,但这是一个解决方案。当然,您必须适应20个向量,而不是6个。
x <- 1:10
y1 <- rnorm(10)
y2 <- rnorm(10)
y3 <- rnorm(10)
y4 <- rnorm(10)
y5 <- rnorm(10)
y6 <- rnorm(10)
f1 <- gl(2,3)
f2 <- rep(1:3,2)
dat <- data.frame(f1=rep(f1,each=10),
f2=rep(f2,each=10),
id = rep(interaction(f1,f2),each=10))
dat$x <- rep(x,6)
dat$y <- c(y1,y2,y3,y4,y5,y6)
library(ggplot2)
ggplot(dat, aes(x=x, y=y, color=id)) + geom_point(size=2) +
facet_wrap(f1~f2, scales = "free_y") +
theme(
strip.background = element_blank(),
strip.text.x = element_blank()
)
答案 1 :(得分:0)
请参阅:lattice.r-forge.r-project.org/Vignettes/src/lattice-intro/lattice-intro.pdf
还搜索:R格子网格图-您会发现大量有用的资源。