Как наложить сюжет на изображение? - PullRequest
Новая
       9

Как наложить сюжет на изображение?

0 голосов
/ 06 мая 2018

Я пытаюсь наложить изображение на график прогноза. Объект прогноза, похоже, не имеет 

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)

Надеюсь, это решение поможет

1 Ответ

0 голосов
/ 11 мая 2018

Благодаря предложению Д.В. я отвечаю на свой вопрос после небольшого исследования (то есть методом проб и ошибок). 

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)
...