获取相对于当前日期的过去12个月给出的动物园对象的子集

Question

我正在尝试使用此代码：

library(Quandl);
library(zoo);

Quandl.api_key("#########################")

mydata = Quandl("EOD/MSFT", type="zoo")

str(mydata)

plot(mydata[,"Open"])

start(mydata[,"Open"])
end(mydata[,"Open"])

subset <- mydata[as.Date(c("2018-01-01", "2018-06-08"))] 
plot(subset[,"Open"])

提取从quandl中提取的数据的子集。我没有得到任何错误，但也没有绘制任何内容。有人可以这么善良并帮助我提取相对于当前日期的最近12个月的数据吗？