绘制一个中断的时间序列对象

Question

考虑这个动物园对象的（简单的）版本：

d <-  c("2007-01-31", "2007-02-28", "2007-03-31", "2007-04-30", "2007-05-31", "2007-06-30", "2008-02-28", "2008-03-31", "2008-04-30", "2009-09-30", "2009-10-31", "2009-11-30", "2009-12-31", "2010-01-31")
vec <- runif(14, 0.5, 0.7)
vec.zoo = zoo(vec, order.by = as.Date(d, format = "%Y-%m-%d"))
plot(vec.zoo, ylim = c(0,1))

如您所见，缺少一些日期（查看索引 d）。但是，当我绘制对象时，我得到以下信息：

我意识到这对ggplot 是可行的，但是结果是多个图而不是一个（请参阅线程：link）

我希望能够在一个绘图中绘制动物园对象，但是当特定日期没有可用数据时，在绘图中留下一个空白区域。我该怎么做？

谢谢！

Answer 1

假设您的数据频率是“每月”：

library(zoo)
library(lubridate) # for easy extraction of different components of date object

# convert 'd' to monthly data
d2 <- as.yearmon(d)


# create zoo object
z1 <- zoo(vec, order.by = d2)


# create a continuous series of monthly data, ranging from min(d) to max(d)
d3 <- as.Date(d)
tt <- as.yearmon(min(year(d)) + seq(month(min(d)) - 1, (year(max(d)) - year(min(d))) * 12)/12)


# expand z1 to a continuous series
z2 <- merge(z1, zoo(, tt))


plot(z2)

Answer 2

将vec 更改为以下：

vec <- c(runif(5, 0.5, 0.7), NA, NA, NA, runif(5, 0.5, 0.7))

要进行中断，vec 对应的日期必须具有 NA 值，如果该日期没有数据则中断。