如何在图像上叠加绘图？答案

【问题标题】：How to overlay a plot on over an image?如何在图像上叠加绘图？
【发布时间】：2018-10-16 11:42:10
【问题描述】：

我正在尝试将图像覆盖在预测图上。预测对象好像没有

library(quantmod)

Stock_df<-as.data.frame(getSymbols(Symbols = "AAPL", src = "yahoo", from = "2017-05-06", env = NULL))
fit <- auto.arima(Stock_df$AAPL.Close,ic="bic")
fit.forecast <- forecast(fit)
library(jpeg)
my_image=readJPEG("Myimage.jpg")

plot.new()
lim <- par()
rasterImage(my_image, lim$usr[1], lim$usr[3], lim$usr[2], lim$usr[4], main= "AAPL")
line(fit.forecast)

我收到以下错误消息：

Error in xy.coords(x, y, setLab = FALSE) : 
  'x' is a list, but does not have components 'x' and 'y'

如何简单地将预测对象覆盖在图像上？

解决方案

经过反复试验和一些研究。我找到了以下解决方案。

plot.new()
lim <- par()
rasterImage(my_image, lim$usr[1], lim$usr[3], lim$usr[2], lim$usr[4], main= "AAPL")
par(new=TRUE)
plot(fit.forecast)

我希望这个解决方案有帮助

【问题讨论】：

在回答您自己的问题时，您应该将其作为单独的答案输入 - 而不是对问题的编辑

标签： r image plot raster

【解决方案1】：

感谢 dww 的建议，经过一番研究（即反复试验），我正在回答自己的问题。

plot.new()
lim <- par()
rasterImage(my_image, lim$usr[1], lim$usr[3], lim$usr[2], lim$usr[4], main= "AAPL")
par(new=TRUE)
plot(fit.forecast)

【讨论】：