r在png上绘制多个ggplot，stat_smooth

Question

我正在尝试使用带有 png 作为背景的 ggplot() 或 stat_smooth() 以平滑线绘制多个数据帧。

我有三个数据框

data1 <- data.frame(Max.x, Max.y)  
data2 <- data.frame(Med.x, Med.y)  
data3 <- data.frame(Min.x, Min.y)  

和一个图片（png）文件

mypng <- readPNG("picture.png")

我发现使用 stat_smooth(span=0.4) 它将创建一条穿过数据框中所有点的平滑线。

现在我正在尝试在 mypng 上绘制三条平滑线

我已经尝试了几件事。

ggplot(data1, aes(x=Max.x, y=Max.y))+scale_x_continuous(limits = c(126,129))+scale_y_continuous(limits = c(37.5, 38.5))+ annotation_raster(mypng, xmin=126, xmax=129, ymin=37.5, ymax=38.5)+stat_smooth(span=0.4) 

data2 和 data3 也是如此。这会将每一行绘制在 png 上，但我无法找到一种方法将所有三行绘制到同一个 png 上。
另外，请注意，绘图必须设置 x,y max 和 min b/c 我的数据位于这些坐标之间。

我尝试的另一件事：

ggplot()+annotation_raster(mypng, xmin=126, xmax=129, ymin=37.5, ymax=38.5)+stat_smooth(data=data1, aes(x=Max.x, y=Max.y), span=0.4)+stat_smooth(data=data2, aes(x=Med.x, y=Med.y), span=0.4)+stat_smooth(data=data3, aes(x=Min.x, y=Min.y), span=0.4)+scale_x_continuous(limits=c(126,129))+scale_y_continuous(limits=c(37.5,38.5))

这会绘制所有三个平滑线。然而图片并没有显示出来。

我现在卡住了...我可以在 mypng 上获得三个不同的图。我可以得到所有三个图，但不能在 mypng 上。 如何在 mypng 上获得所有三行？

Answer 1

怎么样：

library(png)
library(ggplot2)

data1 <- data.frame(series = rep("max",10),
                    x = rnorm(10, mean = 127.5, sd = 1), 
                    y = rnorm(10, mean = 38, sd = 0.25))  
data2 <- data.frame(series = rep("med",10),
                    x = rnorm(10, mean = 127.5, sd = 1), 
                    y = rnorm(10, mean = 38, sd = 0.25))  
data3 <- data.frame(series = rep("min",10),
                    x = rnorm(10, mean = 127.5, sd = 1), 
                    y = rnorm(10, mean = 38, sd = 0.25))  

df <- rbind(data1,data2,data3)

mypng <- readPNG("C:/Users/lorenzr/Pictures/family.png")

ggplot(df, aes(x=x, y=y, colour = series))+
  scale_x_continuous(limits = c(126,129))+
  scale_y_continuous(limits = c(37.5, 38.5))+
  annotation_raster(mypng, xmin=126, xmax=129, ymin=37.5, ymax=38.5)+
  stat_smooth(span=0.4)