サンプルデータをスプライン補間:各ファセットについてプロットデータと凡例
x <- seq(0, 1, by = 0.1)
y <- c(1, 2.1, 3, 2, 1, 0, -3, -2, 0, 0.5, 1)
xpred <- seq(0, 1, by = 0.01)
ypred <- spline(x, y, xout = xpred)$y
y1 <- y + runif(length(y))
ypred1 <- spline(x, y1, xout = xpred)$y
nx <- length(x)
nxpred <- length(xpred)
foo <- data.frame(x = c(x, xpred, x, xpred), y =c(y, ypred, y1, ypred1),
type = rep(c(rep("data", times = nx), rep("spline", times = nxpred))),
experiment = rep(c("A", "B"), each = nx + nxpred))
は、私は、データ用の青色点、及びスプライン補間のための赤い実線を使用してデータをプロットしたいです。また、 "データ"と "スプライン"というエントリを持つ素敵な伝説を得たいと思います。伝説は明らかにすべてのファセットで同じです。
library(dplyr)
library(ggplot2)
ggplot(data = filter(foo, type =="spline"), aes(x=x, y=y)) +
geom_line(color = "tomato") +
geom_point(data = filter(foo, type =="data"), color ="blue") +
facet_wrap(~ experiment, labeller = "label_both")
どのように凡例を追加することができます。私は、ポイントやラインをプロットすることができますよ!