r动态图按一天中的时间对多天中的区域进行着色

在R动态图中，如何按时间、跨多天对区域进行着色，而不一一列出？例如，在下面的示例中，我想在每天07:00-08:15的时候给自己加上阴影（我的完整示例还有很多天）

#生成数据
图书馆（xts）
图书馆（动态图）
#生成样本数据
#http://stackoverflow.com/questions/9778632/r-xts-generating-1-minute-time-series-from-second-events
x%
动态范围选择器（高度=20）

---

谢谢

我能解决我的问题。以下代码仅供参考：

此外，感谢以下提供的想法：

---

#加载库
图书馆（xts）
图书馆（动态图）
#生成样本数据
x%
动态范围选择器（高度=20）
#####################
#函数用于在列表中创建着色
添加阴影这太棒了！我正在尝试做一些非常相似的事情，只是我有跨多年的月/日范围。必须能够以类似的方式索引月份和天数

head(dailyprecipxts)
               [,1]
2002-01-01  16.2199
2002-01-06  48.7243
2002-01-11 105.5646
2002-01-16   7.0446
2002-01-21  47.3491
2002-01-26  21.2664

我想创建表单的ok_periods列表：

[[1]]
[[1]]$from
[1] "2002-07-01"

[[1]]$to
[1] "2002-10-01"


[[2]]
[[2]]$from
[1] "2003-07-01"

[[2]]$to
[1] "2003-10-01"

每年的月/日范围相同，与上一个示例不同，我没有一天中的时间信息。
函数列表[[I]]（值）中出错：找不到函数“dyCandlestick”
我认为它已被弃用。为了着色的目的，不管它是烛台、折线图、条形图，等等-虽然烛台也非常受支持，但sessionInfo显示我正在运行dygraphs_1.1.1.3另一个证明有用的链接：
head(dailyprecipxts)
               [,1]
2002-01-01  16.2199
2002-01-06  48.7243
2002-01-11 105.5646
2002-01-16   7.0446
2002-01-21  47.3491
2002-01-26  21.2664

[[1]]
[[1]]$from
[1] "2002-07-01"

[[1]]$to
[1] "2002-10-01"


[[2]]
[[2]]$from
[1] "2003-07-01"

[[2]]$to
[1] "2003-10-01"