Может показаться, что я ничего плохого не делаю, поскольку мои данные преобразуются в объект xts, я не могу использовать соответствующую функцию для их построения
library(tseries)
library(tidyverse)
library(prophet)
library(forecast)
library(tidyquant)
library(xts)
library(zoo)
library(foreign)
library(haven)
data<-as.data.frame(read_sav("/Users/xxx/Desktop/R PORTFOLIO/data.sav"))
price<-data$Price
date<-data$Date
date<-as.Date(date,format="%b %d,%Y")
data2 <- xts(price, date)
plot.xts(data2)