R ts(动物园)错误:';ts';对象必须有一个或多个观察值

R ts(动物园)错误:';ts';对象必须有一个或多个观察值,r,time-series,zoo,R,Time Series,Zoo,我昨天运行了这段代码,它执行得非常完美。但今天当我运行它时,我遇到了错误。当我检查ZOO表时,它没有数据,我是空的。问题出在哪里 ***library(Quandl) library(quantmod) library(tidyverse) library(zoo) library(readr) getSymbols("FB", from = '2018-02-01', to = '2018-12-30',warnings = FALSE,

我昨天运行了这段代码,它执行得非常完美。但今天当我运行它时,我遇到了错误。当我检查ZOO表时,它没有数据,我是空的。问题出在哪里

***library(Quandl)
library(quantmod)
library(tidyverse)
library(zoo)
library(readr)
getSymbols("FB", from = '2018-02-01',
           to = '2018-12-30',warnings = FALSE,
           auto.assign = TRUE)
fb_data <- FB
ZOO <- zoo(fb_data$FB.close, order.by=as.Date(as.character(fb_data$date), format='%Y-%m-%d'))
fb_ts <- ts(ZOO)***
***库(Quandl)
图书馆(quantmod)
图书馆(tidyverse)
图书馆(动物园)
图书馆(readr)
getSymbols(“FB”,from='2018-02-01',
to='2018-12-30',警告=错误,
auto.assign=TRUE)

fb_data列名为
fb.Close
,大写字母C,而不是小写字母C,并且已经是xts/zoo。我们可以使用quantmod的
Cl
函数来选择收盘价。请注意,
x
是一个xts/zoo对象

x <- Cl(FB)
class(x)
## [1] "xts" "zoo"
或者,如果您已经有一个xts/zoo对象
x
,则可以使用

# if x is xts/zoo object then z will be zoo object
z <- as.zoo(x)
#如果x是xts/zoo对象,那么z将是zoo对象
Z
# if x is xts/zoo object then z will be zoo object
z <- as.zoo(x)