无法转换';x$date';至第“类;日期”;在R
好吧,我一直在尝试使用Facebook上的这个软件包,但出于某种原因,我一直看到这个错误无法转换';x$date';至第“类;日期”;在R,r,date,R,Date,好吧,我一直在尝试使用Facebook上的这个软件包,但出于某种原因,我一直看到这个错误 library(tidyquant) library(quantmod) library(prophet) library(dplyr) SPY <-tq_get(get = "stock.prices", "SPY", from = "2016-01-01") df<-select(SPY,c(date,close)) df$date <- as.Date(as.character(
library(tidyquant)
library(quantmod)
library(prophet)
library(dplyr)
SPY <-tq_get(get = "stock.prices", "SPY", from = "2016-01-01")
df<-select(SPY,c(date,close))
df$date <- as.Date(as.character(df$date),format="%Y-%m-%d")
colnames(df)<-c("ds","y")
m<-prophet(df)
future<-make_future_dataframe(m,periods=52, freq = "d")
forecast <- predict(m,future)
plot(m,forecast)
库(tidyquant)
图书馆(quantmod)
图书馆(先知)
图书馆(dplyr)
间谍库(lubridate)
df$date试一试lubridate
软件包它有很多功能,您正在查找库(anydate):anydate软件包不在CRAN上。对不起,它应该是库(任何时候)
forecast$ds<-as.Date(paste(forecast$ds),"%Y-%m-%d")
forecast$ds<- format(forecast$ds, "%d/%m/%Y")
forecast$date<-forecast$ds
m$date<-forecast$ds
df$newdate<- strptime(as.character(df$ds),"%Y-%m-%d")
df$newdate<- format(df$newdate, "%d/%m/%Y")
df$newdate<-as.Date(df$newdate)
dp<-data.frame(df$newdate,y)
library(lubridate)
df$date <- ymd(df$date) # ymd stands for year, month, date
library(anydate)
df$date <- anydate(df$date)